Wert aus Zelle als Tabellenlattname übernehmen

Hallo,
ich habe folgendes Problem:
Der Name des Tabellenblattes soll aus einer Zelle übernommen werden. Die Tabellenblätter sind von 1 - 29 durchnummeriert.
Mit folgendem Code funktioniert das einwandfrei:
Modul1:
Sub Namen_anpassen_alle()
Sheets(1).Select
B = ActiveSheet.Index
For Each w In Worksheets
Sheets(B).Activate
n = [a1]
On Error Resume Next
w.Name = n
B = B + 1
Next w
Sheets(1).Select
CommandButton1:


Private Sub CommandButton1_Click()
Call Namen_anpassen_alle
End Sub

Die Datei habe ich nun auf einen externen Surfer als Vorlage gespeichert.
Öffne ich nun die Datei, funktioniert die Umbenennung nicht mehr.
Warum?
Wenn diese Angaben nicht reichen sollten, lade ich auch gerne die Datei hoch.
Vielleicht weiß jemand eine Lösung.
Danke!
Alfred

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Namen_anpassen_alle() Sheets(1).Select B = ActiveSheet.Index For Each w In Worksheets Sheets(B).Activate n = [a1] 'On Error Resume Next 'w.Name = n 'B = B + 1 Next w Sheets(1).Select '* Feststehende Registernamen wiederherstellen * ActiveSheet.Name = "Klassenliste" Sheets("Tabelle2").Name = "Bewertung" Sheets("Tabelle3").Name = "Kompetenzen" End Sub

Hallo Onur,
in meiner Datei hat ...
... Tabelle1 den Namen "Klassenliste"
... Tabelle2 den Namen "Bewertung"
... Tabelle3 den Namen "Kompetenzen"
Diese Nammen sollen/müssen beibehalten werden. Da sie mit Modul1 geändert werden, muss ich sie wieder zu ihren alten Namen bringen. Ich weiß nicht, wie es geht, dass mit dem Modul erst ab Tabelle4 die Namen geändert werden.
Ab Tabelle4 soll, ...
... wenn in "Klassenliste" kein Name eingegeben wurde, mit 1 beginnend durchnummeriert werden. Mit "1! beginnend, weil es sich um die erste Person der Klassenliste handelt.
... wenn ein Name in "Klassenliste" eingegeben wurde, der Nachname und der Vorname als Tabellenname übernommen werden. Endet zum Beispiel die "Klassenliste" nach zwei Namen, soll Tabelle4 und Tabelle5 in die jeweiligen Nachnamen und Vornamen umgewandelt werden. Ab Tabelle6 soll diealte Nummerierung stehen (also "3", "4", usw.)
Ich hatte mir die Datei ald Mailanhang hinterlegt. wenn Ich sie öffne, funktioniert das einwandfrei. Aber als ich sie auf den Server gespeichert hatte und sie dann aufrief, klappte es nicht mehr.
Ich habe meine Originaldatei testweise als Vorlage gespeicher. Funktionierte bei mir. Auf der Serverdatei nicht. Also denke ich mir, es könnte etwas mit dem Speicherort zu tun haben. wäre meine einfache Erklärung. ?
Ich bedanke mich für Deine Geduld, die Du aufbringst. Macht nicht jeder.
Gruß,
Alfred

Private Sub CommandButton1_Click() Dim nam, i Sheets(1).Select For i = 1 To Sheets.Count - 3 nam = Trim(Cells(3 + i, 1)) If Cells(3 + i, 2) "" Then nam = Cells(3 + i, 3) & " " & Cells(3 + i, 2) Sheets(3 + i).Name = nam Next i End Sub

Private Sub CommandButton1_Click() Dim nam As String, i As Integer, j As Integer For i = 4 To Sheets.Count If Cells(i, 2) = Empty Then Exit For nam = Trim(Cells(i, 2)) & " " & Cells(i, 1) 'Prüfung ob Blatt schon existiert? For j = 4 To Sheets.Count If Sheets(j).Name = nam Then nam = Empty Next j If nam Empty Then Sheets(i).Name = nam Next i End Sub

Private Sub CommandButton1_Click() Dim nam As String, i As Integer, j As Integer On Error GoTo Fehler For i = 4 To Sheets.Count If Cells(i, 2) = Empty Then Exit For nam = Trim(Cells(i, 2)) & " " & Cells(i, 1) 'Prüfung ob Blatt schon existiert? For j = 4 To Sheets.Count If Sheets(j).Name = nam Then nam = Empty Next j If nam Empty Then Sheets(i).Name = nam Next i Exit Sub 'Ohne Resume next Programm Abbruch! Fehler: MsgBox "Fehler bei Name: " & nam: Resume Next End Sub

Beliebteste Forumthreads (12 Monate)

Wert aus Zelle als Tabellenlattname übernehmen

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

341 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Wert aus Zelle als Tabellenlattname übernehmen

20 Beiträge zum Forumthread Beiträge zu diesem Forumthread

341 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread