Re: Laufende Nummern über Formeln einfügen?
18.02.2003 20:24:12
Uwe
Hallo Nadja,
ein solches Problem hatte ich mit Auftragsnummern.
Natürlich mußt du irgendwo eine Tabelle haben, in der alle schon vorhandenen Nummern gespeichert sind.
Vielleicht kannst Du mit diesem Code etwas anfangen...evtl. als Funktion umschreiben.
Gruß UweSub Auftragsnummer()
Dim n As Integer
Application.ScreenUpdating = False
' Bereich, wo vorhandene Auftragsnummern stehen können, kopieren
Worksheets("Dispo").Range("B3:B65536").Copy
' temporär in irgendeine Tabelle einfügen
Worksheets("Blank").Range("A1").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Worksheets("Blank").Select
' sortieren
Columns("A:A").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
'Startzelle
Range("A1").Select
'Schleife beginnen und nächste freie Nummer ermitteln
n = 0
Do While ActiveCell.Offset(n, 0).Value = ActiveCell.Offset(n, 0).Row
n = n + 1
Loop
'Variable AuftragsNr nächste freie Nummer zuweisen
AuftrNr = ActiveCell.Offset(n, 0).Row
'temporäre Kopie aller Nummern wieder löschen
Columns("A:A").ClearContents
Worksheets("Dispo").Select
Application.ScreenUpdating = True
End Sub