Hallo zusammen, ich habe ein kleines Problemchen als Neuling:). Ich habe Folgendes programmiert:
Sub Hauptprogramm()
Dim Spalte As Integer
Dim startwert As Integer
Dim Startzeile As Integer
Dim Endwert As Integer
Spalte = 1
startwert = 2
Startzeile = 1
Endwert = Worksheets("Tabelle1").Cells(3, 8).Value
Dim i As Integer
For i = startwert To Endwert
Cells(i, Spalte).Value = startwert
startwert = startwert + 1
Next i
End Sub
ist eine automatische Nummerierung die soweit auch funktioniert. Ich wollte jetzt, dass die Nummerierung sich bei Änderung der Zelle in Worksheets("Tabelle1"). Cells(3, 8) neu aufgesetzt wird. Am besten die alte Nummerierung löschen und die neue Nummerierung aufsetzen. Ich bekomme es leider nicht hin, ich wäre dankbar für jede Hilfe.
|