Office: Werteübergabe der Combobox

Hallo zusammen,

ich habe mal wieder ein Problem, wo ich echt nicht seit Stunden nicht weiterkomme und auf eure Hilfe angewiesen bin.

Ich habe mit Hilfe von Makros Comboboxen erstellt, die in einer anderen Mappe Spalten zur Auswahl einlesen. Funktioniert alles wunderbar. Nächster Schritt war jetzt der, dass ich mir die Zeile des ausgewählten ComboBox-Elements in der anderen Datei ausgeben lassen möchte, um auf weitere Daten der Zeile zurückgreifen zu können.

In einem Testdokument funktioniert eigentlich alles einwandfrei, wenn ich allerdings das in ein reales Dokument mit der gleichem Aufbau übernehme, bekomme ich immer ein Laufzeitfehler 91 ausgespuckt, obwohl der Aufbau der Mappen identisch ist. Einziger Unterschied ist der, dass im realen Dokument die 3.Spalte, in der der String gesucht wird, kein Textfeld ist sondern aus verketteten Strings besteht.

Kann es sein, dass genau das mein Problem ist? Any ideas?

Hier mal mein simpler Code...

Code:

So funktioniert das Makro einwandfrei, ändere ich die Quelldatei, funktioniert es nicht mehr...wiesooooo?!*entsetzt *entsetzt

Danke für eure Anregung und Hilfe!
Mark

:)

 

Die Fehlermeldung ist folgende:

Laufzeitfehler '91':

Objektvariable oder With-Blockvariable nicht festgelegt

 

Hi Mark,

das gleiche Problem hattest Du hier doch auch schon.
Es kann doch nicht so schwer sein, die vielen Hinweise auch umzusetzen.

Noch einmal:
Code:

geht nicht!

Warum?

Pfad1 ist keine gültige Pfadangabe!
Eine Pfadangabe sieht beispielsweise so aus: C:\Ordner\

Wenn der Pfad in einer Variablen gespeichert wird dann so:
Code:

Hier (bei der Zuweisung des Wertes an die Variable) gehört die Pfadangabe in Anführungszeichen. Verwendest Du aber die Variable, dann dürfen keine Anführungszeichen gesetzt werden!

So ist es falsch:
Code:

Und so richtig:
Code:

Du verknüpfst also den Wert einer Variablen (über die Variable) mit einem String (den Dateinamen), der selbstverständlich in Anführungszeichen gehört.
Hättest Du den Dateinamen ebenfalls in einer Variablen gespeichert, dann könntest Du beide Variablen ebenfalls verknüpfen, aber... wie gesagt, die Variablennamen gehören nicht in Anführungszeichen!

 

geht nicht!

Warum?

Pfad1 ist keine gültige Pfadangabe!
Eine Pfadangabe sieht beispielsweise so aus: C:Ordner

Wenn der Pfad in einer Variablen gespeichert wird dann so:
Code:

Hier (bei der Zuweisung des Wertes an die Variable) gehört die Pfadangabe in Anführungszeichen. Verwendest Du aber die Variable, dann dürfen keine Anführungszeichen gesetzt werden!

So ist es falsch:
Code:

Und so richtig:
Code:

Du verknüpfst also den Wert einer Variablen (über die Variable) mit einem String (den Dateinamen), der selbstverständlich in Anführungszeichen gehört.
Hättest Du den Dateinamen ebenfalls in einer Variablen gespeichert, dann könntest Du beide Variablen ebenfalls verknüpfen, aber... wie gesagt, die Variablennamen gehören nicht in Anführungszeichen!

Siehe PM...die kopierten Pfaddateien sind immer mit Backslash, die hier im Forum gelöscht werden. Daher als "Ersatz" die Umschreibung...wusste mir nicht anders für das Forum hier zu helfen!

Grüße!

 

...weshalb Du meinen kompletten Thread zitierst, der wirklich nix mit Deiner Antwort zu tun hat, wird wohl ein Geheimnis bleiben.

Meine Antwort bezog sich auf die falsch gesetzten Anführungszeichen, Deine Antwort auf die fehlenden Backslashes.
Was Du dagegen machen kannst und warum das so ist steht hier

Das ist trotzdem nicht der Grund, weshalb Dein Code nicht funktioniert. Lies Dir noch einmal meine erste Antwort durch und beachte die Worte Anführungszeichen und Variablen.

 

...und in welcher Zeile tritt der Fehler auf? Hier? Debug.Print ComboBox3.Value
Dann überlege folgendes:
In welchem Modul stand der Code, als er funktionierte?
In welchem Modul steht der Code, als er nicht funktionierte?
Wozu gehört Combobox3?

Allgemein und im Besonderen:
Steht Option Explicit in jedem Deiner Module? Wenn nein: Schreib's hin. Welche Fehlermeldungen kommen jetzt hoch?
Wo und wie sind die Variablen deklariert?

anstelle:
Code:

dies verwenden:
Code:

 

...Ja, genau hier wird der Fehler ausgespuckt *Smilie

Beide Codes stehen in dem selben private Sub, einmal versuche ich das mit dem 1. Pfad -> funktioniert. Auskommentieren und Versuch mit dem 2. Pfad -> funktioniert nicht mehr

Der 2. Pfad liegt allerdings in einem komplett anderen Verzeichnis, liegt es vielleicht daran?

Die Combobox ist in dem Sheet "Makrosheet" der Originaldatei enthalten

Der Befehl steht ganz oben zu meinem Code-Beginn, allerdings nicht in den Modulen, da ich alles in dem Verzeichnis des Makrosheets programmiert habe

Die Variablen sind wie der Befehl ganz am Anfang des Codes global deklariert.

dies verwenden:
Code:

Habe ich jetzt so übernommen, wieso ist es besser mit dieser Syntax?

Danke für deine Hilfe!!!

 

... Variablen gehören nicht in Anführungszeichen, Pfade schon. Das meine ich jetzt auch so beachtet zu haben...

Code:

Funktionieren tut der Code mit dem 2. Pfad trotzdem noch nicht!

Danke dir für deie Einwände, zumindest das Backslashproblem meine ich jetzt schon einmal gelöst zu haben *wink.gif*

 

schreib's das nächste Mal bitte gleich hin. Fehlernummer, -beschreibung und -zeile gehören immer zusammen.

Was meinst Du damit? Was für ein Verzeichnis?

MODUL! Ich meinte: MODUL! In welchem Modul steht bzw. stand der Code?

"funktioniert nicht mehr" - siehe Hinweis zuvor: Das ist keine brauchbare Fehlerbeschreibung! Beschreibe klar und deutlich, wie sich das "Nichtfunktionieren" zeigt!
Pfade interessieren hier zudem 'nen feuchten Kehricht - die haben bei der fehlerhaften Zeile null Auswirkung. Das ist wenn ein anderes Problem.

Aha. Ich wollte hier aber keine Beschreibung, sondern Dich zum Denken animieren: WO teilst Du dem Code denn mit, dass eben genau das der Fall ist? Und da sind wir wieder bei der ersten Frage: In welchem MODUL steht der Code?

Ürghs. Mieser Stil, miese Nachvollziehbarkeit des Codes. Nicht machen.

Weil du
- den Mappennamen nur einmal im Code erwähnst - spart Zeit und Fehler bei Änderungen
- weil Du die Mappe direkt an das Objekt bindest. Es sind also keine sinnlosen Zwischenschritte notwendig
Wenn Du ein Objekt direkt bei der Erstellung (bzw. hier beim Öffnen) greifen kannst, nutze das aus (die Möglichkeit hast Du leider nicht immer, da manche Methoden bedauernswerterweise kein Objekt der passenden Klasse zurückgeben).

 

Das Backslashproblem (den BS doppelt eingeben, damit er hier einmal zu sehen ist), gilt nur für die Darstellung in diesem Forum! Im VBA Editor darf es aber nur einmal stehen.
Lediglich bei Verwendung von Variablen solltest Du darauf achten, ob er vorhanden ist oder nicht, damit dann bei der Zusammensetzung nichts schiefläuft.

Was für eine klare Ansage... an welcher Stelle denn?

Wenn diese Anweisung:
Code:

in einem allgemeinen Modul steht, dann funktioniert er selbstverständlich nicht. Denn woher soll der Compiler wissen, welche Combobox3 Du meinst?
Entweder, Du verschiebst den Code in das Modul der Userform oder Du gibst im Code den Ort der Combobox an.

Bsp.:
Code:

 

Gut, jetzt lichtet sich langsam der Urwald. Da ich den Quellcode in meinem Modul 1 stehen habe, die Comboboxen aber in einem Tabellenplatt initialisiert sind, muss ich natürlich dem Compiler noch mitteilen, wo die Comboboxen angesteuert werden sollen.
Wenn ich ihm jetzt aber versuche bspw. die Box mit shQuelle.Combobox1 anzusteuern, klappt das noch nicht. Wie steuer ich denn Comboboxen in einem Tabellenblatt richtig an?

Das habe ich aufgrund meiner fehlenden Programmierkenntnisse in VBA so gelöst, da manche Variablen auf andere Subs zurückgreifen sollten. Gibt es auch hier eine Möglichkeit, in einer Sub Variablen als global weiterzugeben?

Abermals danke für deine Hilfe *Smilie

Mark

 

in einem allgemeinen Modul steht, dann funktioniert er selbstverständlich nicht. Denn woher soll der Compiler wissen, welche Combobox3 Du meinst?
Entweder, Du verschiebst den Code in das Modul der Userform oder Du gibst im Code den Ort der Combobox an.

Bsp.:
Code:

Genau dort steht sie, in einem allgemeine Modul. Ergo muss ich also noch dem Compiler mitteilen, dass die Combobox im Sheet "Makrosheet" zu finden ist. Aber wie genau mache ich das? Ich habe auch keine Userform oder dergleichen, sondern fürs erste eine einfache Combobox im Tabellenblatt kreiert

Danke dir ebenfalls für deine Unterstützung *Smilie

 

Hallo Mark,

hatten wir uns nicht darauf geeinigt, dass "Klappt nicht" keine brauchbare Beschreibung eines Problems ist?

Wenn Du eine Variable für das Worksheet anlegst, weiß VBA nicht, ob diese (mit jedem beliebigen Arbeitsblatt belegbare) Variable später auch tatsächlich das Objekt "Combobox1" besitzt.
Das kann man allerdings, wenn man nicht eine Variable, sondern das automatisch angelegte Klassenobjekt des Worksheets selbst übergibt (siehe Beispiel, dort steht auch, wie man an das Objekt rankommt). Das Vorgehen funktioniert aber nur, wenn Du innerhalb der gleichen Mappe arbeitest - sonst gilt das vorgesagte hier auch sinngemäß und muss ebenso anders gelöst werden.

Variablen übergibt man als Argument (sinnbefreiter Code, nur zur Demo...):
Code:

Grüße
EarlFred

 

Du hast ein Blatt mit einer ComboBox1 und willst auf Änderungen darin reagieren. Dann kommt der gesamte Code in das Blatt, in welchem sich die Box befindet.

Code:

 

die Anforderung habe ich wohl überlesen.

Dann muss der Code allerdings nicht zwingend in das Klassenmodul des Worksheets (wenn auch empfehlenswert).

Als (absolut nicht empfehlenswerte Variante, dient aber als Anschauung, wie man auch bei einem variablen Worksheet an eine Combobox rankommt):
Code:

Code:

Aber nochmal, wie Ralf sagte: Wenn Du auf Ereignisse reagieren willst, pack die besser in das Modul des Objektes, in dem sich die Combobox befindet.