Suchmaske erstellen

[Petz1807]

Hey Leute,

Hab noch eine weitere bitte an euch wer von euch kann mir eine VBA Maske erstellen würde auch was dafür ausgeben!

Und zwuar geht es darum in folgender Beispiel Tabelle eine Suchmaske zu erstellen so dass ich die Daten über die Maske abrufen kann wenn ich zb. das Geburtsdatum eingebe dass er mir dann alle Personen mit sämtlichen dazu gehörigen Daten in einer Liste auflistet die dieses Alter haben. Und wenn ich einen Name eingebe das gleiche!

Wenn ich dann die Person in der gesuchten Liste dann anklicke möchte ich die Akte von der Person ausschreiben d.h. dass das heutige Datum an welche Person ich die Akte ausleihe und das Büro der Person mit der gleichen Maske in die Felder einfüge und automatisch dann der Windows Username in das Feld Bearbeiter eingefügt wird.

So dass nicht mehr jeder in die Datenbank selbst gelangen muss

Vielen lieben Dank an euch ihr seid die Besten

[M.Wichmann]

Hallo,

2 Namen bzw. Geburtsdaten in einer Zelle? Das wird nicht funktionieren.
Ansonsten wären Filter für die Tabelle nicht ausreichend?

[Fennek]

Hallo Patrik,

ein erster Ansatz:

Code:

Private Sub CommandButton1_Click()
If Not IsDate(CDate(Me.TextBox1)) Then MsgBox "Bitte ein gültiges Datum eingeben"
Me.Label2 = CDate(Me.TextBox1)
With Sheets(1)
    For i = 3 To .Cells(Rows.Count, "L").End(xlUp).Row
        GB = Split(.Cells(i, "L"), vbLf)
        For j = LBound(GB) To UBound(GB)
            If CDate(Me.TextBox1) = GB(j) Then MsgBox "gefunden in Zeile " & i
        Next j
    Next i
End With
End Sub

mfg

[Petz1807]

Ok das ganze sollte nur auch mit den Namen funktionnieren und so das er nicht nur die Zeile angibt sondern in einer Box die Zeilen mit dem jeweiligen Wert eben angibt.

[Petz1807]

Das Resultat sollte eigentlich plus minus so aus sehn mit der Farbe wäre es natürlich noch überstichtlicher

[Fennek]

Hi,

mit den deutschen Settings kann man nach einem Datum oder einem Namen suchen.

mfg

[Petz1807]

Genau so das was ich meine nur die Suche auf jede Spalte erweitern und wenn man den gefundenen Namen doppelklickt soll ein Fenster aufgehn das mir erlaubt die Splaten D, E, F,  auszufüllen und abzuspeichern nur in Spallte G sollte der Windows Username von dem der die Akte behandelt hat hineinkommen so dass man das Feld nicht ändern kann.

[Earlenrico]

Hallo zusammen, ich möchte mich hier einfach mal mit "reinhängen", weil ich denke, dass passt genau zu meinem Problem.

Ich habe ebenfalls solch ein ähnliches Problem, wenn es nicht sogar das gleiche ist.

Ich habe eine Tabelle, mit mehreren Interpret - Titel - Genre.

Und da ja als Bsp: die Gruppe ABBA nicht nur ein Titel hatten, sind es logischerweise mehr als Titel.

Mein Ziel ist es: Herauszufiltern, einmal nur den Interpret im Zusammenhang mit dem Genre.

Ich werde zum besseren Verständnis, eine Tabelle als Anlage mit einfügen.



Ich hoffe es ist verständlich erklärt

Danke, Gruß Enrico

[Rabe]

Hi,

mache aus der Liste eine intelligente Tabelle, dann kannst Du auch nach mehreren Suchbegriffen/Spalten filtern.

  Liedliste.xlsx (Größe: 12,05 KB / Downloads: 11)

[WillWissen]

Hallo Enrico,

Mein Ziel ist es: Herauszufiltern, einmal nur den Interpret im Zusammenhang mit dem Genre.

du hast das Stichwort schon selbst genannt: filtern. Mach aus deiner Liste eine intelligente Tabelle (irgendwo reinklicken, dann STRG+L). Mit den Filterpfeilen wählst du deine Bedingungen aus.