Dropdown mit Buchstabenauswahl :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2003] Dropdown mit Buchstabenauswahl

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

quality-assistant
Besserwisser

Anmeldedatum: 13.08.2007
Beiträge: 87
Wohnort: Erkelenz

Verfasst am: 13.06.2008, 09:40

Hallo liebe Excel-Gemeinde,

für die Berechnung der ständig steigenden Dieselpreise soll eine Excel-Lösung her.

Die Entfernungen von den Standorten zu den Kunden werden in einer Tabelle eingetragen. Anhand des Datums (aktuelles Datum) wird der Dieselpreis pro KM aunsgewählt.

Der Standort und der Kunde (Lieferadresse) sollen per Drop-Down ausgewählt werden. Da die Liste länger ist, möchte ich gerne eine Vorauswahl gemäß Anfangsbuchstaben oder evt. sogar eine Suche (Namensbestandteil o.ä.) ermöglich. Wie mache ich das mit einem Drop-Down, bzw. wie kann ich das evt. besser lösen?

Danke für Eure Hinweise.

mfg
Christian

gook
Schlauberger

Anmeldedatum: 25.11.2007
Beiträge: 400
Wohnort: Fridingen an der Donau

Verfasst am: 13.06.2008, 09:52

Hallo!

eine Vorauswahl würde ich mit einem Spezialfilter lösen. Das heißt du gibst in eine Zelle ein A ein und in dem Dropdown erscheinen alle Namen(oder Nachnamen mit A) aber um das besser zu bewerten sollte ich deine Tabelle schonmal sehen.

Gruß

quality-assistant
Besserwisser

Anmeldedatum: 13.08.2007
Beiträge: 87
Wohnort: Erkelenz

Verfasst am: 13.06.2008, 10:33

Hallo gook,

sorry, aber ich kann schlecht eine Liste der Kundennamen hier posten Evil or Very Mad

Gibt es eine Möglichkeit, vielleicht sogar einen suchbegriff zu verwenden?

z.B. "benz" für "Mercedes Benz" oder so
p.s. Mercedes Benz ist NICHT Kunde sondern ein Beispiel.

mfg
Christian

gook
Schlauberger

Anmeldedatum: 25.11.2007
Beiträge: 400
Wohnort: Fridingen an der Donau

Verfasst am: 13.06.2008, 10:54

Hallo!

Ja klar das ist möglich ich habe dir mal ein Beispiel gebaut ist nicht sehr übersichlich hoffe mal du verstehst den Sinn.

Gruß

Beispiel.xls

Beschreibung:

Download

Dateiname:

Beispiel.xls

Dateigröße:

24.5 KB

Heruntergeladen:

37 mal

quality-assistant
Besserwisser

Anmeldedatum: 13.08.2007
Beiträge: 87
Wohnort: Erkelenz

Verfasst am: 13.06.2008, 14:11

Hallo Gook,

mit Makros kenne ich mich zwar fast garnicht aus, aber ich werde es versuchen. Danke für den Lösungsansatz.

Frage: wie gebe ich die Bezüge im Makro (anderes Tabellenblatt) an?

Danke für die Info

Christian

quality-assistant
Besserwisser

Anmeldedatum: 13.08.2007
Beiträge: 87
Wohnort: Erkelenz

Verfasst am: 13.06.2008, 14:38

Mein Macro sieht wie folgt aus:

Code:

Sub Suchen()
Range("'Entfernungen!B2:B500").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"'Berechnungen!B38:B42"), CopyToRange:=Range("'Berechnungen!D3"), Unique:=False
End Sub

Eingaben auf dem sheet: Kalkulation
Kundenliste (und Entfernungen vom Standort) auf dem sheet: Entfernungen
Berechnungen (soll später versteckt werden) auf dem sheet: Berechnungen

Vorgehen:
Auf dem sheet "Kalkulation" wird der Suchbegriff eingegeben und auf den "suchen" Knopf (Makro-Auslösung) gedrückt.
Auf der Seite Berechnungen sollen die Schritte wie im Beispiel ausgeführt werden.
Der Drop-Down ist wieder auf der Seite "Kalkulation"

Leider bekomme ich die Fehlermeldung: "Runtime error 1004 - Method Range ob Object _Global failed."

Was mache ich denn da falsch?

mfg
Christian[/list]

quality-assistant
Besserwisser

Anmeldedatum: 13.08.2007
Beiträge: 87
Wohnort: Erkelenz

Verfasst am: 13.06.2008, 15:27

Die Fehlermeldung bin ich jetzt los, nur leider erfolgt keine Auswahl.

Code:

Sub Suchen()
Range("'Entfernungen'!B2:B500").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"'Berechnungen'!B38:B39"), CopyToRange:=Range("'Berechnungen'!D3"), Unique:=False
End Sub

Die Felder: Berechnungen B38 (Entfernung [km]) und Berechnungen B39 (="*"&Kalkulation!C8&"*") sind analog der Musterdatei.

Wo liegt mein Fehler?

mfg
Christian[/code]

gook
Schlauberger

Anmeldedatum: 25.11.2007
Beiträge: 400
Wohnort: Fridingen an der Donau

Verfasst am: 13.06.2008, 23:56

Hallo!

Das ist mein Code.

Code:

Sub filter()
Sheets("Berechnungen").Activate
Sheets("Entfernungen").Range("A1:B65536").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A1:B2"), CopyToRange:=Range("A4:B65536"), Unique:= _
False
Sheets("kalkulation").Activate
End Sub

Pass dir die Mappe einfach an, Tabellenblätter werden in VBA mit Sheets("Tabelleblattname") angesprochen, wen du bei dem Spezialfilter Werte von einem Tabellenblatt in ein anderes Kopieren willst dann muss beim auswählen des Filter immer das Blatt aktiviert sein in dem du die kopierten gefilterten Werte haben willst und nicht anderst herum.

Gruß

filter.xls

Beschreibung:

Download

Dateiname:

filter.xls

Dateigröße:

45.5 KB

Heruntergeladen:

20 mal

quality-assistant
Besserwisser

Anmeldedatum: 13.08.2007
Beiträge: 87
Wohnort: Erkelenz

Verfasst am: 16.06.2008, 14:22

Ein schönes Script,

nur leider löst es mein Problem nicht.

Meine Aufgabe ist mehrteilig (funktionierend, Datei leider zu groß zum einstellen):

a) Auswahl des Kunden (hier fehlt mir noch die Suchoption -> dieses Thread) - NUR den Kunden aussuchen (Entfernung wird später ermittelt)
b) Auswahl des Standortes (einige Standorte - Auswahl über Pull-Down)
c) Entfernung wird mittel S-Verweis aus der Datentabelle (Entfernung der Kunden und aller Standorte) gelesen
d) die Eingabe des Lieferausgangstages (nicht älter als 90 Tage)
e) anhand des Ausgangstages wird der aktuelle Dieselzuschlag pro KM eingelesen (weiteres Tabellenblatt, wird vom Management gepflegt)
f) aus Entfernung und Preis pro KM ergibt sich der Zuschlag
g) Bei Kunden in Großbritannien wird gemäß Ausgangstages in GBP ausgegeben (weiteres Tabellenbaltt, wird vom Management gepflegt)

Um den Kollegen die Suche in der Umfangreichen Kundenliste ~500 aktuelle Einträge zu erleichtern, möchte ich eine Suchfunktion für die Kunden einbauen.

Folgende Tabellenblätter sind vorhanden (sollen im Script angesprochen werden):

Kalkulation = hier ist die Eingabemaske (Zelle mit Suchbegriff; Suchen-Knopf; Auswahl-Pull-Down)

Entfernungen = hier sind die Kunden gelistet (ich möchte GENAU diese Spalte auswählen)

Berechnungen = hier wird der Suchbegriff in "*" gesetzt und hier wird das Filterergebnis eingetragen (Bezug für Auswahl-Pull-Down)

Hier mein Script (nach Vorlage angepasst, leider nicht richtig)

Code:

Sub Suchen()
Sheets("Berechnungen").Activate
Sheets("Entfernungen").Range("B2:B600").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("B38:B39"), CopyToRange:=Range("D3"), Unique:= _
False
Sheets("Kalkulation").Activate
End Sub

Danke für Eure Hilfe.

gook
Schlauberger

Anmeldedatum: 25.11.2007
Beiträge: 400
Wohnort: Fridingen an der Donau

Verfasst am: 16.06.2008, 14:38

Hallo!

Zitat:

Folgende Tabellenblätter sind vorhanden (sollen im Script angesprochen werden):

Kalkulation = hier ist die Eingabemaske (Zelle mit Suchbegriff; Suchen-Knopf; Auswahl-Pull-Down)

Entfernungen = hier sind die Kunden gelistet (ich möchte GENAU diese Spalte auswählen)

Berechnungen = hier wird der Suchbegriff in "*" gesetzt und hier wird das Filterergebnis eingetragen (Bezug für Auswahl-Pull-Down)

in meinem Beispiel sind doch ganau diese Sheets vorhanden oder?

Kannst du die Tablle nicht verkleinern und dann hochladen oder als ZIP verpacken.

Gruß

quality-assistant
Besserwisser

Anmeldedatum: 13.08.2007
Beiträge: 87
Wohnort: Erkelenz

Verfasst am: 16.06.2008, 14:58

Code:

Sub Suchen()
Sheets("Berechnungen").Activate
Sheets("Entfernungen").Range("B3:B600").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("B4"), CopyToRange:=Range("D3:D600"), Unique:= _
False
Sheets("Kalkulation").Activate
End Sub

Hier die Felder/Bereiche für die Daten:

Suchbegriff: Berechnungen!B4
Begriffsbereich (Basis): Entfernungen!B3:B600
Filterergebnisse (Ausgabe): Berechnungen!D3:D600

Ich bekomme leider immer die komplette Liste (Version 2003) ausgegeben. Da die Liste nicht sortiert ist, ist die manuelle Auswahl sehr schwer.

Wo sehe ich denn jetzt meinen Fehler nicht?

...

Habe getüftelt... jetzt tut es. DANKE

Code:

Sub Suchen()
Sheets("Berechnungen").Activate
Sheets("Entfernungen").Range("B2:B600").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("B3:B4"), CopyToRange:=Range("D3:D600"), Unique:= _
False
Sheets("Kalkulation").Activate
End Sub

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Probleme mit der Ausgabe und DropDown...	Alrubien	Microsoft Excel Hilfe	5	26.08.2008, 16:26
	Infopath 2007: Voneinander abhängige ...	-lil-	Sonstiges	1	29.07.2008, 11:51
	Dropdown menü mit folgen...	heideger	Microsoft Excel Hilfe	2	16.07.2008, 13:51
	DropDown menü erstellen	esmeron	Microsoft Excel Hilfe	5	22.06.2008, 15:02
	Tabellenauswahl nach Dropdown	Knerpel	Microsoft Excel Hilfe	3	18.06.2008, 16:24

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de