Fortlaufende Nummerierung über mehrere Tabellen

[leiliti]

Hallo zusammen,

ich habe ein kleines vll auch größeres Problem und weiß nicht genau wie ich dieses angehen soll...

Ich habe mehrere Tabellenblätter in Zelle A1 auf Tabelle 1 steht die Zahl 1, in Zelle A1 auf Tabelle 2 die Zahl 2, in Zelle A1 auf Tabelle 3 die Zahl 3, usw.
Nun möchte ich, dass wenn Tabelle 2 ausgeblendet wird in Zelle A1 der Tabelle 3 nun die Zahl 2 steht.

Ich hoffe es ist verständlich was ich versuche zu erreichen.

Danke schonmal im Voraus für die Hilfe.

[NobX]

Hallo leiliti,

ist ggf. komplett mit VBA lösbar. Kann Dir einen Vorschlag für eine Teillösung machen. Ist nicht besonders elegant, - könnte aber funktionieren:

Code:

Option Explicit

Sub Namen_uebertragen()
    Dim intI As Integer
    For intI = 2 To Worksheets.Count
        Cells(intI - 1, 1).Value = Worksheets(intI).Name
    Next
End Sub

Hier werden die Tabellenblätter in die Spalte "A" (im Beispiel als Hilfsspalte) geschrieben, außer das erste. Dann kannst Du die Anzahl der Tabellenblätter per Formel ermitteln:

Code:

=ANZAHL2(A1:A9)+1

Mit dieser Information der Anzahl der Tabellenblätter kannst Du Dir auf den Blättern die Zellen A1 abhängig von der ermittelten Anzahl der Tabellenblätter ermitteln lassen indem Du Werte in Abzug bringst oder wieder hinzufügst. Zugegeben etwas umständlich, kann ausgestaltet werden! Vielleicht hat ein anderer Teilnehmer im Forum die perfekte Lösung mit einem kompletten VBA Code. 

Grüße 
NobX