Noch einmal Danke für die Hilfe.
Es ist fast alles Perfekt, nur habe ich in jedem Sheets
Eine Datums reihe. Die ich beim Wechsel des Sheets
auch in der TextBox einlesen möchte.
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 35
List2.AddItem (Excel.sheets(1).cells(X, 2))
Next
End Sub
Private Sub List2_Click()
Dim Li%
Li = List2.ListIndex + 4
Text2.Text = List2.Text
Excel.sheets(1).cells(Li, 3).Select
End Sub
Wie gebe ich es ein dass alle Sheets erkant werden.
Excel.sheets(1).
Bei auslesen des Sheets 1 klappt alles sehr gut, sogar der cursor
Steht in der nächsten Spalte.
( Die Excelmappe ist für Zeiterfassung. )
Deshalb brauche ich noch mal deine Hilfe.
Beim Clickereignis steht das Datum in der TextBox11 Ok
weitere TextBoxen sollen nun die Anfangszeiten
die Endzeiten
die Überstunden
und so weiter in die Zeile eintragen
wo der Cursor steht.
.....................TextBox1.....TextBox2
Beispiel:............Anfang.........Ende
B4 01.10.2002....C4...?..............?
B5 02.10.2002....C5...?..............?
B6 03.10.2002....C6...?..............?