Ich brauche mal wieder hilfe.
Absicht vom unten angezeigter Code ist aus Spalte A mit Daten(Text) in jeder Zelle bis zu Zeile ?, immer jeder Zelle angefangen bei Zelle A4, nächste Zelle A39, A74, A109 usw. zu kopieren( DIFF. immer 35 )und auf Arbeitsblatt "data1" ein zufügen.
Wichtig dabei ist dass er nur kopieren soll, wenn sich Daten in Spalte B befinden.
Sub Zusammenfassung1()
Dim i As Integer
Dim Counter As Integer
Dim Pkcounter As Integer
For i = 1 To 11
Counter = 4
Pkcounter = 1
Do Until Worksheets("Data").Cells(Counter + 2, 2).Value = ""
If Not (Worksheets("Data").Cells(Counter + 2, 2)) = "" Then
Worksheets("Data").Activate
ActiveSheet.Range(Cells(Counter, 1)).Cells(Counter, 1).Copy
Worksheets("Data1").Activate
ActiveSheet.Cells(3, Pkcounter + 1).Select
ActiveSheet.Paste
Pkcounter = Pkcounter + 1
Else: End If
Counter = Counter + 35
Loop
Next i
End Sub
Warscheinlich mache ich ne ziemlich "fraglichen" Fehler aber ich weiss leider nicht wie sonst.
Ich hoffe Ihr könnt mich helfen
Grüsse
Robert