mit
Sub namen_ermitteln()
MsgBox (Environ("Username"))
End Sub
erhalte ich in Exel 2007 den Anmeldenamen des Users, der die Arbeitsmappe öffnet. Nun wollte ich das ganze etwas abändern und erreichen das bei einem bestimmten Anmeldenamen ein Begrüßungstext in der MsgBox steht. Versucht habe ich das mit
Private Sub Workbook_Open()
'autostart beim öffnen der Exelmappe
Dim strName As String
strName = Environ("Username").Value
If strName = "mustermann" Then
MsgBox "Hallo Max, viel Spaß bei der Arbeit", vbExclamation, "Begrüßung"
Else
MsgBox "Hallo, Dich kenne ich nicht!", vbExclamation, "Begrüßung"
End If
End Sub
Momentan bekomme ich dieser Variante immer einen Laufzeitfehler 425 (Objekt erforderlich), wenn ich dann auf Debuggen gehe, wird
strName = Environ("Username").Value
gelb hinterlegt. Da ich VBA nur aus dem Makrorecorder kenne, habe ich über die Hilfe versucht mir das selbst zusammen zu bauen. In der Zeile mit Dim am Anfang glaube ich strName als Variable mit Textinhalt zu definieren und in der gelb hinterlegten Zeile weise ich der Variablen einen Wert zu, nämlich den Inhalt von Environ("Username"). Achso und das ganze steht unter "Diese Arbeitsmappe", damit es automatisch beim start ausgeführt wird.
Wo liegt der oder die Fehler?
Gruß
Bubble