automatische Nummerierung

Hallo Excel-Freunde,
ich weiß, wieder das leidige Thema "automatische Nummerierung", aber bei meiner Recherche im Forum habe ich "irgendwie" nichts passendes gefunden.
Mein Problem: Über eine Schaltfäche werden Daten von einer Tabelle (Stammdaten) in eine andere (Auftrag)(der gleichen Mappe) eingelesen. In der Tabelle "Auftrag" lasse ich eine automatische Nummerierung mit WENN / ZEILE usw. erfolgen. Nun möchte ich aber, das die automatische Nummerierung als festen Wert eingetragen wird, damit sich eben diese Nummer zum Auftrag nicht mehr ändert. Ich möchte gerne, dass das automatisch beim Einlesen der Tabelle "Stammdaten" erfolgt. Geht das? So als kleines VBA?!! :-)
Und richtig klasse wäre, wenn ich im Blatt "Auftrag" einen lösche und statt dessen manuell Daten eintrage, das Excel nachguckt, welche nächste Nummer ist frei und diese vergibt (wieder als Wert) !!! Ist heftig, ich weiß.
Wäre toll, wenn Ihr mir helfen könnt. Vielen Dank schon mal!
Gruß
Cordula

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Dim lz As Integer If Cells(Target.Row, 1) = "" Then lz = Cells(Rows.Count, 1).End(xlUp).Row ' letzte Zeile Cells(Target.Row, 1) = WorksheetFunction.Max(Range(Cells(2, 1), Cells(lz, 1))) + 1 End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim lz As Integer If Not Intersect(Target, Range("D9:D" & Rows.Count)) Is Nothing Then If Cells(Target.Row, 2) = "" Then lz = WorksheetFunction.Max(Cells(Rows.Count, 4).End(xlUp).Row, 9) ' letzte Zeile/min.9 Cells(Target.Row, 2) = WorksheetFunction.Max(Range(Cells(9, 2), Cells(lz, 2))) + 1 End If End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim lz As Integer If Cells(Target.Row, 2) = "" And Not IsEmpty(Cells(Target.Row, 4)) Then lz = Cells(Rows.Count, 2).End(xlUp).Row ' letzte Zeile Cells(Target.Row, 2) = WorksheetFunction.Max(Range(Cells(9, 2), Cells(lz, 2))) + 1 End If End Sub

Hey Beni und Matthias,
also, folgendes Makro (Auszug) ist vorhanden, um die Daten zu übertragen:
Sheets("Auftrag").Select
Range("C9:L450").Select
Selection.ClearContents
Range("l9").Select
Cells(4, 3) = a
m = 1
For i = 9 To l + 9
Cells(i, 4) = c(m)
Cells(i, 5) = d(m)
Cells(i, 6) = e(m)
Cells(i, 7) = f(m)
Cells(i, 8) = g(m)
Cells(i, 9) = h(m)
Cells(i, 10) = j(m)
Cells(i, 11) = k(m)
m = m + 1
Next i
********* hier sollte doch eigentlich die automatische Nummerierung erfolgen oder?****** Cordula
******* ab hier werden die eingelesenen Daten automatisch weitergegeben***** Anmerkung von Cordula
Range("B9:K450").Select
Application.CutCopyMode = False
Selection.Copy
Workbooks.Open Filename:= _
"f:\Programme\Bearbeitung\feinplanung.xls"
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWorkbook.Close
Windows("Programm.xls").Activate
Range("E5").Select
Application.ScreenUpdating = True
End Sub
Wißt Ihr Rat? Wäre immer noch toll!!
Gruß
Cordula

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread