Leola13
Erfahrenes Mitglied
Hai,
folgendes Makro :
Funktioniert :
- wenn ich ihn aus dem Editor starte (Ausführen - Sub ausführen ...)
- wenn ich Einzelschritte durchführe (F8)
Funktioniert nicht :
-wenn ich aus der Datei VBA SLI heraus starte. Dann wird nach der ersten gefundenen Stelle, incl. Kopie, ohne Fehelrmeldung aufgehört.
Was habe ich falsch gemacht ?
Ciao Stefan
folgendes Makro :
Code:
Sub aaa()
Dim Zelle As Range
For Each Zelle In Workbooks("VBA SLI.XLS").Worksheets("SLI").Range("F4", "F" & Range("a65536").End(xlUp).Row)
If Zelle = "XYZ" Then
Workbooks("VBA SLI Aufgabe.XLS").Worksheets("Archiv").Rows(6).Insert
Zelle.EntireRow.Copy Destination:=Workbooks("VBA SLI Aufgabe.XLS").Worksheets("Archiv").Range("A6")
Else
b = b + 1
End If
Next Zelle
End Sub
Funktioniert :
- wenn ich ihn aus dem Editor starte (Ausführen - Sub ausführen ...)
- wenn ich Einzelschritte durchführe (F8)
Funktioniert nicht :
-wenn ich aus der Datei VBA SLI heraus starte. Dann wird nach der ersten gefundenen Stelle, incl. Kopie, ohne Fehelrmeldung aufgehört.
Was habe ich falsch gemacht ?
Ciao Stefan