Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zellen einfügen

Forumthread: Zellen einfügen

Zellen einfügen
10.12.2003 07: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

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen einfügen
10.12.2003 08: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).
Anzeige
DANKE Werner, es passt!! Gruss volker
10.12.2003 08:29:19
junny
o.T.
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige