Betrifft: Formatierungen löschen
von: Space
Geschrieben am: 25.01.2010 11:09:58
Hallo,
ich will etwas ohne die Formatierungen in der anderen Tabelle kopieren. Hier mein Code:
Sub () .... Dim wks As Worksheet 'Excel Datei Kontaktdaten.xls öffnen Set wks = Workbooks.Open(Filename:= _ "H:\-Pfad-\Datei.xls").Sheets("Sheet1") 'Benötigte Zellen kopieren und im Tabellenblatt "Kontakte" einfügen 'Kopieren aus Kundendaten With wks .Range(.Cells(2, 1), .Cells(2, 1).End(xlDown)).Resize(, 22).Copy Workbooks("Data Generator.xls").Sheets("Kundenkontakte").Range("A18").PasteSpecial _ Paste:=xlValues, _Operation:=xlNone, SkipBlanks:=False, Transpose:=False End With ... End SubEs kommt jedoch in der fett markierten Zeile immer der Fehler:
Betrifft: AW: Formatierungen löschen
von: Rudi Maintaire
Geschrieben am: 25.01.2010 11:12:12
Hallo,
mach den _ vor Operation:= weg.
Gruß
Rudi
Betrifft: AW: Formatierungen löschen
von: Space
Geschrieben am: 25.01.2010 11:40:26
Hallo Rudi,
es wird nun kopiert aber der Rahmen der Zellen ist immer noch grün wie in der kopierte Tabelle und es kommt immer die Meldung, dass sehr viele Dateien in der Zwischenablage gespeichert sind. Kann man den grünen Rahmen auch noch entfernen und die sich öffnende Warnmeldung umgehen?
Gruß
Space
Betrifft: AW: Formatierungen löschen
von: Space
Geschrieben am: 25.01.2010 11:51:39
noch eine Kleinigkeit: wie kann ich den Zwischenspeicher nach dem Kopiervorgang wieder löschen?
Betrifft: AW: Formatierungen löschen
von: Hajo_Zi
Geschrieben am: 25.01.2010 12:36:22
Hallo Unbekannte(r),
falls Du die Markierung meinst
Application.CutCopyMode = False
Gruß Hajo
Betrifft: AW: Formatierungen löschen
von: Space
Geschrieben am: 25.01.2010 13:19:19
Hallo,
ich meinte nicht die Markierung sondern die Zwischenablage, sorry habe mich falsch ausgedrückt
Gruß
Space