Hallo.
Ich habe ein Problem. Am besten erstmal der Code:
'"Hersteller" einlesen
Workbooks(Name).Activate
On Error Resume Next
Range("Hersteller").Select 'Zellenbereich auswählen
Selection.Copy 'Bereich kopieren
ChDir "K:\Prüfungen\MESSUNG\"
Workbooks("Test.xls").Activate
ActiveWorkbook.Sheets("Tabelle1").Select
Range("A6").Select 'Bereich in Arbeitsblatt auswählen
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False 'Inhalte einfügen: Wert
Range("A17").Select 'Bereich in Arbeitsblatt auswählen
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False 'Inhalte einfügen: Wert
Application.CutCopyMode = False
Bis hierher klappt alles wie es soll. Es wird nur der Wert der Zelle (hier ein Name) kopiert und eingefügt. Die Formatierung der Zielzelle bleibt erhalten. Nun wiederhole ich den Code wie folgt:
'"Typ" einlesen
Workbooks(Name).Activate
On Error Resume Next
Range("Typ").Select 'Zellenbereich auswählen
Selection.Copy 'Bereich kopieren
ChDir "K:\Prüfungen\MESSUNG\"
Workbooks("Test.xls").Activate
ActiveWorkbook.Sheets("Tabelle1").Select
Range("A8").Select 'Bereich in Arbeitsblatt auswählen
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False 'Inhalte einfügen: Wert
Range("A19").Select 'Bereich in Arbeitsblatt auswählen
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False 'Inhalte einfügen: Wert
Application.CutCopyMode = False
Das funktioniert nicht!!! Es wird zwar, wie beim ersten Mal kopiert, auch der richtige Wert (wieder ein Name) aber es wird die Formatierung der Quellzelle übernommen.
Währe sehr dankbar wenn jemand eine Lösung hätte.
Habe die Datei auf den Server geladen: www.herber.de/bbs/user/33640.xls
Henning