Ich habe mit dem folgenden Script versucht mehrere Tabellen anzusprechen.
Leider wird im Moment nur die Tabelle1 angesprochen. Ich möchte aber noch die Tabelle mit dem Namen Tabella1 und die Tabelle mit dem Namen Kundenliste ansprechen.
Irgend wo habe ich noch einen Knopf. Kann mir jemand weiterhelfen?
Sub uebertragen_Extern()
Dim Name1 As String, Name2 As String, Name3 As String, Name4 As String, Name5 As String, Name6 _
As String, Name7 As String, Name8 As String, Name9 As String, Name10 As String, Name11 As String, Name12 As String, Name13 As String, Name14 As String, Name15 As String, Name16
Worksheets("Tabelle1").Select
Name1 = Range("B4")
Name2 = Range("B12")
Name3 = Range("B13")
Name4 = Range("B14")
Name5 = Range("B15")
Name6 = Range("B16")
Name7 = Range("B21")
Name8 = Range("B24")
Name9 = Range("B25")
Name10 = Range("B32")
Name11 = Range("B23")
Name12 = Range("G26")
Name13 = Range("H43")
Name14 = Range("B26")
Name15 = Range("B27")
Name16 = Range("G23")
Worksheets("db_1").Select
Worksheets("db_1").Range("B18").Select
If Worksheets("db_1").Range("B18").Offset(1, 0) "" Then
Worksheets("db_1").Range("B18").End(xlDown).Select
End If
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Name1
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Name2
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Name3
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Name4
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Name5
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Name6
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Name7
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Name8
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Name9
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Name10
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Name11
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Name12
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Name13
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Name14
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Name15
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Name16
ActiveCell.Offset(0, 1).Select
End Sub