Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Hallo, erstmal danke für deine Tipps.

Ich habe es jetzt wie folgt gemacht:
Private Sub Worksheet_Activate()
ComboBox21.ListIndex = 0
End Sub

Private Sub ComboBox21_Change()
If ComboBox21.ListIndex > 0 Then Worksheets("Tabelle1").Range("A6:C46").Value = Worksheets(ComboBox21.Value).Range("A1:C41").Value
End Sub

Was auch soweit gut funktioniert. Ist vielleicht nicht die eleganteste Lösung.

Edit: Jetzt komme ich aber schon zum nächsten Problem:

1. Ich habe jetzt eine zweite Combobox, die mit der ersten unmittelbar zusammen hängen soll.
Diese läuft über
 Private Sub Combobox22_change()
   Dim arrDaten
   Dim lngLetzte As Long
   With Worksheets("Liste")
      lngLetzte = .Cells(Rows.Count, 1).End(xlUp).Row
      arrDaten = .Range(.Cells(1, 2), .Cells(lngLetzte, 10))
      ComboBox22.List = arrDaten
   End With

Diese Liste beinhaltet dann passende Elemente für die erste Combobox.
Sprich: Ich wähle in der ersten Combobox ein Element aus und er soll mir in Box2 das dazugehörige Element ausgeben.
In dieser Liste stehen die dazugehörigen Elemente in einer Reihe in verschiedenen Spalten.
Wie verbinde ich nun also diese Elemente?

2. Ich würde gerne die Funktion einbauen, dass ich, wenn ich in dieser Liste ein neues Element eintrage, dass dann automatisch ein neues Blatt erschaffen wird mit dem dazugehörigen Namen aus Spalte B, als Beispiel.
Da weiß ich leider auch nicht weiter.

Vielen Dank im Vorraus

Edit2: Problem mehr oder weniger gelöst.
Relativ einfach mit ComboBox22.ListIndex = ComboBox21.ListIndex - 1. Das ganze noch mal umdrehen klappt leider nicht, ist aber auch nicht unbedingt notwenig.