Wie kann ich ActiveWorkbook/Workbooks (Name) verwenden, ohne einen Laufzeitfehler 91 in Excel 2013 VBA zu erhalten?

Question

Während dies nicht das erste Mal ist, dass ich Makros wie dieses schreibe, kann ich nicht herausfinden, wie ich das zum Laufen bekomme. Ich habe eine darunter geschnitten, dass ich denke, sollte funktionieren, aber nicht.

Mein Problem ist, dass zu Beginn meiner Arbeit Tag, während der snipped arbeitete genau einmal, dann aber immer die '91 Runtime Error erhalte ich: Objektvariable oder with-Blockvariable nicht gesetzt Fehlermeldung.

Ich habe zwei Arbeitsmappen geöffnet, und ich wählte Zellen in der Arbeitsmappe, die ich mit manuell vor dem Start des Makros arbeiten wollte.

Option Explicit 
Sub test() 

Dim source, sheet As Worksheet 
Dim sourcename As String 
Dim targetname As String 
Dim test As Workbook 
Workbooks("Test.xlsm").Activate 
test = ActiveWorkbook 
Debug.Print (test.Name) 

sourcename = "Tabelle1" 
targetname = "Tabelle2" 

Set sheet = ActiveWorkbook.Worksheets(sourcename) 
Set source = ActiveWorkbook.Worksheets(targetname) 

Debug.print(sheet.Name) 
Debug.print(source.Name) 

End Sub 

Der Fehler tritt in der Zeile mit test = ActiveWorkbook

EDIT: Nachdem die anfänglichen Set Fehler behoben wurden, die Blatt und Quelle Variablen sind noch leer, so dass jeder eines anderen Fehler verursacht von diesem Typ.

Was ist das Problem hier und wie kann ich es beheben?

Answer 1

Zwei Themen hier:

1st- sowohl Variable und Sub nicht den gleichen Namen geben, haben Sie 'Test' für beide

2nd- Set vor diesem test = ActiveWorkbook wie Set test = ActiveWorkbook

Zeile hinzufügen

Denken Sie daran-Sub-Namen in andere etwas ändern dann test