Microsoft Excel

Herbers Excel/VBA-Archiv

Formatierungen löschen | Herbers Excel-Forum


Betrifft: Formatierungen löschen von: Space
Geschrieben am: 21.01.2010 11:46:46

Hallo,

wie schaffe ich es, dass nur der Inhalt aber nicht die Formatierung des Excel Files kopiert wird?

With wks
.Range(.Cells(2, 1), .Cells(2, 1).End(xlDown)).Resize(, 22).Copy _
Workbooks("Data Generator.xls").Sheets("Kontakte").Range("A14")
End With

Ich will die Farben und den Hintergrund nicht übernehmen.

Vielen Dank!
Gruß Space

  

Betrifft: AW: Formatierungen löschen von: welga
Geschrieben am: 21.01.2010 11:54:03

Hallo,

eventuell so:

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False



Gruß
welga


  

Betrifft: AW: Formatierungen löschen von: Space
Geschrieben am: 21.01.2010 14:16:24

Hallo,

Egal ob ich den Code in die With Schleife oder ausserhalb eintragen kommt der Fehler:

Laufzeitfehler 1004 :
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

konnte nicht ausgeführt werden.

MfG
Space


  

Betrifft: so: von: Björn B.
Geschrieben am: 21.01.2010 14:23:07

Hallo

With wks
.Range(.Cells(2, 1), .Cells(2, 1).End(xlDown)).Resize(, 22).Copy

Workbooks("Data Generator.xls").Sheets("Kontakte").Range("A14").PasteSpecial Paste:=xlValues,  _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With
Gruß
Björn B.


  

Betrifft: AW: so: von: Space
Geschrieben am: 21.01.2010 15:01:02

Hey,

jetzt kommt der Fehler:

Fehler beim kompilieren, Erwartet: Anweisungsende und Paste wird markiert
Hier nochmal der erweiterte Code

With wks
.Range(.Cells(2, 1), .Cells(2, 1).End(xlDown)).Resize(, 22).Copy _
Workbooks("Data Generator.xls").Sheets("Kontakte").Range("A14").PasteSpecial Paste:=xlValues, _Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With

Was mache ich falsch?

Gruß
Space


  

Betrifft: AW: so: von: Björn B.
Geschrieben am: 21.01.2010 15:36:42

Hallo

Was mache ich falsch?
Du kannst entweder nicht genau lesen, oder nicht kopieren und einfügen. ;-)
Du hast nicht den Code, den ich dir geschrieben habe verwendet!!!

Einfach noch mal genau anschauen und vergleichen.
Kleiner Tipp, es geht nur um diese Zeile.
Dein Code:
.Range(.Cells(2, 1), .Cells(2, 1).End(xlDown)).Resize(, 22).Copy _

Mein Code:
.Range(.Cells(2, 1), .Cells(2, 1).End(xlDown)).Resize(, 22).Copy 

Siehst du den Unterschied?

Gruß
Björn B.


  

Betrifft: AW: so: von: Space
Geschrieben am: 22.01.2010 10:04:06

Hallo,

mmhh stimmt, jetzt kommt allerdings der Laufzeitfehler9: Index ausserhalb des gültigen Bereichs ;)!

Gruß
Space


  

Betrifft: AW: so: von: Björn B.
Geschrieben am: 22.01.2010 15:11:15

Dieser Fehler deutet darauf hin, dass Du auf etwas zugreifen möchtest, was es nicht gibt.
Überprüf den Mappen-namen, Blattnamen, usw.

Gruß
Björn B.


Beiträge aus den Excel-Beispielen zum Thema "Formatierungen löschen"