ich bin neu in der VBA-Programmierung und suche Hilfe beim Kopieren jeder zweiten Spalte aus einem Datenblatt ("zw_ablage") in ein anderes ("UI_data"). Leider zeigt es mir immer einen Fehler in der Range(Cells) Spalte an (die ganze Zeile wird gelb markiert). Was übersehe ich hier?
Hier ist mein geschriebener Code:
Sub Wegspalte_UI()
Dim Anzahl_Datensaetze As Integer
Dim Spalte As Integer
Anzahl_Datensaetze = Sheets("admin").Cells(Rows.Count, 1).End(xlUp).Row
Spalte = 1
For x = 1 To Anzahl_Datensaetze - 1
Sheets("UI_data").Range(Cells(5, Spalte), Cells(2000, Spalte)) = Sheets("zw_ablage").Range( _
_
_
_
_
Cells(5, Spalte), Cells(2000, Spalte)).Value
Spalte = Spalte + 2
Next x
End Sub
Bin für jegliche Hilfe sehr dankbar!
lieben Gruß, Max