Kontrolle bei Zeilen einfügen
07.09.2003 19:48:28
Peter
Dank dem Forum, habe ich die Datei jetzt fast fertig. Ein kleiner "Feinschliff"
fehlt noch ...
Private Sub CommandButton1_Click()
Range("A6").Select
Dim Zeile As Long, Spalte As Integer
Dim InsertRows As Long, i As Long
Zeile = Selection.Row + 1
Do
InsertRows = InputBox("einfügen")
If InsertRows > 50 Then MsgBox "wieviel Zeilen sollen eingefügt werden"
Loop Until InsertRows <= 50
For i = 1 To InsertRows Step 1
ActiveWindow.DisplayHeadings = False
Rows("5:7").Select
Range("A6").Select
Selection.EntireRow.Hidden = False
Selection.Offset(i, 0).EntireRow.Insert Shift:=xlDown
Selection.EntireRow.Copy Selection.Offset(i, 0).EntireRow
For Spalte = 1 To 10
If Not Cells(Zeile - 1 + i, Spalte).HasFormula Then Cells(Zeile - 1 + i, Spalte) = ""
Next Spalte
Next i
Rows("6:6").Select
Selection.EntireRow.Hidden = True
Range("A7").Select
Unload Me
ActiveWindow.DisplayHeadings = True
End Sub
was jetzt noch fehlen würde, wenn noch leere Zeilen vorhanden sind und jemand
will trotzdem schon wieder neue Zeilen einfügen, sollte eine MSGBOx aufgehen,
das immer noch leere Zeilen (am besten noch die Anzahl) vorhanden sind.
Der Zeilenbereich ist von Spalte A bis J eingerichtet. Solange in der letzten
leeren Zeile, in Spalte A kein Wert steht, sollten keine neuen Zeilen eigefügt
werden können.
Gruß Peter