Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

bestimmte Anzahl von Zeilen einfügen

Betrifft: bestimmte Anzahl von Zeilen einfügen
von: Günther
Geschrieben am: 13.04.2003 - 16:43:47

Hallo zusammen,

ich möchte in einer Tabelle in eine bestimmte Zeile klicken
und von dieser ausgehend nach oben eine bestimmte Anzahl von Leerzeilen einfügen,die ich vorher ermittelt habe.
Die Anzahl der einzufügenden Zeilen soll in eine Msg-Box eingegeben werden können.
Kann jemand helfen?
Danke Günther



  

Re: bestimmte Anzahl von Zeilen einfügen
von: ChrisL
Geschrieben am: 13.04.2003 - 16:52:05

Hallo Günther

Versuchs mal hiermit...

Option Explicit

Private Sub CommandButton1_Click()
Dim AnzahlZeilen As Integer
Dim AktuelleZeilenNummer As Long
On Error GoTo errorhandler

AnzahlZeilen = InputBox("Bitte Anzahl Zeilen eingeben: ")
AktuelleZeilenNummer = ActiveCell.Row
Rows(AktuelleZeilenNummer - AnzahlZeilen + 1 & ":" & AktuelleZeilenNummer).Insert Shift:=xlDown

errorhandler:
End Sub

Gruss
Chris

  

Re: bestimmte Anzahl von Zeilen einfügen
von: Günther
Geschrieben am: 13.04.2003 - 17:11:17

Hallo Chris,
Danke, funktioniert gut.
Grüße Günther

 

Beiträge aus den Excel-Beispielen zum Thema "bestimmte Anzahl von Zeilen einfügen"