AW: kann nicht sein, zeig dein Makro ! ow
17.01.2012 12:25:22
obelix-xxl
Hallo robert,
hier die beiden Makros (siehe auch oben).
Sub tt()
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
wks.Range("C8").Value = wks.Name
Next wks
End Sub
eine weitere Lösung:
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
obelix