Wie weiter?

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

Wie weiter?

Wie weiter? von Thomas vom 08.09.2004 13:25:10

AW: Wie weiter? - von Lutz am 08.09.2004 13:32:47
AW: Wie weiter? - von Udo am 08.09.2004 13:42:51
Das ging ja schnell - und es läuft!!! - von Thomas am 08.09.2004 14:15:00

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