Wert in Tabelle/Spalte suchen

Moin,
ich habe wieder mal ein Anliegen und hoffe ihr könnt mir auf die Sprünge helfen.
Ich habe eine Tabelle mit Werten (laufende Nummer, Datum, Raum, Status).
Mit einer Abfrage nach Datum möchte ich gern wissen, in welche Zeile das Datum vorkommt.
Die Abfrage funktioniert soweit, allerdings nur bis zum ersten Treffer, ich benötige aber alle Treffer und am besten davon jeweils die Zeilennummer,
da ich mit der gefundenen Zeile noch jeweils weiterarbeiten muss.
Aktuell habe ich das. Die Sub startet durch einen CommandButton auf einem Sheet


Dim finden As Range
Dim loDeinWert As Date
frmCalendar.Show 'ist ein Modul das einen Kalender aufruft
loDeinWert = g_datCalendarDate
Sheet3.Range("AX6").Value = loDeinWert 'setzt in einer anderen Tabelle das Datum in das Feld
Set finden = Worksheets("Booking").Range("B:B").Find(loDeinWert)
If finden Is Nothing Then
Beep
MsgBox "Nichts gefunden"
Exit Sub
End If
MsgBox "Zeile: " & finden.Row & "; Adresse: " & finden.Address

Wie könnte ich hier weiter machen?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub AlleFinden() Dim finden As Range Dim loDeinWert As Date Dim firstAddress As String Dim MyString As String frmCalendar.Show 'ist ein Modul das einen Kalender aufruft loDeinWert = g_datCalendarDate Sheet3.Range("AX6").Value = loDeinWert 'setzt in einer anderen Tabelle das Datum in das Feld With Worksheets("Booking").Range("B:B") Set finden = .Find(loDeinWert) If finden Is Nothing Then Beep MsgBox "Nichts gefunden" Exit Sub Else firstAddress = finden.Address Do MyString = MyString & finden.Address & "," Set finden = .FindNext(finden) Loop While finden.Address firstAddress End If End With MsgBox MyString End Sub

Hallo Peter,
es gibt keine Uhrzeit, nur ein Datum. Das Problem mit dem Format habe ich auch bereits gelöst.
Hier ist mal eine Beispieldatei:
https://www.herber.de/bbs/user/147954.xlsm
folgenden Ziel habe ich:
- über den Button "Freigabe eintragen" sagt man welcher Raum an welchem Tag frei ist (funktioniert bereits)
- über den Button "Raum buchen" kann man sich über eine Datumsauswahl alle Freigaben anzeigen lassen (funktioniert bereits)
- über den Button "Datum ändern" soll man nun ein beliebes Datum wählen und im Raumplan soll der Raum entsprechend farblich markiert werden (rot = belegt, grün = frei)
der letzte Punkt macht mir eben die Probleme. Die Theorie ist klar
Suche das ausgewählte Datum in der Tabelle "Booking"
Prüfe die Raumnummer in der selben Zeile
Finde die Raumnummer im Raumplan und markiere es farblich
Ich bin über jede Hilfe dankbar!

Sheets("Logbuch").Cells(Rows.Count, 2).End(xlUp).Row ist eigentlich falsch, da sich Rows.Count auf das aktuelle Sheet bezieht. Beim öffnen bekam ich dann eine Fehlermeldung da ja noch kein Sheet aktiv war. Besser: With Sheets("Logbuch") Endzeile = .Cells(.Rows.Count, 2).End(xlUp).Row Hab ich geändert in Open,Close,Save Workbook und auch in CommandButton1_Click() Userform1 In CommandButton1_Click() Userform1 hab ich das Datum als DATE in die Zelle geschrieben und dem Raum ein ' vorangestellt (Excel macht aus 3.23 sonst ein 3,23) .Cells(nächste_Zeile, 2) = DateValue(Datum) .Cells(nächste_Zeile, 3) = "'" & Raum In CommandButton2_Click() Userform2 hab ich ebenfalls das Datum konvertiert. Set rngCell = .Find(DateValue(UserForm2.TextBox1.Text), LookIn:=xlFormulas)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Wert in Tabelle/Spalte suchen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread