Hallo,
bin jetzt leicht am verwzeifeln 
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