Herbers Excel-Forum - das Archiv

VBA- kopieren und einfügen

Bild

Betrifft: VBA- kopieren und einfügen
von: Stefan

Geschrieben am: 21.03.2005 13:37:27
Hallo,
ich habe mir ein kleine VBA-Teil geschneidert. Es soll Werte aus Basis des Farbcodes kopieren.
Soviel zur Theorie. Das ganze läuft auf keinen Fehler, aber macht auch nicht was es soll. Kann mir jemand sagen, wo der Hase versteckt ist ?
Vielen Dank schon mal.
Gruß
Stefan
Sub farben_kopieren()
For i = 1 To Cells(11000, 4).End(xlUp).Row
If Cells(i, 4).Interior.ColorIndex = 1 Then Cells(i, 4).Copy _
Destination:=Cells(i, 2)
Next i
End Sub

Bild

Betrifft: AW: VBA- kopieren und einfügen
von: Tobias Marx

Geschrieben am: 21.03.2005 13:43:22
Servus!
So sollte es gehen:
Sub farben_kopieren()
For i = 1 To Cells(11000, 4).End(xlUp).Row
If Cells(i, 4).Interior.ColorIndex = 1 Then Cells(i, 4).Copy
Cells(i ,2).PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Cells(i ,2).Paste
Next i
End Sub

Das Problem beim Kopieren ueber VBA ist leider, dass er Zellformatierungen nicht mitnimmt. Deswegen musst du den PasteSpecial einfuegen, der das Format mitkopiert und danach noch normal einfuegen.
Gruss

Tobias
Bild

Betrifft: AW: VBA- kopieren und einfügen
von: Stefan

Geschrieben am: 21.03.2005 13:53:57
Hi Tobias,
danke für die schnelle Antwort. Jedoch bekomme ich die Fehlermeldung PasteSpezial nicht ausführbar.
Also ich möchte eigentlich nur werte die z.b. rot sind und in spalte 4 stehen in spalte 2 kopieren (mir reicht der wert, format etc. ist nicht notwendig).
Vielleicht habe ich das nicht so klar formuliert....Sorry
gruß
Stefan
Bild

Betrifft: AW: VBA- kopieren und einfügen
von: Ralf (Schwabenland)
Geschrieben am: 21.03.2005 14:30:05
Hallo Stefan,
hier mal ein Beispiel. Funzt einwandfrei.
https://www.herber.de/bbs/user/19945.xls
Hoffe es hilft.
Gruß
Ralf
Bild

Betrifft: AW: VBA- kopieren und einfügen
von: Stefan
Geschrieben am: 21.03.2005 16:23:38
Hi Ralf,
genau das war es !! Perfekt vielen Dank !
 Bild
Excel-Beispiele zum Thema "VBA- kopieren und einfügen"
Blätter in andere Arbeitsmappen kopieren Module von Mappe zu Mappe kopieren
Arbeitsblatt 40 mal kopieren Schriftgröße beim Kopieren verdoppeln
Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen Tabellencode nach Kopieren des Blattes löschen
Arbeitsmappe blitzschnell kopieren VBE-Namen der Blattmodule beim Kopieren festlegen
Blattinhalt von einer zur anderen Arbeitsmappe kopieren Formel bis zur letzten Zeile der Nebenspalte kopieren