Hallo,
ich habe Eine Excel Liste mit verschiedenen Artikeln. Nun trage ich zum Anfang von jedem Monat die noch vorhandene Artikelmenge ein. Die eine Spalte ist also die Artikelbezeichnung und waagerecht sind die Monate.
Nun gibt es aber noch weitere Informationen zu dem Artikel. z.B will ich den Einzelpreis o.ä. anzeigen. Hierfür habe ich auf dem zweiten Tabellenblatt eine Tabelle mit dem Artikel und den interessanten Werten erstellt (Für jeden Artikel eine Tabelle gleicher Größe).
Nun möchte ich gerne auf der ersten Seite eine Auswahl haben zwischen den Artikeln. Wähle ich nun Artikel 1 aus soll mir die Tabelle von Artikel 1 vom zweiten Tabellenblatt angezeigt werden. Genau so mit den anderen Artikeln. Hatte dies mal mit einem Kombinationsfeld (+wenn/dann funktion) versucht, das ist aber sehr schwergängig und unpraktisch falls mal neue Artikel hinzugefügt werden.
Weiß jemand eine tolle Lösung für dieses „problem“?
Dankeschön
Bob
Nun möchte ich gerne auf der ersten Seite eine Auswahl haben
zwischen den Artikeln. Wähle ich nun Artikel 1 aus soll mir
die Tabelle von Artikel 1 vom zweiten Tabellenblatt angezeigt
werden. Genau so mit den anderen Artikeln. Hatte dies mal mit
einem Kombinationsfeld (+wenn/dann funktion) versucht, das ist
aber sehr schwergängig und unpraktisch falls mal neue Artikel
hinzugefügt werden.
Hi Bob,
Einfügen–Namen–Definiere, lege den Namen z.B. „Bereich“ für A1:Ax an, also die Spalte mit den Bezeichnungen.
Erstelle dir über Ansicht–Symbolleisten–Formular ein Kombinationsfeld.
Nach Rechtsklick dann „Steuerelement formatieren“ auswählen.
Eingabebereich: Bereich
Zellverknüfung z.B. D1
In eine andere Zelle schreibst du die Formel:
=BEREICH.VERSCHIEBEN(A1;D1-1;0)
Aufgrund dieser Zelle kannst du dir dann mittels Sverweis jeden Wert zu dem ausgewählten Artikel holen.
Damit Bereich automatisch angepasst wird bei Artikeländerungen,
Alt+F11, Doppelklick auf den Blattnamen, Code einfügen, Editor schliessen.
Option Explicit
Private Sub Worksheet\_Change(ByVal Target As Range)
Dim Zei As Long
If Target.Column 1 Then Exit Sub
Zei = Cells(Rows.Count, 1).End(xlUp).Row
ActiveWorkbook.Names.Add Name:="Bereich", RefersToR1C1:= \_
"=Tabelle1!R1C1:R" & Zei & "C1"
End Sub
Gruß
Reinhard