Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
380to384
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
380to384
380to384
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Blattname

Blattname
11.02.2004 09:15:48
Frank
Hallo,
ich habe folgendes Makro:

Sub Blattname()
Dim blatt As Object
Dim zeile As Double
zeile = 6
For Each blatt In Sheets
ActiveSheet.Cells(zeile, 1).Value = blatt.Name
zeile = zeile + 1
Next blatt
End Sub

Mit diesem Makro wird der Wert aus einer Zelle als Blattname verwendet. Dies klappt immer nur für ein Blatt. Es wäre aber wichtig, wenn es für alle Blätter
innerhalb der Arbeitsmappe (bis auf das letzte) funktionieren würde. Ich bekomme
es aber nicht hin.
Gruß
Frank

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blattname
11.02.2004 09:22:18
Galenzo
Hallo Frank,
wenn du die Blätter entsprechend der ersten Zelle der 6. Zeile umbenennen willst,
muß die Funktiopn genau andersherum geschreiben werden.
Mein Vorschlag:


Private Sub CommandButton2_Click()
    Dim wks As Worksheet
    For Each wks In Worksheets
        wks.Name = wks.Cells(6, 1)
    Next
End Sub

mfg
Anzeige
AW: Blattname
11.02.2004 09:30:20
Frank
Hallo Galenzo,
danke für Deine Antwort. Wenn ich das Makro starte kommt die Antwort:
Methode Name für Objekt Worksheet ist fehlgeschlagen.
Gruß
Frank
AW: Blattname
11.02.2004 09:40:22
Galenzo
Natürlich beinhaltet dies kurze makro keine Fehlerroutine.
Dieser Fehler tritt dann auf, wenn die Zelle(6,1) leer ist; wenn dann versucht wird, dem Blatt einen "leeren" Namen zu geben geht das doch nicht.
Ebenso wird es einen Fehler geben, wenn 2 Blätter den gleichen Namen kriegen sollen.
Diese Fehlermöglichkeiten mußt du also vorher noch abfangen.
mfg
AW: Blattname
11.02.2004 09:43:33
AndreasS
Morgen,
hier ein weiterer Vorschlag...

Sub Tabellenname()
On Error GoTo 0
For i = 1 To Sheets.Count
If Sheets(i).Range("E1").Value <> "" Then Sheets(i).Name = Sheets(i).Rang("E1").Value
Next i
End Sub

Gruß Andreas
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige