Option Explicit
Sub NaechsteNr_Bsp() 'Dieses Beispiel ist die denkbar einfachste Art der Realisierung, jedoch nicht die effektivste
Dim rngNums As Excel.Range
Dim Nr As Integer
With Worksheets("Tabelle1")
'Datenbereich ermitteln (A7:A?), dabei
'wird von unten nach oben nachgesehen
'und die erste Zelle mit Inhalt hergenommen (Anm.: mindestens in A7 muss ein Wert stehen)
Set rngNums = .Range("A7", .Cells(.Rows.Count, "A").End(xlUp))
End With
Nr = WorksheetFunction.Max(rngNums) 'größte Nummer in dem Bereich ermitteln
'nächste_Nummer := Nr + 1
End Sub
>> Jetzt wollte ich aber eine Funktion einfügen die den Inhlt löscht.
Inhalt löschen bedeutet z.B.:
Range("A3").ClearContents
Danach ist die Zelle leer.
Eine Zelle oder Zeile(n)/Spalte(n) löschen bedeutet z.B.:
Range("A3").Delete
Dabei werden Zellen die rechts oder darunter liegen entspr. nach links oder nach oben verschoben.
Insert ist dann genau das gegenteil davon, es fügt Inhalt an einer Stelle ein und verschieb die anderen Zellen in die entspr. Richtung um für den neuen Inhalt Platz zu schaffen.
|