Frage an Josef Ehrensberger
20.01.2005 19:31:01
Xelleron
vor ein paar Tagen hast Du mir bei einer Zeiterfassung geholfen, in der Daten in eine UF geschrieben, dann geändert und in die gleiche Zeile zurückgeschrieben wurden. Habe die Datei jetzt etwas anders aufgebaut, auch vom Design, aber irgendwie komme ich mit der Select Case Function nicht zurecht. Bin gerade dabei über Bücher und Web mir VBA anzueignen, aber wenn ich Deinen Code in der neuen Erfassung verwende, kommt "Müll" heraus.
https://www.herber.de/bbs/user/16497.xls
Hier noch mal der Code, den Du mir gegeben hast:
Private Sub ComboBox7_Click()
Dim n As Integer
'Arbeite mit "Select case" um verschiedene Datentypen
'korrekt einzulesen bzw, zurückzuschreiben!
For n = 2 To 12
Select Case n
Case 4
Controls("Textbox" & n) = Format(Cells(ComboBox7.ListIndex + 2, n), "dd.mm.yyyy")
Case 5 To 10
Controls("Textbox" & n) = Format(Cells(ComboBox7.ListIndex + 2, n), "hh:mm")
Case Else
Controls("Textbox" & n) = Cells(ComboBox7.ListIndex + 2, n)
End Select
Next
End Sub
Private Sub CommandButton4_Click()
Dim n As Integer
For n = 2 To 12
If Controls("Textbox" & n) <> "" Then
Select Case n
Case 4 To 10 'Datum oder Zeit
Cells(ComboBox7.ListIndex + 2, n) = CDate(Controls("Textbox" & n))
Case Else
Cells(ComboBox7.ListIndex + 2, n) = Controls("Textbox" & n)
End Select
End If
Next
End Sub
Hoffe Du kannst mir noch mal helfen! Wäre Dir sehr dankbar.
Gruß Dennis
Anzeige