Listenfeld befüllen
Frank
Allen einen schönen Sonntag!!!
Ich brauche Hilfe:
Folgenden Code bekam ich von diesem Forum:
Private Sub LeseDaten()
Dim Ar2, Ar3()
Dim A&, AA&, AAA&
Dim LRowMax As Long
Dim DatumTxT As Date
With Tabelle1
LRowMax = .Cells(.Rows.Count, 53).End(xlUp).Row
If LRowMax 0 Then
ReDim Preserve Ar3(1 To UBound(Ar3), 1 To AAA)
ListBox1.ColumnCount = UBound(Ar3)
ListBox1.List = Application.Transpose(Ar3)
End If
Dim zelle As Range
Dim sBegriff As Date
If IsDate(TextBox1) Then
sBegriff = CDate(TextBox1)
Else
MsgBox "Es muss für diese Suche immer ein Datum vorhanden sein!", _
vbInformation, "Hinweis"
End If
If sBegriff = 0 Then Exit Sub
Set zelle = Worksheets(1).Columns(53) _
.Find(sBegriff, LookAt:=xlWhole)
If zelle Is Nothing Then
MsgBox "Suchbegriff wurde nicht gefunden!"
End If
End Sub
Private Sub cmdSuchen_Click()
Dim ArData
ListBox1.Clear
If TextBox1 "" And IsDate(TextBox1) Then
LadeDatenListBox ArData, CDate(TextBox1)
If IsArray(ArData) Then
ListBox1.ColumnCount = UBound(ArData, 2)
ListBox1.List = ArData
End If
End If
End Sub
Ich habe den Suchbegriff durch die ComboBox1 ausgetauscht und bekomme nun die Fehlermeldung, Objekt nicht definiert. Ich habe den Code dort mal fett markiert wo er im VBA Editor auch markiert wurde. Ansonsten ist es aber der Originalcode, welcher umgebaut werden müsste.
Kann mir jemand am heiligen Sonntag den Code umbauen, dass er nach meinem Wert aus der ComboBox1 sucht!!! Bitte helft und danke im Voraus!!!
Gruß Frank H.