macro zum leere Zeilen selektieren ...
04.02.2003 20:58:41
geri
ich habe im Archiv etwas gefunden und angepasst, bei einem File
funktioniert es einwandfrei und bei anderen File immer Fehlermeldung 1004 Select-Methode Range-Object
aber erst bei zweiter Schlaufe, obwohl Aufgabe dito ???
SINN und Zweck ich möchte leere Zeile selektieren und anschliessend
in Zelle Inhalte einfügen (Copy + Paste)
Sub Leere_Zeile_finden_und_bereich_einfügen()
Dim objZeile As Range
For Each objZeile In Worksheets("alle Daten").Rows
'For Each objZeile In active.Worksheets.Rows
If IsEmpty(objZeile.Cells(1)) = True Then
objZeile.Cells(1).Select
Sheets("BLANKO(2)").Select
Range("A2:F2").Select
Application.CutCopyMode = False
Selection.Copy
Range("a1").Select
Sheets("alle Daten").Select
ActiveSheet.Paste
Range("a1").Select
Sheets("BLANKO(2)").Select
Application.CutCopyMode = False
Exit Sub
End If
Next
Vielen Dank um Info
gruss geri