Zellen einfügen
10.12.2003 07:25:52
junny
ich habe von der Herber CD einen Code den ich verändern will.
Ich möchte keine kompletten Zeilen einfügen, sondern nur Zellen und zwar von Spalte A-X ansonsten die Funktion des bisherigen codes.
Hoffe hab mich verständlich ausgedrückt, viele Grüsse volker
Sub ZeilenEinfuegen()
Dim iCount As Integer
With Selection
iCount = .Rows.Count
Rows(.Row + iCount & ":" & _
.Row + (iCount * 2) - 1).Rows.Insert
End With
End Sub