Modulzugriff auf geschlossene Datenbank-Datei

Private Sub ComboBox1_Change()
Dim TB As Worksheet
Dim R%
Set TB = Workbooks("1.xls").Worksheets("Adressen")
R = ComboBox1.ListIndex + 2
TextBox1.Text = TB.Cells(R, 1)
TextBox2.Text = TB.Cells(R, 2)
TextBox3.Text = Trim(TB.Cells(R, 3) & " " & TB.Cells(R, 4))
TextBox4.Text = TB.Cells(R, 7)
TextBox5.Text = Trim(TB.Cells(R, 5) & " " & TB.Cells(R, 6))
TextBox6.Text = TB.Cells(R, 8)
TextBox7.Text = TB.Cells(R, 9)
TextBox8.Text = TB.Cells(R, 10)
End Sub

Private Sub CommandButton1_Click()
Dim TB As Worksheet
Dim lZeile%, i%
Set TB = Workbooks("1.xls").Worksheets("NeueListe")
If IsEmpty(TB.Cells(1, 1)) Then
lZeile = 1
Else
lZeile = TB.Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
For i = 1 To 8
TB.Cells(lZeile, i) = frmSuchen.Controls("Textbox" & i).Value
Next i
End Sub

Private Sub UserForm_Initialize()
Dim lZeile$
lZeile = Workbooks("1.xls").Worksheets("Adressen"). _
Cells(Rows.Count, 1).End(xlUp).Address(False, False)
ComboBox1.RowSource = "Adressen!A2:" & lZeile
End Sub