So habe ich es bis jetzt gelöst.
Weiter unten der Makro der das Arbeitsblat unter andern umbenennt
Sub blatt()
' Makro3 Makro
' Makro am 13.03.2004 von Herbert aufgezeichnet
Dim mappe
Sheets("start").Select
Range("A1").Select
Set mappe = ActiveCell 'Name der aktiven Arbeitsmappe im Feld A1
Sheets("Abrechnung").Select
mappe = mappe + ".xls"
Range("D3").Select
ActiveCell.FormulaR1C1 = mappe
Workbooks.Open Filename:="Inhaltsverzeichnis.xls"
Workbooks(mappe).Activate
End Sub
Dieser Makro funktioniert, doch
würde ich gerne nicht diesen Umweg machen sonder den Namen der aktiven Arbeitsmappe in die Variable "mappe" einlesen und später darauf zugreifen
********************************
In dem Feld A1 las ich den Namen der Arbeitsmappe schreiben
Sub Neues_Monat()
' Neues_Monat Makro
' Makro am 13.03.2004 von Herbert aufgezeichnet
Dim namen, speich, mon
Dim monat As Date
namen = InputBox("Bitte geben Sie den Namen und Vornamen des Kollegen ein !")
monat = InputBox("Bitte geben Sie das Monat in Form (z.B. 1.3) für März ein !")
Sheets("Abrechnung").Select
ActiveSheet.Unprotect
Range("C1").Select
ActiveCell.FormulaR1C1 = monat
Range("E1").Select
ActiveCell.FormulaR1C1 = namen
Range("J3").Select
Set mon = ActiveCell
Sheets("Start").Select
ActiveSheet.Unprotect
speich = mon + " " + namen
ActiveWindow.SelectedSheets.Visible = False
ActiveWorkbook.SaveAs Filename:=speich, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Range("A1").Select 'hier lasse ich den Namen einschreiben
ActiveCell.FormulaR1C1 = speich
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Abrechnung").Select
Range("A3").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub