Wieso funktioniert in 2000 u. in 97 nicht ?
27.12.2003 19:12:16
Walter
bei mir läuft alles soweit prima.
In meiner Firma haben wir Excel 97 drauf, hier wird meine Userform auch Richtig
angezeigt und läuft auch gut, jedoch wird das Label1 zum Beispiel nicht
angezeigt ???
Hier mein Makro:
Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
On Error Resume Next
Sheets("Geburtstagsliste").Unprotect ("ww")
Hier wird die Zahl angezeigt:
Label1.Caption = Format(Worksheets("Geburtstagsliste"). _
Range("A1").Value
Hiermit läuft in 2000 einwandfrei:
''Label1.Caption = Format(Worksheets("Geburtstagsliste").Range _
'' ("A1").Value, ("dddd, dd.mm.yyyy")) 'muß rein zeigt sofort an
txtDate = Format(Now, "dd.mm.yyyy") 'muß hier stehen,damit
' zeigt akt.Datum an ...
' in der txt Textbox an
Label5.Caption = Format(txtDate, "dddd") 'zeigt Tag als Name an
Application.ScreenUpdating = True
End Sub
Kann mir jeman einen Tip geben ?
Gruß Walter