Office: Automatisches Nummerieren von Tabellenblätter + Namensgebung

Hallo,

ich suche ein Makro für folgendes Problem:

ich habe 38 Tabellenblätter die mit dem Namen aus Zelle C6 des jeweiligen Blattes benannt werden sollen. Des weiteren soll er mir die Tabellenblätter durchzählen und die Anzahl in r6 bzw u6 ausgeben. (enstpricht z.B. Seite: 1 von: 5)
Des weiteren kommt es öfter vor, dass ein paar Tabellenblätter gelöscht werden, dann sollen die Seitenzahlen automatisch angepasst werden.


Und noch so eine kleine Zusatzfrage: Ich glaube zwar, dass das nicht funktioniert, aber ist es möglich dass ich die Zellen C,D und E6 verbinde und den Namen da einfüge, so dass sich das Makro dann auf diese drei Zellen bezieht?

Vielen Dank schon mal für die Hilfe.

 

Hallo!

zum Testen:

Code:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim Blatt As Worksheet
    Application.EnableEvents = False
    For Each Blatt In ThisWorkbook.Worksheets
        With Blatt
            If .Range("C6") <> "" Then .Name = .Range("C6")
            .Range("R6") = .Index
            .Range("U6") = ThisWorkbook.Sheets.Count
        End With
    Next Blatt
    Application.EnableEvents = True
End Sub

Auf verbundene Zellen solltest du nach Möglichkeit IMMER verzichten.

 

Hallo,

egal was ich mache, ich bringe das Makro nicht zum Laufen.
Muss ich noch irgendwas beachten bzw. umstellen, damit es funktioniert?

 

Hallo!

Wo hast du's denn eingebaut? Es gehört ins Modul "DieseArbeitsmappe". Es springt an, wenn in einem Blatt eine Änderung erfolgt, also z.B. eine neue Eingabe.

 

Ich habe es jetzt in das Modul "DieseArbeitsmappe" eingefügt, aber wenn ich es ausführen möchte, dann öffnet sich immer ein Fenster in dem ich den Makroname eingeben soll.

Muss ich zusätzlich noch was machen?

 

Hallo!

Das Makro startet bei einer Änderung AUTOMATISCH!

 

Hi,

wie man die Tabellenblätter durchnummerieren kann, dazu findest du unter dem folgenden Link http://www.excelformeln.de/formeln.html?welcher=268 eine Formellösung

Bis später,
Karin

 

Ah...jetzt.

Vielen Dank, hat mir echt weiter geholfen.