Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

VBA jede zweite Zelle ab X makieren und kopieren
#1
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.
Antwortento top
#2
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 Longcnt As Long
7
cnt 
1
For Each cCell In Range("F7:F207")

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

Next

End Sub 
Antwortento top
#3
Hallo Ralf,

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

Super HilfeSmile
Antwortento top
#4
danke für die rückmeldung
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste