Guten Morgen,
ich habe eine Tabelle mit folgendem Aufbau: z.B.
001_BU14_11 oder 005_BU14_16 oder 131_BU14_358.
Ich suche eine eine einfachere Möglichkeit,die Spalte H abzufragen, welches die nächste fortlaufende Nummer ist. Hierbei zählen jedoch nur die max. letzten 3 Ziffern.
Soll heißen: ich erstelle eine neue Nummer, z.B 009_BU14_ und brauche nun die 359
zum Anhängen.
Gruß
Reinhardt
Mein wahrscheinlich zu komlizierter Ansatz: Sub NeueBU_NR() Dim LZ% Sheets("Bu_Liste").Select LZ = Cells(Rows.Count, 2).End(xlUp).Row 'Ziffern aus BU_NR von rechts ermitteln Range("N3").Select ActiveCell.FormulaR1C1 = _ "=PROPER(MID(RC[-6],FIND(""_"",RC[-6])+6,FIND(""_"",RC[-6])-FIND(""_"",RC[-6])+5))" Range("N3").Select Selection.AutoFill Destination:=Range("N3:N" & LZ) Range("N3:N" & LZ).Select Selection.Copy 'In die nächste Spalte kopieren Range("O3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False 'Mit 1 multipizieren Range("O2").Select ActiveCell.FormulaR1C1 = "1" Range("O2").Select Selection.Copy Range("O3:O" & LZ).Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _ SkipBlanks:=False, Transpose:=False 'MAX Formel Range("O1").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "=MAX(R[2]C:R[1000]C)+1" 'Letzte BU_ListenNR+1 eintragen Range("O1").Select Selection.Copy Sheets("Formular").Select Range("H19").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 'Neue BU_Nr zusammenstellen Range("H18").Select ActiveCell.FormulaR1C1 = "=LEFT(R[-17]C,9)&R[1]C" Range("H18").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Range("H19").Select Selection.ClearContents 'BU_NR Berechnung wieder löschen Sheets("Bu_Liste").Select Columns("N:O").Select Selection.ClearContents Range("A3").Select Sheets("Formular").Select Range("I18").Select End Sub