Ich bekomme Fehlermeldungen wenn ich den Range von verschiedenen Zellen in eine Zelle vereinen möchte.
Wo mach ich da noch einen Überlegungsfehler?
Sub uebertragen_AssuranceExtern()
'Daten in die Datenbank von données de base von Extern'
Dim Name(1 To 27) As String
Worksheets("Tabelle1").Select
Name1 = Range("F9")
Name2 = Range("D11")
Name3 = Range("C15")
Name4 = Range("C17")
Name5 = Range("C19")
Name6 = Range("C21")
Name7 = Range("C23;E23")
Name8 = Range("C32")
Name9 = Range("G32;I32")
Name10 = Range("C34;D34")
Name11 = Range("G34;I34")
Name12 = Range("D36")
Name13 = Range("D38")
Name14 = Range("G40")
Name15 = Range("D42")
Name16 = Range("G42")
Name17 = Range("D44")
Name18 = Range("H57")
Name19 = Range("H51")
Name20 = Range("H55")
Name21 = Range("H64")
Name22 = Range("H66")
Name23 = Range("H80")
Name24 = Range("H82")
Name25 = Range("H89")
Name26 = Range("I95")
Name27 = Range("I97")