title image


Smiley Daten - Gültigkeit : 2 Spalten zur Auswahl, 1 Spalte als Ergebnis
Hey beanbear,



das ist nicht so ohne weiteres machbar, eine Lösung per Bereichsnamen und VBA könnte folgendermassen aussehen :



Erstelle folgende Tabelle (anstelle der Formeln in Spalte A kannst du die Werte natürlich auch direkt eingeben) :

 ABCDE1Monat_ZahlMonateZahl Auswahl2=B2&" " &C2jan1 jan3=B3&" " &C3feb2 aug4=B4&" " &C4mrz3  5=B5&" " &C5apr4  6=B6&" " &C6mai5  7=B7&" " &C7jun6  8=B8&" " &C8jul7  9=B9&" " &C9aug8  10=B10&" " &C10sep9  11=B11&" " &C11okt10  12=B12&" " &C12nov11  13=B13&" " &C13dez12  

Die Tabelle sollte nun so aussehen (E2 und E3 enthalten bereits "umgewandelte Monatswerte") :

 ABCDE1Monat_ZahlMonateZahl Auswahl2jan 1jan1 jan3feb 2feb2 aug4mrz 3mrz3  5apr 4apr4  6mai 5mai5  7jun 6jun6  8jul 7jul7  9aug 8aug8  10sep 9sep9  11okt 10okt10  12nov 11nov11  13dez 12dez12  

Für den Bereich A2:A13 vergibst Du den Namen "Monat_Zahl", für den Bereich B2:B13 den Namen "Monate", für den Bereich E2:E6 den Namen "Auswahl" - diese Bereichsnamen benötigt der folgende VBA-Code.

Für die blau markierten Zellen (Auswahl) erstellst Du die gültigen Werte per "Daten - Gültigkeit - Zulassen:Liste - Quelle: =Monat_Zahl - OK"



Nun klickst Du den Namen des Tabellenblattes im Blattregister unten mit der rechten Maustaste an, wählst "Code anzeigen...." aus und kopierst in das nun folgende Codemodul des Tabellenblattes folgenden VBA-Code :





      

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target,[auswahl]) Is Nothing Then

        Application.EnableEvents = False

        nr = Application.WorksheetFunction.Match(Target,[Monat_Zahl], 0)

        Target.Value = Application.WorksheetFunction.Index([Monate], nr)

        Application.EnableEvents = True

    End If

End Sub



Dieser VBA-Code entspricht der Tabellenfunktion =INDEX(Monate;VERGLEICH(E2;Monat_Zahl)) und "sucht" quasi den ausgewählten Eintrag aus dem Bereich "Monat_Zahl" und gibt in der Zelle das Pendant aus dem Bereich "Monate" aus.



Ergebnis :




























Grüße, NoNet

  1,2,3 - kleine Excelei :   Infos + Anmeldung zum Jährlichen Exceltreffen



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: