Zellen einfügen

Forumthread: Zellen einfügen
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Zellen einfügen

Zellen einfügen

10.12.2003 08:25:52

junny

Hai Excels,
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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zellen einfügen

10.12.2003 09:01:09

WernerB.
DANKE Werner, es passt!! Gruss volker

10.12.2003 09:29:19

junny

AW: Zellen einfügen

10.12.2003 09:01:09

WernerB.

Hallo Volker,

kommt das so hin?


Sub ZellenEinfuegen()
Dim iCount As Integer
With Selection
iCount = .Rows.Count
Range("A" & .Row + iCount & ":" & "X" & .Row + (iCount * 2) - 1).Insert Shift:=xlDown
End With
End Sub

Viel Erfolg wünscht
WernerB.

P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).

DANKE Werner, es passt!! Gruss volker

10.12.2003 09:29:19

junny

o.T.

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!