Werte in einer Tabelle suchen
hallo zusammen,
bin leider kein programmierer, aber vieleicht kann mir ja einer von euch freaks helfen.
folgende erleichterung hätte ich gerne in einer excel-tabelle:
die tabell besitzt zwei spalten: PLZ und TOUR
ich hätte gerne in einem eingabefeld eine "PLZ" eingegeben und nach bestätigung die in der gleichen zeile eingetragene tour (lieferung von lebensmittel) angezeigt.
ist denke ich für einen vba-freak keine große sache, wenn mas aber nicht kann ein "?". danke im voraus.
gruß joe
bin leider kein programmierer, aber vieleicht kann mir ja einer von euch freaks helfen.
folgende erleichterung hätte ich gerne in einer excel-tabelle:
die tabell besitzt zwei spalten: PLZ und TOUR
ich hätte gerne in einem eingabefeld eine "PLZ" eingegeben und nach bestätigung die in der gleichen zeile eingetragene tour (lieferung von lebensmittel) angezeigt.
ist denke ich für einen vba-freak keine große sache, wenn mas aber nicht kann ein "?". danke im voraus.
gruß joe
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 117247
Url: https://administrator.de/contentid/117247
Ausgedruckt am: 26.11.2024 um 14:11 Uhr
13 Kommentare
Neuester Kommentar
Hallo Joe,
Wäre nicht schlecht, wenn Du hierfür die Spalten-Bezeichnung mit angeben würdest. Und wenn es mehrere Arbeitsblätter gibt, dann bitte auch den Tabellennamen.
Gruß Dieter
Wäre nicht schlecht, wenn Du hierfür die Spalten-Bezeichnung mit angeben würdest. Und wenn es mehrere Arbeitsblätter gibt, dann bitte auch den Tabellennamen.
Gruß Dieter
Schau mal hier:
http://novitian.funpic.de/sites/map.xls oder
http://novitian.funpic.de/sites/map.rar
Gruss Minion
http://novitian.funpic.de/sites/map.xls oder
http://novitian.funpic.de/sites/map.rar
Gruss Minion
Hi,
schonmal was vom SVERWEIS gehört!?
--> Sucht in der am weitesten links gelegenen Spalte einer Tabelle nach einem Wert und gibt in der gleichen Zeile einen Wert aus einer von Ihnen angegebenen Spalte in der Tabelle zurück. Verwenden Sie SVERWEIS statt WVERWEIS, wenn sich Ihre Vergleichswerte in einer Spalte links von den Daten befinden, die Sie suchen möchten.
Excelstandartfunktion, die sollte genau das machen was du willst
Mfg Daywalker
schonmal was vom SVERWEIS gehört!?
--> Sucht in der am weitesten links gelegenen Spalte einer Tabelle nach einem Wert und gibt in der gleichen Zeile einen Wert aus einer von Ihnen angegebenen Spalte in der Tabelle zurück. Verwenden Sie SVERWEIS statt WVERWEIS, wenn sich Ihre Vergleichswerte in einer Spalte links von den Daten befinden, die Sie suchen möchten.
Excelstandartfunktion, die sollte genau das machen was du willst
Mfg Daywalker
Hallo Joe,
also, wenn ich das richtig verstehe, dann soll bereits beim Öffnen der Arbeitsmappe eine automatische Abfrage erfolgen und wahrscheinlich auch mehrere Abfragen hintereinander z.B. Weiter mit "Ja" und Beenden mit "Nein" bestätigt werden können.
Gruß Dieter
also, wenn ich das richtig verstehe, dann soll bereits beim Öffnen der Arbeitsmappe eine automatische Abfrage erfolgen und wahrscheinlich auch mehrere Abfragen hintereinander z.B. Weiter mit "Ja" und Beenden mit "Nein" bestätigt werden können.
Gruß Dieter
Hallo Joe!
Hatte heute leider wichtige Termine und einiges zu erledigen, deshalb hat es etwas länger gedauert.
Die Beispieldateien von "Minion" würden Deinen Zweck auch erfüllen (ist ausbaufähig).
Ich persönlich würde als einfachste Lösung, wie von "daywalker" bereits angemerkt, die Funktion SVERWEIS verwenden, wobei Du eine Zelle benötigst, in der die Eingabe der Postleitzahl erfolgen soll und eine Zelle, in der die Formel steht.
Die Formel für den SVERWEIS könnte man dazu noch in eine Wenn-Bedingung einbinden, sodass ein Wunsch-Text anstatt von #NV angezeigt wird, wenn die Postleitzahl nicht gefunden wurde.
Die einfache Formel für Spalte A = Plz, Spalte B = Tour und Spalte C1 = Eingabe Plz:
Die Wenn-Formel mit den gleichen Spalten:
Und falls Du doch ein Makro verwenden möchtest, dann kannst Du das auch noch haben:
Füge diesen Quelltext im VB-Editor in <DieseArbeitsmappe> ein. Dadurch wird die Input-Box nach dem Öffnen sofort angezeigt:
Füge diesen Quelltext im VB-Editor in <Modul1> ein:
Die Textkonstanten können nach belieben angepasst werden. Für den Fall, dass eure Mädels den Vorgang unbeabsichtigt beenden, währe es noch sinnvoll das Makro zusätzlich mit einer Tastenkombination zu verknüpfen.
Die Suchfunktion läuft unbegrenzt, sofern in der Input-Box keine Leer-Eingabe erfolgt und immer der OK-Button betätigt wird.
Gruß Dieter
Hatte heute leider wichtige Termine und einiges zu erledigen, deshalb hat es etwas länger gedauert.
Die Beispieldateien von "Minion" würden Deinen Zweck auch erfüllen (ist ausbaufähig).
Ich persönlich würde als einfachste Lösung, wie von "daywalker" bereits angemerkt, die Funktion SVERWEIS verwenden, wobei Du eine Zelle benötigst, in der die Eingabe der Postleitzahl erfolgen soll und eine Zelle, in der die Formel steht.
Die Formel für den SVERWEIS könnte man dazu noch in eine Wenn-Bedingung einbinden, sodass ein Wunsch-Text anstatt von #NV angezeigt wird, wenn die Postleitzahl nicht gefunden wurde.
Die einfache Formel für Spalte A = Plz, Spalte B = Tour und Spalte C1 = Eingabe Plz:
=SVERWEIS(C1;A:B;2;FALSCH)
=WENN(ISTNV(SVERWEIS(C1;A:B;2;FALSCH));"Ein Text";SVERWEIS(C1;A:B;2;FALSCH))
Füge diesen Quelltext im VB-Editor in <DieseArbeitsmappe> ein. Dadurch wird die Input-Box nach dem Öffnen sofort angezeigt:
Private Sub Workbook_Open()
Call GetTour
End Sub
Füge diesen Quelltext im VB-Editor in <Modul1> ein:
Option Explicit
Const BoxT = "Tourensuche"
Const BoxP = "Postleitzahl "
Const MsgT = "Tour = "
Const MsgI = "Bitte eine gültige Postleitzahl eingeben:"
Const MsgP = "Postleitzahl nicht gefunden: "
Const MsgO = vbCr & vbCr & "Weiter mit OK oder Enter"
Sub GetTour()
Dim Wks As Worksheet, Daten As Object, Plz As String
On Error Resume Next
Set Wks = Worksheets("Tabelle1"): If Err Then Exit Sub
OK:
Plz = InputBox(MsgI, BoxT): If Plz = "" Then Exit Sub
Application.ScreenUpdating = False
Set Daten = Wks.Columns(1).Find(Plz, LookAt:=xlWhole)
Application.ScreenUpdating = True
If Daten Is Nothing Then
If MsgBox(MsgP & Plz & MsgO, vbOKCancel Or vbExclamation, BoxT) = vbOK Then GoTo OK
Else
If MsgBox(MsgT & Daten.Offset(0, 1) & MsgO, vbOKCancel, BoxP & Plz) = vbOK Then GoTo OK
End If
End Sub
Die Textkonstanten können nach belieben angepasst werden. Für den Fall, dass eure Mädels den Vorgang unbeabsichtigt beenden, währe es noch sinnvoll das Makro zusätzlich mit einer Tastenkombination zu verknüpfen.
Die Suchfunktion läuft unbegrenzt, sofern in der Input-Box keine Leer-Eingabe erfolgt und immer der OK-Button betätigt wird.
Gruß Dieter
Hallo joe!
Tja, im Gegensatz zu uns Männer, geben sich die Mädels eben nicht mit einfachen Dingen zufrieden
Gruß Dieter
Tja, im Gegensatz zu uns Männer, geben sich die Mädels eben nicht mit einfachen Dingen zufrieden
Gruß Dieter