Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 18:57:33
17.04.2024 16:56:58
Anzeige
Archiv - Navigation
1464to1468
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Einfügen von Zeilen

Einfügen von Zeilen
18.12.2015 13:48:10
Zeilen
Hallo zusammen,
ich möchte in einer Tabelle mit dem Namen Stkl in die vorletzte sichtbare Zeile (z-1) eine Anzahl von n Zeilen einfügen. Das Problem ist wie gesagt, dass mehre Zeilen ausgeblendet sind, dass das Tabellenende
und die Anzahl der einzufügenden Zeilen variabel sind.
Vielen dank im voraus für Eure Mühe
Gruß
Peter

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

Betreff
Datum
Anwender
Anzeige
AW: Einfügen von Zeilen
18.12.2015 14:24:50
Zeilen
Hallo
meinst du das so?

Sub Plus4()
Dim RR&, Neu%
Neu = 4 ' Anzahl der einzufügenden Zellen
With ActiveSheet
RR = .Cells.SpecialCells(xlCellTypeLastCell).Row
' Letzte eingeblendete Zeile des gesamten Blattes
.Rows(RR - 1 & ":" & RR - 1 + Neu - 1).Insert Shift:=xlDown
End With
End Sub

Gruß UweD

AW: Einfügen von Zeilen
21.12.2015 10:30:07
Zeilen
Guten Morgen Uwe,
ich habe es gerade erst geschafft, deinen Vorschlag zu testen.
Danke, es klappt, nachdem ich bei mir noch einen Fehler gefunden habe.
Gruß
Peter
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige