Leere Zeile ist nicht leer
23.06.2005 11:45:26
Gisela
ich versuche mit dem Makro (ist hier aus dem Forum) Zeilen zu übernehmnen.
Es werden aber auch Zeilen übernommen, in denen sichtbar nichts steht.
z.B. wenn die ersten beiden Zeilen belegt sind, werden auch noch 100 Zeilen übertragen, die keinen Inhalt haben.
Wenn ich dann das Makro wieder laufen lasse, erfolgt der nächste Eintrag in Zeile 103 usw. Was muss ich verändern, damit nur wirklich belegte Zeilen übernommen werden?
Sub uebertragen()
Dim s As String
Application.ScreenUpdating = False
s = Sheets("Tabelle1").Range("A1").Value
Sheets("Tabelle1").Range("A5:S150").Copy _
Sheets(s).Range("A5536").End(xlUp).Offset(1, 0)
End Sub
Vielen Dank und liebe Grüße
Gisela