Wie weiter?
08.09.2004 13:25:10
Thomas
Habe wiedermal ein Problem - mein Makro ruft nicht das Sub-Makro auf.
Kann mir jemand weiterhelfen?
Sub AAAAA() ''Auto_open()
Dim strUserklein, strUsergross As String
Dim myTime As Date
strUserklein = Environ("Username")
strUsergross = UCase(strUserklein)
If UCase(strUsergross).Value = "TZ" Then Call Schützen_Montage
End Sub
Sub Schützen_Montage()
Cells.Select
Selection.Locked = False
Selection.FormulaHidden = False
Application.Goto Reference:="Montage"
Selection.Locked = True
Selection.FormulaHidden = False
Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.Goto Reference:="Montage"
Selection.Locked = True
Selection.FormulaHidden = False
Range("A1").Select
End Sub
Möchte also den Wert meines Log'names verwenden, um in ein Sub-Makro zu springen?!
Besten Dank für Eure Ratschläge.
Gruss Thomas
Anzeige