Hallo zusammen,
ich arbeite an einer Excel Auswertung in der auch eine Durchnummerierung der vorhandenen Datensätze erfolgt. Momentan habe ich das mit der Funktion "ZÄHLENWENN" mittels VBA gelöst.
Dabei habe ich ein Makro geschrieben welches eine neue Spalte vorne einfügt, dann schaut ob in der ersten Zelle in der theoretisch ein Wert stehen könnte nach Inhalt überprüft und wenn dies zutrifft
eine Nummerierung bis zum letzten Datensatz macht. Das ganze sieht so aus:
Soweit hat auch alles funktioniert und ich war glücklich...heute tritt plötzlich ein Fall ein, der alles doch zu einem Fehler führen lässt:
Auf einem Datenblatt welches durchnummeriert werden sollte, erscheint in der Tabelle nur ein einziger Wert und ich vermute es dadurch wird mir dann der Fehler:
Meine Frage lautet nun, wie ich mittels VBA so eine Nummerierung anders gestalten könnte, so das auch nur ein vorhandener Datensatz ohne abbruch nummeriert wird.
Tausend Dank schonmal.
ich arbeite an einer Excel Auswertung in der auch eine Durchnummerierung der vorhandenen Datensätze erfolgt. Momentan habe ich das mit der Funktion "ZÄHLENWENN" mittels VBA gelöst.
Dabei habe ich ein Makro geschrieben welches eine neue Spalte vorne einfügt, dann schaut ob in der ersten Zelle in der theoretisch ein Wert stehen könnte nach Inhalt überprüft und wenn dies zutrifft
eine Nummerierung bis zum letzten Datensatz macht. Das ganze sieht so aus:
Quellcode
- Sub Nummerieren()
- ActiveSheet.Columns("A:A").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
- If ActiveSheet.Cells(3, 2).Value <> "" Then
- Range("A3").FormulaR1C1 = "=IF(RC2<>"""",COUNTA(RC2:R3C2),"""")"
- Z = Selection.CurrentRegion.Rows.Count
- Range("A3").AutoFill Destination:=Range(Cells(3, 1), Cells(Z, 1)), Type:=xlFillDefault
- Columns("A:A").Font.Bold = True
- Else
- End If
- End Sub
Soweit hat auch alles funktioniert und ich war glücklich...heute tritt plötzlich ein Fall ein, der alles doch zu einem Fehler führen lässt:
Auf einem Datenblatt welches durchnummeriert werden sollte, erscheint in der Tabelle nur ein einziger Wert und ich vermute es dadurch wird mir dann der Fehler:
Laufzeitfehler '1004':
Die AutoFill-Methode des Range-Objektes konnte nicht ausgeführt werden.
Meine Frage lautet nun, wie ich mittels VBA so eine Nummerierung anders gestalten könnte, so das auch nur ein vorhandener Datensatz ohne abbruch nummeriert wird.
Tausend Dank schonmal.