Mit Combobox textboxen füllen

[Xenon85]

Guten Tag, 

ich möchte gern in der Combobox (Inhalt) aus dem Sheet "Auswahl" meine Daten beziehen. 
Passend zu dem Ausgewählen Inhalt soll die beiden Textboxen "Art" und "Dokument" mit dem dazugehörigen Text gefüllt werden.

Also "Beschreibung" ausgewählt
in Art erscheint "PDF"
in Dokument erscheint "2.2."
in Zähler "1"

oder 

Also "Test" ausgewählt
in Art erscheint "PDF"
in Dokument erscheint "1.1."
in Zähler "2"

Der Zähler soll in Tabelle1 zählen wie oft ich den Inhalt schon hinzugefügt habe.

Viele Dank für eure Hilfe.

[Kuwer]

Hallo,

Code:

Private Sub ComboBox1_Change()
  With ComboBox1
    TextBox1 = Range(.RowSource).Cells(.ListIndex + 1, 2).Value
    TextBox2 = Range(.RowSource).Cells(.ListIndex + 1, 3).Value
  End With
  With Tabelle1.Range("A1").CurrentRegion
    TextBox3 = Application.WorksheetFunction.CountIfs(.Columns(1), ComboBox1, .Columns(2), TextBox1, .Columns(3), TextBox2)
  End With
End Sub

Gruß, Uwe

[snb]

Verzichte auf 'Rowsource'.
Im Design Mode: Combobox1.Style=2

Code:

Private Sub UserForm_Initialize()
  ComboBox1.List = Tabelle2.UsedRange.Offset(1).SpecialCells(2).Value
End Sub

Private Sub ComboBox1_Change()
  If ComboBox1.ListIndex > -1 Then
    TextBox1 = ComboBox1.Column(1)
    TextBox2 = ComboBox1.Column(2)
  End If
End Sub

[Xenon85]

Code:

Private Sub ComboBox1_Change()
  With ComboBox1
    TextBox1 = Range(.RowSource).Cells(.ListIndex + 1, 2).Value
    TextBox2 = Range(.RowSource).Cells(.ListIndex + 1, 3).Value
  End With

Klappt ohne Probleme

Der Zweite Teil mit dem zusammenzählen leider nicht

Er soll in Texbox3 anzeigen wie oft der Wert der in Combobox1 ausgewählt ist in der Tabelle "Auswertung" in Spalte C auftaucht.

[snb]

Minimiere das Angreifen der Code ins Arbeitsblatt.
Dieser Code macht das 2 * überflüssig. (die Daten sind schon im ComboBox anwesend)