Sub tt()
Dim Liste As String, L As Integer
For L = 1 To ThisWorkbook.Worksheets.Count
Liste = Liste & ThisWorkbook.Worksheets(L).Name & ","
Next L
Range("C8").Value = Left(Liste, Len(Liste) - 1)
End Sub
Sub tt()
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
wks.Range("C8").Value = wks.Name
Next wks
End Sub
Sub tt2()
Dim wks As Worksheet, Formel As String
Formel = "=mid(GET.CELL(32),find(""]"",GET.CELL(32))+1,99)"
ThisWorkbook.Names.Add Name:="Blatt", RefersToR1C1:=Formel
For Each wks In ThisWorkbook.Worksheets
wks.Range("C8").Formula = "=Blatt"
Next wks
End Sub
Sub tt()
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
wks.Range("C8").Value = wks.Name
Next wks
End Sub
Sub tt2()
Dim wks As Worksheet, Formel As String
Formel = "=mid(GET.CELL(32),find(""]"",GET.CELL(32))+1,99)"
ThisWorkbook.Names.Add Name:="Blatt", RefersToR1C1:=Formel
For Each wks In ThisWorkbook.Worksheets
wks.Range("C8").Formula = "=Blatt"
Next wks
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen