Office: Hilfe bei Listenerstellung/-Vergleich (wahrscheinlich VBA)

Hallo zusammen,

ich habe folgende Problemstellung:

Ich habe ein Tabellenblatt, welches u.a. die folgenden beiden Informationen enthält, die fürmich von Bedeutung sind:
- Artikelname
- Artikelnummer

Ich will nun in einem anderen Tabellenblatt die Möglichkeit schaffen, den Artikelnamen aus einer Liste auszuwählen. Dies habe ich geschafft. Der folgende Teil ist nun mein Problem:
Wenn der Artikelname ausgewählt worden ist, soll in der benachbarten Spalte im benachbarten Feld die zughörige Artikelnummer automatisch eingefügt werden.

Im Internet konnte ich folgendes VBA-Script ausfindig machen, bei dem ich diesen Vorgang mit einer Zeile durchführen kann. Ziel ist es allerdings, dies bei mehreren zeilen durchführen zu können.
Hier der VBA-Code:

Sub ZeigeWert()
If Range("D9").Value <> "" Then
Range("E9").Value = Range(Range("D9").Value).Value
End If
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Replace(Target.Address, "$", "") = "D9" Then
ZeigeWert
End If
End Sub

Ich habe schon versucht, einfach das "D9" bzw. "E9" duch ein "D9:D99" bzw. "E9:E99" (für die Zeilen 9 bis 99) zu ersetzen, allerdings hat das funktioniert.

Vielen Dank für Eure Hilfe![/i]

 

der Artikelname ist schon nur eimal vorhanden?

 

Ja, das sollte der Fall sein

 

http://www.excelformeln.de/formeln.html?welcher=24

 

Das hilft mir so leider nicht.
Ich habe eine Dropdown-Liste, aus der ich den Artikelnamen auswählen kann.
Dazu habe ich in dem Tabellenblatt, das die Ausgangsdaten enthält, alle Felder mit Artikelnamen markiert und ihnen einen Namen gegeben (Artikelname, weil das nahe liegt ;-) ).
Dann habe ich in dem Tabellenblatt, in dem die Auswahl erfolgen soll, eine Dropdownliste erstellt, in dem ich zunächst eine Zelle markiert habe und dann über "Daten->Datenüberprüfung->Reiter "Einstellungen", Zulassen: Liste, Quelle: =Artikelname ausgewäjlt habe.

Die Felder mit den Artikelnummer, die sich auf dem anderen Tabellenblatt befinden, habe ich einzeln benannt. Sie haben den jeweiligen Artikelnamen erhalten. Das o.g. VBA-Script ermöglicht so, dass ich in einem Feld auf dem Auswahltabellenblatt einen Artikelnamen auswählen kann und mir die zugehörige Artikelnummer angezeigt wird. Dies soll jetzt für die anderen Felder in der Spalte ebenfalls ermöglicht werden

 

hi apm, kannst du bitte (d)eine (beispiel)datei mal hochladen? oder zumindest einen tabellenausschnitt?

 

sehr gerne :-D

 

hi apm, B2=SVERWEIS(A2;Tabelle2!A:B;2;0) oder B3=INDEX(Tabelle2!B:B;VERGLEICH(A3;Tabelle2!A:A;0)) geht bei mir...

 

Ich habe das jetzt so ausüprobiert und es funktioneirt auch bei mir.

Bei der Datei, in die das Ganze implementiert werden soll, handelt es sich um eine Liste, d.h. es werden neue Zeilen hinzugefügt, wenn man am Ende einer Zeile ankommt (in diesem Falle Feld "K" -> bin ich in Feld "K" und drücke TAB, springe ich in eine neue Zeile, die hinzugefügt wird).

Wie schaffe ich es, dass auch die Auswahlmöglichkeit in jede neue Zeile mit übertragen wird?

Vielen Dank bis heirhin! Echt toll, wie schnell das geht :-D

 

hi apm, das hier:" Wie schaffe ich es, dass auch die Auswahlmöglichkeit in jede neue Zeile mit übertragen wird?" verstehe ich nicht ganz, deshalb bin ich denke ich hier raus. so wie ich das verstehe geht das - so wie du in deiner anfrage schon geschrieben hast - wirklich nur mit vba. ansonsten könnte man die zelle mit der gültigkeitsliste einfach nach unten ziehen und dann auf die Entfernen-Taste. dann bleibt die gültigkeit drinnen aber die zellen bleiben bis zur auswahl leer...

 

Hi,
habe die Lösung inzwischen gefunden. Das Problem hat sich von selbst gelöst!
Vielen vielen Dank für die Hilfe!

 

hi, das ist doch schön, und lass uns doch bitte teilhaben...