fortlaufende Nummerierung erhöhen bei Zeilen einfü
08.10.2016 21:54:05
Andreas
Meine CMD (Button 35) fügt mir eine Leerzeile ein, und verschiebt den Bereich darunter um eine Zeile nach unten, Das geht wunderbar.
Endet aber in der Spalte A die fortlaufende Nummerierung, dann wird die letzte Zeile zwar nach unten verschoben, aber gelöscht.
Abhilfe wäre hier:
Abfrage, ob am Schluß in Spalte A eine Zahl vorhanden ist, bevor die Zeile mit den Spalten B bis N nach unten verschoben wird. Wenn nein, dann soll sich die Zahl in der Spalte A um eins erhöhen, bevor die Zeile nach unten verschoben wird?
Ist für mich nicht so einfach zu Programmieren.
Lade mal eine Tabelle mit hoch https://www.herber.de/bbs/user/108676.xlsm
hier mein Code, der das alles verschiebt- in Spalte C testen. mit Doppelklick
Code:
Private Sub CommandButton35_Click()
Dim lngLetzte As Long
If Cells(ActiveCell.Row, 1).Value = "" Then Exit Sub
Cells(ActiveCell.Row, 2).Resize(1, 13).Insert Shift:=xlDown, CopyOrigin:= _
xlFormatFromLeftOrAbove
lngLetzte = Cells(ActiveCell.Row, 1).End(xlDown).Row
Cells(lngLetzte + 1, 2).Resize(1, 13).Delete Shift:=xlUp
End Sub
Gibt es da eine Lösung?
Grüße Andreas
Anzeige