VisualBasic Objektvariable- oder With-Blockvariable nicht festgelegt

[Lizzy Frog]

Hallo!

Ich habe bei meinem Makro (VBA) leider ein kleines Problem..
Und zwar möchte ich Werte aus Zellen von einer Datei in die andere übergeben.
Der Code dürfte verständlich sein. Könnt aber gerne fragen. ;D
Ich bekomme immer die Fahler Meldung "Objektvariable- oder With-Blockvariable nicht festgelegt"
EDIT: Habe eine Kleinigkeit geändert, jetzt bekomme ich den Fehler: "Index außerhalb des gültigen Bereichs"
Hier ist mein Code:

Sub Monat()

    Dim ws1 As Worksheet, ws2 As Worksheet, ws22 As Worksheet, wb1 As Workbook, wb2 As Workbook
    Dim Spalte As Integer
    Dim Zeile As Integer
    Dim Temp As String
    
    Set wb1 = Workbooks("Beispiel.xlsm")
    Set ws1 = wb1.Worksheets(Sheets.Count)

    
    Application.ScreenUpdating = False
    wb1.Activate
    ws1.Select

         
        Do Until Cells(29, Spalte).Value = "Gruppe"
            
            wb2 = Workbooks("Test.xlsm")
            ws2 = wb2.Worksheets("Pas.")
            wb2.Activate
            ws2.Select
            Temp = Cells(2, 15).Value
            ws22 = wb2.Worksheets("Akt.")
            ws22.Select
            Temp = Temp & Cells(2, 13).Value
            wb1.Activate
            ws1.Select
            Cells(Zeile, Spalte).Value = "=" & Temp
            Spalte = Spalte + 1
    
            
        Loop

     

    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    ws2.Cells(1, 1).Select




End Sub

Bei der ersten Zeile der Do-Loop, also Zeile 19 soll wohl das Problem liegen.
Könnt ihr mir vielleicht helfen?



MfG

 

[Gameforce]

Du must immer mit "SET" arbeiten.

Wen du einer Objektvariable etwas zuweisen willst musst Du hier in diesem Falle mit .

SET wb2 = blablavla...

arbeiten. Du musst Deinen Code überarbeiten. Denn das Problem tritt an mehreren Stellen in dem Codebeispiel auf. In Zeile 8 hast Du ja die Vorlage dazu. Die Zeilen 8 und 9 fangen auch mit Set an.

 

[Lizzy Frog]

Hab jetzt überall das "set" eingefügt.
Jetzt bekomme ich bei Zeile 20 einen "Automatisierungsfehler" angezeigt..

Ergänzung (15. Januar 2015)

Ah, jetzt ist der Fehler weg.
Aber nun habe ich in Zeile 29 einen "Anwendungs- oder objektorientieren Fehler"..
Ich denke es liegt daran, dass ich eine Gleichung einfügen will, aber wie soll ich das sonst machen?