Excel Zeilen Nummerierung

Eigene Nummerierung in Spalte A vergeben ... , Start mit 3000 ??
Ax Nummer um 1 erhöhen = WENN Bedingung erfüllt ... , sonnst "" (= leer) ?? 

Danke für die Hilfe, hab aber soeben meine passende Lösung schon gefunden!!!

mfg
Markus

Wir sind immer neugierig , WIE denn ein Problem gelöst wurde !!
Hilfst Du uns auf die Sprünge ??

Hallo!

Ich hab von einem Mitglied eines anderen Forums ein Makro geschrieben bekommen, mit diesem hat die Nummerierung ohne Probleme funktioniert. Ich kann die Datei leider nicht anhängen, da diese 1,5 MB hat, Vielleicht kann ja ein Forum Moderator diese Bsp Datei anhängen?

Ansonsten, hier ist der Quellcode:

Sub nummerieren()
Dim wks As Worksheet
Dim z As Long
Set wks = Worksheets("Tabelle1")
i = 30000
For z = 1 To 20
   Do While Left(wks.Cells(z, 1), 3) = "230" Or Left(wks.Cells(z, 1), 3) = "INT"
     z = z + 1
   Loop
   wks.Cells(z, 1) = i
   wks.Cells(z, 1).Font.ColorIndex = 3
   i = i + 1
Next
End Sub

Sub löschen()
Dim wks As Worksheet
Dim z As Long
Set wks = Worksheets("Tabelle1")
anz = wks.Range("A65536").End(xlUp).Row
wks.Range("A1:A" & anz).ClearContents
End Sub

Sub kopieren()
Dim wks As Worksheet
Dim z As Long
Set wks = Worksheets("Tabelle1")
anz = wks.Range("B65536").End(xlUp).Row
wks.Range("b1:b" & anz).Copy Destination:=wks.Range("A1")
End Sub

Mit dem Ersten Makro kann ich die Nummerierung in der Spalte durchführen, mit dem zweiten kann ich die erste Spalte löschen und mit dem dritten kann man den Inhalt der Spalte B in den Bereich der Nummerierung einfügen!

mfg
Markus

DANKE ,
das muss ich nicht mehr lernen , glaub ich ... aber es hilft bestimmt jemand !
PS: Ich glaube , ich habs sogar verstanden ...
Glaube , das wäre auch mit einer WENN-Zeile hinzubekommen .....  ???