Hallo,
ich habe mit dem Makrorecorder folgendes aufgezeichnet...
If CheckBox102 = Enabled Then
Range("AK1:BQ69").Select
Selection.Copy
Range("A1:AG69").Select
ActiveSheet.Paste
Range("AI1:FV84").Select
Application.CutCopyMode = False
Selection.ClearContents
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Selection.UnMerge
[H69] = Zahlwort2
End If
Das Ganze hab ich dahin abgeändert...
If CheckBox102 = Enabled Then
Sheets("MinÖSt").Range("AK1:BQ69").Copy
Sheets("MinÖSt").Range("A1:AG69").Paste
Sheets("MinÖSt").Range("AI1:FV84") = ""
Sheets("MinÖSt").[H69] = Zahlwort2
Application.CutCopyMode = False
With Sheets("MinÖSt").Range("AI1:FV84")
.Borders.LineStyle = xlNone
.UnMerge
End With
End If
Bei Copy/Paste bekomme ich jetzt einen Fehler. Muß ich in diesem Fall den Code des Makrorecorders folgen und in das Blatt wechseln oder wo liegt hier der Fehler?
Danke für Dein Interesse/Hilfe, Thomas