Microsoft Excel

Herbers Excel/VBA-Archiv

Wie weiter?

Betrifft: Wie weiter? von: Thomas
Geschrieben am: 08.09.2004 13:25:10

Hallo hilfreiches Forum!

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
  


Betrifft: AW: Wie weiter? von: Lutz
Geschrieben am: 08.09.2004 13:32:47

Hallo Thomas,

If UCase(strUsergross).Value = "TZ" Then
Schützen_Montage
End If


  


Betrifft: AW: Wie weiter? von: Udo
Geschrieben am: 08.09.2004 13:42:51

Sub AAAAA() ''Auto_open()
If Ucase(Environ("Username")) = "TZ" Then call Schützen_Montage
End Sub


Udo


  


Betrifft: Das ging ja schnell - und es läuft!!! von: Thomas
Geschrieben am: 08.09.2004 14:15:00


Besten Dank an Euch beide - es läuft!

Viele Grüsse aus der Schweiz
Thomas


 

Beiträge aus den Excel-Beispielen zum Thema "Wie weiter?"