Leerzeilen einfügen bei Mehrfachmarkierung
02.05.2005 18:24:18
richi
folgendes Makro fügt in einer Markierung im Tabellenblatt n Leerzeilen ein.
Problem : Es soll auch funktionieren wenn ich mehrere, nicht verbundenen Zeilen bzw. Zellen markiere (also unabhängig davon ob User ganze Zeile markiert oder nur einzelne Zellen, es sollte zum gleichen Ergebnis führen).
Wer kann mir helfen ? Vielen Dank im voraus
Viele Grüße
richi
Sub Anzahlleerzeilen()
Anzahlleer = ThisWorkbook.Worksheets("Tabelle1").Range("A1").Value
zeilen = Selection.Rows.Count
For i = 1 To zeilen
ActiveCell.Offset(0, 0).Range(Cells(1, 1), Cells(Anzahlleer, 1)).Select
Selection.EntireRow.Insert
ActiveCell.Offset(Anzahlleer + 1, 0).Rows("1:1").Activate
Next i
End Sub
Anzeige