Endschuldige bitte mein Fehler mit TextBox 11.
Habe etwas geduld mit mir, bin noch Anfänger.
Habe ein Workbook mit 20 Sheets.
Die Sheets haben den Namen der Mitarbeiter.
Jeder Sheet hat somit in B4 B34 das Datum.
Clicke ich in der ListBox1 den Namen an wechselt der Sheet
Und wird in der TextBox angezeigt.
Auch mit dem Clickereignis in ListBox2 geklappt es jetzt.
Nur bei den TextBoxen 1-9 komme ich nicht weiter.
Ich möchte die Anfang, Endzeiten und andere Daten der
Mitarbeiter Reinschreiben.
Die dann in der Zeile wo ich das Datum angeklickt habe übergeben werden.
Wenn ich auf das Datum 10.10.2002 Clicke möchte ich die Anfangszeit in Text1 an C13 übergeben
die Endzeit in Text2 an D13 oder
das Datum 19.10.2002 Text1 an C22 Text2 an D22..
Private Sub Command2_Click()
If Not LFlag Then Exit Sub
Dim X
List1.Clear
For X = 1 To Excel.sheets.Count
List1.AddItem (Excel.sheets(X).Name)
Next X
List2.Clear
For X = 4 To 34
List2.AddItem (Excel.sheets(1).cells(X, 2))
Next X
`Habe es geändert auf List2.AddItem (Excel.cells(X, 2)) OK
Text1.Text = Excel.Range("C?").Value
Text2.Text = Excel.Range("D?").Value
Text3.Text = Excel.Range("F?").Value
Text4.Text = Excel.Range("H?").Value
Text5.Text = Excel.Range("I?").Value
Text6.Text = Excel.Range("J?").Value
Text7.Text = Excel.Range("L?").Value
Text8.Text = Excel.Range("M?").Value
Text9.Text = Excel.Range("N?").Value
Text1 = Format(Text1, "hh:nn")
Text2 = Format(Text2, "hh:nn")
Text3 = Format(Text3, "hh:nn")
Text4 = Format(Text4, "hh:nn")
Text5 = Format(Text5, "hh:nn")
Text6 = Format(Text6, "hh:nn")
Text7 = Format(Text7, "hh:nn")
Text8 = Format(Text8, "hh:nn")
Text9 = Format(Text9, "hh:nn")
End Sub
Private Sub Command3_Click()
If Not LFlag Then Exit Sub
Excel.Range("C?").Value = Text1.Text
Excel.Range("D?").Value = Text2.Text
Excel.Range("F?").Value = Text3.Text
Excel.Range("H?").Value = Text4.Text
Excel.Range("I?").Value = Text5.Text
Excel.Range("J?").Value = Text6.Text
Excel.Range("L?").Value = Text7.Text
Excel.Range("M?").Value = Text8.Text
Excel.Range("N?").Value = Text9.Text
Text1 = Format(Text1, "hh:nn")
Text2 = Format(Text2, "hh:nn")
Text3 = Format(Text3, "hh:nn")
Text4 = Format(Text4, "hh:nn")
Text5 = Format(Text5, "hh:nn")
Text6 = Format(Text6, "hh:nn")
Text7 = Format(Text7, "hh:nn")
Text8 = Format(Text8, "hh:nn")
Text9 = Format(Text9, "hh:nn")
End Sub
Private Sub List1_Click()
If List1.ListIndex > -1 Then
Text10.Text = List1.Text
Excel.sheets(List1.Text).Select
End If
End Sub
Private Sub List2_Click()
Dim Li%
Li = List2.ListIndex + 4
Text11.Text = List2.Text
Excel.sheets(1).cells(Li, 3).Select
End Sub
`Auch geändert auf Excel.cells(Li, 3).Select Ok