Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
480to484
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
480to484
480to484
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Wie weiter?

Wie weiter?
08.09.2004 13:25:10
Thomas
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wie weiter?
08.09.2004 13:32:47
Lutz
Hallo Thomas,
If UCase(strUsergross).Value = "TZ" Then
Schützen_Montage
End If
AW: Wie weiter?
Udo

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

Udo
Das ging ja schnell - und es läuft!!!
08.09.2004 14:15:00
Thomas
Besten Dank an Euch beide - es läuft!
Viele Grüsse aus der Schweiz
Thomas
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige