ich stehe vor einem kleinen Problem:
Ich habe im Tabellenblatt "Ausgangsdaten" von E3:CW50 Werte.
Nun möchte ich jede Zeile in das Tabellenblatt"Eingangsdaten" kopieren.
Im Tabellenblatt"Eingangsdaten" soll jedoch nur jede 2. Zeile befüllt werden.
Bisher habe ich folgenden Code, der aber leider jede Zeile im Tabellenblatt " _ Eingangsdaten" befüllt und zudem noch sehr langsam ist. Kann man das mit Arrays (da hab ich leider sehr wenig Ahnung von) schneller machen?
Sub Kosten_berechnen()
Dim KostenZeile As Integer
Dim KostenSpalte As Integer
Worksheets("Fitness").Activate
Range("C4:M101").Select
Selection.Clear
Range("A3:A101").Select
Selection.Clear
For KostenZeile = 3 To 101
For KostenSpalte = 3 To 101
Worksheets("Eingangsdaten").Cells(KostenZeile, KostenSpalte + 1).Value = Worksheets(" _
_
Ausgangsdaten").Cells(KostenZeile, KostenSpalte + 2)
End If
Next KostenSpalte
Next KostenZeile
End Sub
Vielen Dank für eure Hilfe!
Anna