Office: (Office 365) Auswahl über Combobox dann Werte kopieren

Hallo in die Runde,

Für euch VBA Profis ist die Lösung dieser Problematik nur ein Klacks, mir als Anfänger bringt es nur graue Haare.

In der Tabelle Lager stehen in der Spalte A alle vorhandenen Produkte. In den Tabellen B:E die zugehörigen Ersatzteile und Namen der Lieferanten.

Auf der Tabelle Übersicht habe ich direkt eine dynamische ComboBox eingefügt die beim Öffnen der Arbeitsmappe mit den Daten aus der Tabelle Lager Spalte A2:A gefüllt wird. Der ausgewählte Eintrag wird in Tabelle Übersicht in die Zelle A4 geschrieben, das funktioniert.

Jetzt soll in der Tabelle Lager in Spalte A dieser ausgewählte Eintrag gesucht und die zugehörigen Daten aus B:E in die Tabelle Übersicht in einen definierten Bereich kopiert werden.

Was muss ich hier einfügen das es funktioniert?
Private Sub ComboBox1_Change()
If Sheets("Übersicht") = Range("A6").Value Then
Objekt unterstützt diese Eigenschaft oder Methode nicht (Fehler 438)

Worksheets("Lager").Range("B:E").Copy
Worksheets("Eingabe").Range("A27:D41").PasteSpecial Paste:=xlPasteValues

End If

End Sub

 

warum VBA?
Benutze Sverweis()

 

Moin!
Nicht böse gemeint:
Vielleicht solltest Du zunächst mal Formeln wie SVERWEIS() oder XVERWEIS() verstehen und anwenden, bevor Du Dich an VBA versuchst?
Egal:

Code:

If Sheets("Übersicht") = Range("A6").Value Then

Du vergleichst Äpfel (ein Worksheet-Objekt) mit Birnen (einem Range-Objekt).
Benutze die Range.Find-Methode [klick]

Gruß Ralf

 

Moin Ralf,
SVERWEIS() oder XVERWEIS() beherrsche ich. Wenn ich dürfte hätte ich schon längst die entsprechenden Zellen eine XVERWEIS() in Verbindung mit Index eingesetzt, die Zellen gesperrt und Blattschutz gesetzt um unbeabsichtigtes Überschreiben zu verhindern. Vorgabe von ganz oben: Es dürfen in dieser Arbeitsmappe weder Formeln noch Arbeitsmappen und Blattschutz eingesetzt werden. Keine Ahnung warum, Chef lässt sich darüber nicht aus. Deswegen frage ich ja nach einer VBA Lösung.
Gruß
Jupp

 

ich naue keine Datei nach.
Keine Ahnung was die TabelleB;C,D;E mit dem Problem zu tun haben.

Gruß Hajo

 

Hallo Hajo,

hier ein Beispiel

 

Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender*, UserForm* , Forum*, Excel* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.
Ich überschreibe keine vorhandenen Dateien.

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten ändern. Schaue Datei
http://hajo-excel.de/gepackt/fremd/Datei_verschluesseln.zip

Das ist nur meine Meinung zu dem Thema.

in meiner vorhandenen Datei Beispiel, konnte ich Dein Problem nicht sehen. Ich überschreibe keien vorhandenbe Datei.

Gruß Hajo

 

Hallo Jupp,

was du da beschreibst, lässt sich auf dem Blatt Lager ganz einfach mit dem Autofilter lösen.

Das ist übrigens in den über zwanzig Jahren, in denen ich in Excelforen unterwegs bin, das erste Mal, dass ein Chef eine VBA-Lösung fordert. Sonst ist immer das Gegenteil der Fall.

 

Hallo Klaus Dieter,

ist doch nur eine Beispielmappe. In der Originaldatei ist die Box dynamisch. Unser Chef ist halt so. Er will in der Tabelle Übersicht in der ComboBox einen Artikel auswählen und das die entsprechenden Daten in diese Tabelle geschrieben werden. Über den eigefügten Daten hat er genug Platz um Kommentare, Anmerkungen und Anweisungen zu schreiben. Ich habe ihm noch einen Button eingefügt hinter dem ich den Druckbereich definiert habe. Dann brauch er nur noch drauf zu klicken und das Ausgedruckte ins Lager zu geben. Und seine Anweisungen/Anordnungen sind nicht zu hinterfragen. Ich kann mir nur vorstellen das mein Chef in der Vergangenheit Formelzellen überschrieben hat und Passwörter vergisst.

 

Hallo Jupp,

möglicherweise wird es deinem Chef nicht gefallen, aber so funktioniert das mit einem Blatt.

 

Hallo Klaus-Dieter,

vielen Dank für deine Lösung. Werde das ganze in die Originaldatei einbauen und meinem Chef Morgen zeigen. Wenn Ihm diese Lösung nicht gefällt soll er endlich einen neuen Programmierer einstellen, der ehemalige hat vor kurzem gekündigt.

Gruß
Jupp