Computerhilfen.de Logo
Forum
Tipps
News

Excel Zeilen Nummerierung

Hallo!

Wie kann ich im Excel die Zeilen die Zeilen 1 - 35.000 fortlaufend nummerieren lassen, wenn folgendes beachtet werden muss, in dieser Spalte kommen immer wieder Zelleneinträge vor die nicht überschrieben werden dürfen, diese beginnen mit "230" und "INT".

Es gibt keine Regelmäßigkeit in den Abständen bei den Zellen die nicht überschrieben werden dürfen.

Die nächste Voraussetzung ist dass das die Nummerierung mit 30000 beginnt!!!

Ich wäre über jeden Tipp sehr dankbar!

mfg
Markus
 



Antworten zu Excel Zeilen Nummerierung:

Hat dir diese Antwort geholfen?

Danke ButtonHilfreiche Antwort Button

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

Hat dir diese Antwort geholfen?

Danke ButtonHilfreiche Antwort Button

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

mfg
Markus

Hat dir diese Antwort geholfen?

Danke ButtonHilfreiche Antwort Button

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

Hat dir diese Antwort geholfen?

Danke ButtonHilfreiche Antwort Button

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

Hat dir diese Antwort geholfen?

Danke ButtonHilfreiche Antwort Button

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 .....  ??? ::)8)

« Letzte Änderung: 25.09.07, 18:12:27 von HCK »

« Serienbrief Word 2003 "Gehe zu" FeldSkype aktualisiert nicht »
 

Schnelle Hilfe: Hier nach ähnlichen Fragen und passenden Tipps suchen!