Habe mehrere Probleme.
Kann mir irgendjemand helfen ich komme nicht weiter.
Möchte in einer zweiten ListBox das Datum einlesen von B4-B35
und beim Clickereignis in einem Textfeld übergeben.
Wobei der Cursor in die Zeile ( Zelle C ) des jeweiligen Datums springt.
Genauso ist es beim wechseln der Sheets.
Das einlesen der Sheets habe ich geschafft.
Nur den Wechsel nicht.
Option Explicit
Dim Excel As Object
Dim LFlag As Boolean
Private Sub Form_Load()
Set Excel = CreateObject("Excel.Application")
Excel.Visible = False
End Sub
Private Sub mnuFileOpen_Click()
CommonDialog1.Filter = ("Excel-Datei (*.xls)|*.xls;")
CommonDialog1.InitDir = App.Path
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
Excel.Workbooks.Open CommonDialog1.FileName
LFlag = True
Call Command2_Click
End If
End Sub
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
Text1.Text = Excel.Range("C4").Value
`Eine einzelne Zelle OK aber C4-C35 ?
Text1 = Format(Text1, "hh:nn")
End Sub
Private Sub Command3_Click()
If Not LFlag Then Exit Sub
Excel.Range("C4").Value = Text1.Text
`Eine einzelne Zelle OK aber C4-C35 ?
Text1 = Format(Text1, "hh:nn")
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If LFlag Then
Call Command3_Click
Excel.ActiveWorkbook.Close SAVECHANGES:=LFlag
End If
Excel.Quit
Set Excel = Nothing
End Sub
Private Sub List1_Click() `Wechsel der Sheets ?
Dim X As Integer
For X = 0 To List1.ListCount - 1
If List1.Selected(X) = True Then
If Text10.Text = "" Then
Text10.Text = List1.List(X)
Else
Text10.Text = List1.List(X)
End If
End If
Next
End Sub