Clever-Excel-Forum

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.

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 

Hallo Ralf,

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

Super Hilfe :)

danke für die rückmeldung

excel91

ralf_b

excel91

ralf_b