Guten Tag VBler,
ich habe eine Excel Tabelle deren Spalte A nummeriert werden soll, wenn in Spalte B etwas drin steht.
Zellen mit Inhalt A, B, C, ...usw. sollen nicht nummeriert werden.
Hier mein bisheriges Makro. Aktuell funktioniert es nur mit "A".
Besten Dank für Eure Vorschläge und Hilfen!
ich habe eine Excel Tabelle deren Spalte A nummeriert werden soll, wenn in Spalte B etwas drin steht.
Zellen mit Inhalt A, B, C, ...usw. sollen nicht nummeriert werden.
Hier mein bisheriges Makro. Aktuell funktioniert es nur mit "A".
Besten Dank für Eure Vorschläge und Hilfen!
VB.NET-Quellcode
- Sub zaehlen()
- Dim Input_0 As Variant, Output_0() As Variant
- Dim Zaehler_0 As Long, Index_0 As Long
- Input_0 = Range(Cells(2, 2), Cells(Rows.Count, 2).End(xlUp)).Value
- ReDim Output_0(LBound(Input_0) To UBound(Input_0), 0)
- For Index_0 = LBound(Input_0) To UBound(Input_0)
- If Not IsEmpty(Input_0(Index_0, 1)) And Not (Input_0(Index_0, 1) = "A") Then
- Zaehler_0 = Zaehler_0 + 1
- Output_0(Index_0, 0) = Zaehler_0
- End If
- Next
- Cells(2, 1).Resize(UBound(Output_0), 1).Value = Output_0
- End Sub