Uhrzeit aus Tabelle in UF Textbox
14.09.2004 19:23:18
Erich
habe ein problem, ich lese über nachfolgenden Code (nochmals Danke an Nepumuk) alle Daten aus dem Tabellenblatt in meine userform1 ein, soweit so gut, nun möchte ich aber das in der Textbox 2 auch die Uhrzeit richtig angezeit wird, wenn ich den Spinbutton betätige.
was muss ich an den code verändern?
Private Sub UserForm_Activate()
Sheets("SCA_R11_L1").Activate
Dim byt_Index As Byte
Label126.Caption = Date
Label127.Caption = Format(Time, "hh:mm")
Label128.Caption = Worksheets("System").Range("C2").Value
Label129.Caption = Application.UserName
Frame2.Caption = "Programm 1" & "_" & Range("E1").Value
Frame3.Caption = "Programm 2" & "_" & Range("AM1").Value
Frame4.Caption = "Programm 3" & "_" & Range("BU1").Value
Frame5.Caption = "Programm 4" & "_" & Range("DC1").Value
Frame6.Caption = "Programm 5" & "_" & Range("EK1").Value
Frame7.Caption = "Programm 6" & "_" & Range("FS1").Value
TextBox1.Visible = False
TextBox2.Visible = True
TextBox3.Visible = False
TextBox4.Visible = False
TextBox209.Visible = False
Label125.Visible = False
CommandButton3.Visible = False
CommandButton4.Visible = False
With Sheets("SCA_R11_L1")
lng_letzte_Zeile = .Cells(65536, 1).End(xlUp).Row
For byt_Index = 1 To 208
Controls("TextBox" & CStr(byt_Index)).Value = .Cells(lng_letzte_Zeile, byt_Index)
Controls("TextBox" & CStr(byt_Index)).Enabled = False
Next
End With
End Sub
https://www.herber.de/bbs/user/10884.xls
für eure hilfe wäre ich sehr dankbar.
gruß
erich
Anzeige