Makro Fehler nur bei Excel97
02.02.2004 20:09:52
Walter
habe ein kleines Problem.
Mein Makro läuft in Excel 2000, jedoch in Excel 97 kommt Fehlermeldung:
"Laufzeitfehler '13' Typen unverträglich !
Hier mein Makro:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsDate(TextBox1) Then
MsgBox "Nur Datums Wert!", vbCritical
TextBox1.SetFocus
Cancel = True
With TextBox1
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
'On Error Resume Next
Else
ActiveCell = Format(TextBox1, "dd.mm.yyyy") '<<< hier die Fehlermeldung !!!
TextBox1 = ActiveCell
Worksheets("VF-Blatt").Range("G7").Value = TextBox1
TextBox1.SetFocus
With TextBox1
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End If
End Sub
Es wäre schön wenn mir jemand kurfristig aus der Patsche helfen könnte.
Gruss Walter
Anzeige