Hallo zusammen,

ich habe folgendes makro:

Sub kopieren()
Dim Zeile As Integer
Dim Spalte As Integer
Dim Anzahl As Integer

Anzahl = 0
Zeile = 1
Spalte = 1
kfound = False

Do Until kfound
If ActiveSheet.Cells(Zeile, Spalte).Value <> "1E-20" Then

(' ist die zeile die gelb markiert wird)

Spalte = Spalte + 1
Anzahl = Anzahl + 1
Else
kfound = True

Exit Do
End If
Loop

Anzahl = Anzahl - 1
Sheets("TBT1").Activate
Range("B5").Value = Anzahl
End Sub

wenn ich auf F5(ausführen) drücke, kommt der fehler Laufzeitfehler 1004 (ojektorientierter oder anwendugsorietierter Fehler), also es funktioniert quasi nicht.

wenn ich ABER über das symbol entwurfsmodus aktiviere und dann auf F8 und jeden schritt einzeln durchgeht, funktioniert alles.

Wo ist im amkro ein fehler oder ein mögliches probelm?

vielen dank
gruß sebal