Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon wolfi vom 19.02.2021, 09:22 Options

suche mit eingabemaske

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

Antwort schreiben

Antwort 1 von finger59 vom 19.02.2021, 10:00 Options

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

Antwort 2 von wolfi vom 19.02.2021, 10:19 Options

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

Antwort 3 von finger59 vom 19.02.2021, 12:19 Options

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

Antwort 4 von nighty vom 19.02.2021, 13:21 Options

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

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken