Fehler im Code
02.02.2006 08:49:35
Josef
Wenn ich nachstehendes Makro starte und ich in der Inputbox einen Namen eingeben möchte, so erhalte ich die Meldlung, dass die eingabe keine Zahl ist.
Wo liegt hier bitte der Fehler?
Danke
Josef
Sub Makro1()
Dim UN As String
UN = Application.InputBox("Username bitte eingeben:", Type:=1)
If UN = False Then Exit Sub
With Application
.UserName = UN
.StandardFont = "Arial"
.StandardFontSize = "10"
.DefaultFilePath = "H:\Arbeit"
.AltStartupPath = "H:\OFFICE2003\XLSTART"
.EnableSound = False
.RollZoom = False
End With
End Sub
Anzeige