Supportnet / Forum / Tabellenkalkulation

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

hi all

die variable zeile ist als long zu deklarieren

Anzahl = 0 eine integervar hat defaultwert 0 daher ueberfluessig

var kfound nicht deklariert und auch hier ist der defaultwert immer false

Do Until kfound soll was sein true oder false

Sheets("TBT1").Activate soll was sein ?

nehme mal an WorkSheets

Range("B5").Value soll auf was bezogen sein ?

nehme mal an Worksheets fragt sich nur welches

gruss gast123

hallo gast123,

danke für deinen beitrag,

aber ich habe mit deisem makro jetzt auf einmal doch keine probs mehr, wies aber auch nicht wieso es vorher nicht funktioniert hat, jetzt passt aber alles.

also danke,
gruß sebal

• Makro macht nur einen Schritt
• kann wegen makro nicht drucken - was machen?
• Fehler im VBA bei LEFT Funktion