Variable TextBox? - Zeitformat...
11.01.2004 14:40:34
Heiner
ich habe noch ein Problem...
Wie kann ich es anstellen, das in TextBox2 der Wert als Zeitformat dargestellt wird?
Folgenden (funktionierenden) Code bekam ich heute von Nepumuk, ich hatte aber leider nicht hinzugefügt, das die TextBox2 als Zeitformat dargestellt werden sollte... :-(
Nepumuks Code:
Option Explicit
Private Sub CommandButton1_Click()
If TextBox1 = "" Then
MsgBox "Eingabe fehlt.", 48, "Hinweis"
TextBox1.SetFocus
Else
With Tabelle1
Range("H61") = TextBox1
Range("F56") = TextBox2
End With
Unload Me
End If
End Sub
Private Sub TextBox1_Change()
Select Case TextBox1
Case "A"
TextBox2 = Worksheets("Tabelle1").Range("G62")
Case "Z"
TextBox2 = Worksheets("Tabelle1").Range("G61")
End Select
End Sub
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If TextBox1 <> "" Then KeyAscii = 0
Select Case KeyAscii
Case 65, 97
KeyAscii = 65
Case 90, 122
KeyAscii = 90
Case Else
KeyAscii = 0
End Select
End Sub
Private Sub UserForm_Click()
End Sub
Wer kann helfen und den Code umstricken?
Danke im Voraus!
Gruss
Heiner