Hallo
kann mir einer Helfen?
Beim Start der Uf wird in der ListBox die Zeit in Zahlenwerte angezeigt. Ich möchte gerne das Zeit wie in
Tabelle 1 b5 usw als Uhrzeit angezeit wird.
Danke für die Hilfe.
Mit freundlichen Gruß
JoHa
...
.List = Arr
For n = 2 To .ListCount - 1
.List(n, 1) = Format(.List(n, 1), "hh:mm")
.List(n, 2) = Format(.List(n, 2), "hh:mm")
Next n
.ListIndex = 0
...
Gruess HansueliPrivate Sub CommandButton1_Click()
Dim Ind%, n%
Ind = ListBox1.ListIndex
Arr(Ind + 1, 2) = TextBox1.Value
Arr(Ind + 1, 3) = TextBox2.Value
Arr(Ind + 1, 4) = TextBox3.Value
Arr(Ind + 1, 5) = TextBox4.Value
With ListBox1
.Clear
.List = Arr
For n = 2 To .ListCount - 1
.List(n, 1) = Format(.List(n, 1), "hh:mm")
.List(n, 2) = Format(.List(n, 2), "hh:mm")
Next n
.ListIndex = Ind
End With
End Sub
Gruess HansueliDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen