Office: (Office 365) Wert aus 2 TextBoxen suchen

Hallo zusammen,

ich habe eine UserForm mit der ich gerne zwei Werte in der Tabelle suchen möchte.

TextBox1 = Datum (soll in Spalte B Tabelle "Veranstaltung" gesucht werden)
TextBox2 = Text (soll in Spalte Q Tabelle "Veranstaltung" gesucht werden)

wurde es gefunden soll im Label37 "gesperrt" sonst „verfügbar“ stehen.

Es wäre auch schön, wenn mir, dass jemand erklären kann, wie ich es anpassen kann, da ich die suche auch auf andere TextBoxen anwenden müsste.

Ich wünsche euch allen einen guten start in die neue Woche.

Gruß Michael

 

Moin!
In Textbox 1 kann niemals ein Datum stehen!
Höchstens ein Text, der wie ein Datum aussieht.
Deshalb bietet es sich an
• mittels IsDate(Textbox1) prüfen, ob der Text als Datum interpretiert werden kann
• diesen Datumstext mittels CLng(Textbox1) an Application.Match() zu übergeben

By the way:
Excel bietet in der GUI hervorragende Möglichkeiten.
Warum nur möchten so viele Newbies unbedingt mittels Userforms und deren extrem beschränkten Möglichkeiten das Rad neu erfinden.

Zeigst Du mal die Datei?

Gruß Ralf

 

Hallo Ralf,

stimmt das Datum ist in der Tablle als Text gespeichert.
Die Datei ist schon mit persönlichen Daten gefüllt und habe sie daher in eine neue Mappe kopiert und die Daten soweit gelöscht.

Gruß Michael

 

Hallo Michael,

bei so vielen Daten, die du hier erfassen möchtest, stellt sich für mich die Frage, ob du mit der Verwendung von Access nicht besser beraten wärst.

 

Hallo Michael,

das sollte für deine Zwecke ausreichend sein.

Code:

Option Explicit

Private Sub CommandButton1_Click()
    Dim i&
    With Tabelle3
        If TextBox1 = "" Or TextBox2 = "" Then Exit Sub
        For i = 1 To .Cells(Rows.Count, 2).End(xlUp).Row
            If IsNumeric(.Cells(i, 2)) And .Cells(i, 2) <> "" Then
                If CDate(.Cells(i, 2)) = CDate(TextBox1) And .Cells(i, 17) = TextBox2 Then
                    Label34.Caption = "gesperrt"
                Else
                    Label34.Caption = "verfügbar"
                End If
            End If
        Next i
    End With
End Sub

Gruß Uwe

 

Guten Morgen Klaus-Dieter und Uwe,

@Klaus-Dieter
da hatte ich mich mal dran versucht aber nie etwas richtig hin bekommen.

@Uwe
Werde ich mir heute Mittag mal anschauen und berichten.

Vielen Danke euch beiden

 

Moin Uwe,

so hatte ich es mir vorgestellt.

vielen lieben Dank.