Spaltenbereich kopieren
03.12.2019 10:18:51
Matthias
ich brauche wieder eure Hilfe!!!
Ich habe eine Vergleichstabelle und 20 Einzeltabellen.
Aus der Vergleichstabelle möchte ich die Daten per VBA in die Einzeltabellen übertragen.
Im Zellenbereich B23 bis B54 sind Bezeichnungen.
Ab Spalte F beginnen die Werte, die ich in die jeweilige Tabelle Kopieren möchte.
In Zeile 2 befinden sich die Namen der Tabellenblätter.
Ich bekomme folgende Fehlermeldung:
Unzulässiger oder nicht ausreichend definierter Verweis
Vielen Dank im voraus
Matthias
Sub Expo()
Dim FoTab As String
Dim VerTa As String
Dim spalte As Long
spalte = 6
VerTa = "Vergleichstabelle"
ForTa = Worksheets(VerTa).Cells(2, spalte).Value
Application.EnableEvents = False
For spalte = 6 To Columns.Count
Worksheets(VerTa).Range(.Cells(4, 2), .Cells(54, 2)).Copy Destination:=Worksheets(ForTa). _
Cells(2, 4)
Worksheets(VerTa).Range(.Cells(4, spalte), .Cells(54, spalte)).Copy Destination:=Worksheets( _
_
_
_
ForTa).Cells(4, 2)
Next spalte
Application.EnableEvents = True
End Sub