VBA jede zweite Zelle ab X makieren und kopieren

[excel91]

Hallo zusammen,

ein passenderer Betreff ist mir leider nicht eingefallen, hier einmal die genaue Erklärung.

Ich möchte auf dem Aktiven Arbeitsblatt Ab und inkl. der Zelle F7 jede zweite Zelle darunter makieren bis Zelle F207.
Es kann sein das auch leere Zellen dabei sind.
Diesen Bereich möchte ich auf ein anderes Arbeitsblatt kopieren, jedoch nur die werte ohne die Formatierung.

Mein Bisheriger Code sieht wie folgt aus.

Code:

Application.ScreenUpdating = False
Dim rngASel As Range
    Set rngASel = Union( _
    Range("F7,F9,F11,F13,F15,F17,F19,F21,F23,F25,F27,F29,F31,F33,F35,"), _
    Range("F37,F39,F41,F43,F45,F47,F49,F51,F53,F55,F57,F59,F61,F63,F65,F67,"), _
    Range("F69,F71,F73,F75,F77,F79,F81,F83,F85,F87,F89,F91,F93,F95,F97,F99,"), _
    Range("F101,F103,F105,F107,F109,F111,F113,F115,F117,F119,F121,F123,F125,"), _
    Range("F127,F129,F131,F133,F135,F137,F139,F141,F143,F145,F147,F149,F151,"), _
    Range("F153,F155,F157,F159,F161,F163,F165,F167,F169,F171,F173,F175,F177,"), _
    Range("F179,F181,F183,F185,F187,F189,F191,F193,F195,F197,F199,F201,F203,"), _
    Range("F205,F207"))
    rngASel.Select
    Selection.Copy
    Sheets("Blatt2").Select
    Range("Tabelle7[EAN / Artnr.]").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
Application.ScreenUpdating = True

Ich bekomme allerdings einen Fehler was den Range Befehl betrifft. Vlt. einfach nur ein dummer Denkfehler.
Ich bin dankbar für jeden Lösungsvorschlag.

[ralf_b]

hier mal ein Makro mit Schleife. den Bereich darfst du an deine Bedürfnisse anpassen.  Ebenso die Abfrage der Formatierungen ,welche ich nicht kapiert habe.

PHP-Code:

Sub test()

Dim cCell As Range
Dim i  As Long, cnt As Long
i = 7
cnt = 1
For Each cCell In Range("F7:F207")

  If cCell.Row = i Then
   Worksheets("EAN / Artnr.").Cells(cnt, 1).Value = cCell.Value
   i = i + 2
   cnt = cnt + 1
  End If

Next

End Sub 


[excel91]

Hallo Ralf,

danke für den Denkanstoß.
Ich habe es! Bereiche und das Arbeitsblatt angepasst und alles läuft.

Super Hilfe :)

[ralf_b]

danke für die rückmeldung