suche mit eingabemaske

Question

hallo,

ich habe eine frage:

ich habe eine tabelle mit 10 feldern. diese möchte ich beschreiben mit einer eingabemaske. funktioniert über -daten -maske ganz gut. nun meine frage:
kann ich in dieser maske auch nach namen suchen.
z.b. in Spalte A stehen nachnamen.
wenn ich jetzt in der maske auf das feld nachname gehe
und dort den namen müller eingebe und im feld vorname
bernd, sollte er mir diesen auch anzeigen.
ist das in excel mit dieser eingabemaske überhaupt möglich?
für ein rückantwort wäre ich dankbar.
besten dank im voraus

mfg
wolfi

Answer 1

Hi wolfi,

wenn Du den Maskendialog vor Dir hast, dann klicke auf den Button Kriterien

Dann den Namen Müller eingeben und dann den Button Weitersuchen....

Auch eine Mehrauswahl funktioniert wie z.B. Müller Karl

In diesem Sinne... have a nice Day... Gruß Helmut

Answer 2

hallo,

danke für die schnelle antwort.
nur funktioniert diese suche nur einmal.
wenn ich einen zweiten namen suche, erscheint als ergebnis entweder gar nichts oder der erste name in der tabelle.
wer kann mir helfen.

mfg
luwoeb

Answer 3

Hallo luwoeb,

sorry... das ist halt der Nachteil mit der Maske...

Ansonste benutze doch die Funktion filtern.

Den Datenbereich markieren - Daten - Filtern - Autofiltern

Dann kannst Du Dir z.B. erst den Namen filtern und wenn Du dann noch den Vornamen haben willst, filterst Du dann als nächstes danach.

Aber bei kleinen Dateien wirst Du nur einen Filter benötigen.

In diesem Sinne... have a nice Day... Gruß Helmut

Answer 4

hi wolfi ^^

auch hier erstmal ein beispiel

gruss nighty

ausgangsposition

Worksheets(1)
zeile 2 bis ende und spalte 1-10 daten
zeile 1 spaetere ausgabe

spalte k zeile 2 eingabe des suchbegriffes der in spalte a gesucht wird

spalte L zeile 2 eingabe von j/J
daten werden nach dem korrigieren in zeile 1 in der urspruenglichen zeile ueberschreiben

spalte m zeile 2 eingabe von j/J
zeile 1 spalte a bis j loeschen

Private Sub worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Row = 2 And Target.Column = 11 Then
Dim suche As Range
Dim merker As Boolean
Set suche = Worksheets(1).Range("A2:A" & Worksheets(1).Range("A" & Rows.Count).End(xlUp).Row).Find(Worksheets(1).Cells(2, 11))
If Not suche Is Nothing Then
Worksheets(1).Range(Worksheets(1).Cells(suche.Row, 1), Worksheets(1).Cells(suche.Row, 10)).Copy _
Worksheets(1).Range(Worksheets(1).Cells(1, 1), Worksheets(1).Cells(1, 10))
End If
End If
If Target.Row = 2 And Target.Column = 12 And UCase(Worksheets(1).Cells(2, 12)) = "J" Then
For zaehler = 1 To 10
If Worksheets(1).Cells(1, zaehler) <> "" Then merker = True
Next zaehler
Set suche = Worksheets(1).Range("A2:A" & Worksheets(1).Range("A" & Rows.Count).End(xlUp).Row).Find(Worksheets(1).Cells(2, 11))
If Not suche Is Nothing And merker = True Then
Worksheets(1).Range(Worksheets(1).Cells(1, 1), Worksheets(1).Cells(1, 10)).Copy _
Worksheets(1).Range(Worksheets(1).Cells(suche.Row, 1), Worksheets(1).Cells(suche.Row, 10))
merker = False
End If
End If
If Target.Row = 2 And Target.Column = 13 And UCase(Worksheets(1).Cells(2, 13)) = "J" Then
Worksheets(1).Range("A1:J1") = ""
End If
Application.EnableEvents = True
End Sub

eine userform waere zwar huebscher,aber excel kann das auch ohne maske