Nummerierung Spalte B wenn in C Wert vorhanden

Hallo,

bin jetzt leicht am verwzeifeln :frowning:
Habe folgendes Problem:

Ich habe 2 Spalten. In der Spalte C werden alle Spalten per Makro ausgeblendet ohne Wert. Jetzt soll in Spalte B Nummeriert werden wenn in C was steht und die Nummerierung auch aktualisiert werden wenn ich ein Spalte hinzufΓΌge oder lΓΆsche.
Entweder ich bekomm nur 1en angezeigt oder er nummeriert aber in der A Spalte mit Bezug auf B oder er nummeriert die Spalten wie sie noch vorhanden sind als wΓ€ren sie nicht ausgblendet.
Vielleicht kann mir da jemand helfen. Die Werte stehen nur im Bereich β€žC5:C90β€œ. So sollen die auch in der Spalte B ΓΌbernommen werden.

Vielen Dank im Vorraus.

Nicole

Ich habe 2 Spalten. In der Spalte C werden alle Spalten per
Makro ausgeblendet ohne Wert. Jetzt soll in Spalte B
Nummeriert werden wenn in C was steht und die Nummerierung
auch aktualisiert werden wenn ich ein Spalte hinzufΓΌge oder
lΓΆsche.
Entweder ich bekomm nur 1en angezeigt oder er nummeriert aber
in der A Spalte mit Bezug auf B oder er nummeriert die Spalten
wie sie noch vorhanden sind als wΓ€ren sie nicht ausgblendet.
Vielleicht kann mir da jemand helfen. Die Werte stehen nur im
Bereich β€žC5:C90β€œ. So sollen die auch in der Spalte B
ΓΌbernommen werden.

Hallo Nicole,

mit Spalte(n) im Text meinst du sicher ab und zu Zelle(n).
Zeig mal deine Codes.
Nachstehend ist ein Tabellenausriß, ist das so wie du es per
Vba haben mΓΆchtest?

Tabellenblatt: [Mappe1]!Tabelle1
 β”‚ B β”‚ C β”‚
───┼───┼────────
 5 β”‚ 1 β”‚ Wert1 β”‚
───┼───┼────────
 6 β”‚ 2 β”‚ Wert2 β”‚
───┼───┼────────
 7 β”‚ β”‚ β”‚
───┼───┼────────
 8 β”‚ β”‚ β”‚
───┼───┼────────
 9 β”‚ 3 β”‚ Wert3 β”‚
───┼───┼────────
10 β”‚ 4 β”‚ Wert4 β”‚
───┼───┼────────
11 β”‚ 5 β”‚ Wert5 β”‚
───┼───┼────────
12 β”‚ β”‚ β”‚
───┼───┼────────
13 β”‚ 6 β”‚ Wert6 β”‚
β”€β”€β”€β”΄β”€β”€β”€β”΄β”€β”€β”€β”€β”€β”€β”€β”˜
Benutzte Formeln:
B5 : =WENN(C5="";"";1)
B6 : =WENN(C6="";"";MAX($B$5:B5)+1)
B7 : =WENN(C7="";"";MAX($B$5:B6)+1)
B8 : =WENN(C8="";"";MAX($B$5:B7)+1)
usw. in B

B5:C13
haben das Zahlenformat: Standard

Tabellendarstellung erreicht mit dem Code in FAQ:2363

Gruß
Reinhard

Hallo Reinhard

leider funktioniert es auch nicht. Ich habe 4 Spalten.
B=Nummerierung
C=Name
G=Status

Normal sind alle Namen in Spalte C. Habe sie aber per Makro mit:

Application.ScreenUpdating = True
Set Cellrange = Tabelle10.range(β€žG5:G90β€œ)
For Each cell In Cellrange
cell.EntireRow.Hidden = (cell.Value