Blattname
11.02.2004 09:15:48
Frank
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