AW: Uhrzeiten in ListBox addieren
03.12.2008 20:23:00
A.Franz
Hallo Kurt,
ein Beispiel hochladen ist nicht so einfach, meine ListBox steckt in einem größeren Progamm.Aber wenns nicht anders geht löse ich das ganze mal heraus,da ich unbedingt nach einer Lösung suche.Vorab mal die Codes die ich verwende:
-So werden die Daten in die Listbox übernommen-
Private Sub UserForm_Activate()
With Worksheets("Tabelle1")
LoLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows. _
Count)
ListBox1.RowSource = "A2:E" & LoLetzte
ListBox1.ColumnCount = 5
End Sub
-So wurden sie vorher durch eine andere UserForm in die Tabelle übertragen-
Private Sub CommandButton1_Click()
Dim sp As Integer
Dim z As Long
z = Range("A65536").End(xlUp).Row + 1
For sp = 1 To 5
Cells(z, sp) = Controls("TextBox" & sp).Text
Next sp
End Sub
Vielleicht hilft das schon mal,denn ich habe echt keine Idee wie man das hin bekommen könnte...
Gruß Andre