ComboBox aus anderem Tabellenblatt füllen

Mit folgendem Code fülle ich eine Combobox und Textbox.

Private Sub cboListe2_Change()
txtAuswahl16.Text = Cells(cboListe2.ListIndex + 2, 22)
End Sub

Private Sub UserForm_Initialize()
Dim intCounter As Integer
For intCounter = 2 To 130
cboListe2.AddItem Cells(intCounter, 21)
Next intCounter
cboListe2.ListIndex = 0
End Sub

Wie müsste der Code aussehen, wenn es aus einem anderen Blatt zum Beispiel "Daten" gefüllt wird ?

Vielen Dank im Voraus

Gruß Volker