ich schreib jetzt schon den ganzen Tag an folgender Routine:
Private Sub CommandButton1_Click()
Dim z As Integer
z = Range("I101").End(xlUp).Row + 1
TextBox1 = Format(CDate(TextBox1.Value), "dd.mm.yyyy")
Cells(z, 9) = TextBox1 'Datum des Tauchgangs
Cells(z, 12) = TextBox2 'Tiefe des Tauchgangs
Cells(z, 13) = TextBox3 'Dauer des Tauchgangs
If CheckBox1.Value = True Then
Cells(z, 14) = "x"
End If
If CheckBox2.Value = True Then
Cells(z, 10) = "T"
End If
End Sub
Die Übergabe des Datums funktioniert prima. Die Tabelle kann mit dem Datum rechnen. Textbox2 soll jedoch eine Dezimalzahl mit einer Nachkommastelle ausgeben, Textbox3 eine Zeit im Format h:min. Bei der Eingabe der Zeit wäre es schön, wenn ich nur Minuten in die Textbox schreiben könnte (z.B. 74) und die Ausgabe dann als Zeit im angegebenen Format (1:14) geschiet.
Ich hab schon alles mögliche probiert, krieg aber entweder Fehlermeldungen, oder die Werte werden als Text ausgegeben. Dann jedoch erfolgt keine Berechnung in der Tabelle. Für Hilfe wäre ich sehr dankbar.
Gruß Steffan