ich möchte mit nachstehendem Code u.a. auch die Spaltenbreiten mit kopieren; ich dachte dies wäre im Befehl xlPasteFormats mit drin; scheint es aber nicht zu sein, oder ist etwas anderes falsch?
Private Sub CmdButton1_click()
For a = 3 To 9 Step 1
If frmAuswertungB.ComboBox1.Value = ("200" & a & " " & "monatlich") Then
Sheets("Bm200" & a).Range("A1:AO1000").ClearContents
Sheets("KopieB").Activate
Sheets("KopieB").Range("A1:AO1000").Copy
Sheets("Bm200" & a).Range("A1").PasteSpecial Paste:=xlPasteValues
Sheets("Bm200" & a).Range("A1").PasteSpecial Paste:=xlPasteFormats
End If
Next a
End Sub
Vielen Dank für Hilfe
Peter Sohr