Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
240to244
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
240to244
240to244
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

zeilen einfügen

zeilen einfügen
06.04.2003 19:13:21
thomas
der code den ich habe ist einwahtfrei,aber ich brauche noch etwas anderes in ihm,ich möchte eine inputbox öffnen und reinschreiben,wie viel ich zeilen haben möchte,bitte um hilfe.
thomas

danke im vorraus


Private Sub CommandButton2_Click()
Dim Zeile As Long, Spalte As Integer
Zeile = Selection.Row + 1
Selection.Offset(1, 0).EntireRow.Insert Shift:=xlDown
Selection.EntireRow.Copy Selection.Offset(1, 0).EntireRow
For Spalte = 1 To 256
If Not Cells(Zeile, Spalte).HasFormula Then Cells(Zeile, Spalte) = ""
Next

End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: zeilen einfügen
06.04.2003 22:11:30
gordon

Hallo Thomas,
so genau hab' ich nicht verstanden, was Du mit 'wie viel ich Zeilen haben' meinst (incl. Schleife für Spalten oder nicht, und ob überhaupt zeilen einfügen) bin aber mal von Zeilen einfügen ausgegangen. Dann vielleicht wie folgt:

Private Sub CommandButton2_Click()
Dim Zeile As Long, Spalte As Integer
Dim InsertRows as Long, i as long
Zeile = Selection.Row + 1
InsertRows = Inputbox ("Wieviele ?")
for i = 1 to InsertRows step 1
Selection.Offset(i, 0).EntireRow.Insert Shift:=xlDown
Selection.EntireRow.Copy Selection.Offset(i, 0).EntireRow
For Spalte = 1 To 256
If Not Cells(Zeile - 1 + i, Spalte).HasFormula Then Cells(Zeile - 1 + i, Spalte) = ""
Next Spalte
next i

Gruß
gordon

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige