Ich möchte in .Sheets(1) [vgl. Code am Ende des Threads] die Teilung aufheben. Wenn man das mit dem Macro Recorder aufzeichnet, sieht das wie folgt aus:
With ActiveWindow
.SplitColumn = 0
.SplitRow = 0
End With
Da jedoch beim Ablaufen meines Codes wohl das Fenster nicht aktiv ist, müsste ich wohl den Befehl in die bestehende Schlaufe integrieren können. Dies ist mir jedoch nicht gelungen. Kann mir jemand weiterhelfen?
Danke und freundlicher Gruss
Peter
With ActiveWorkbook
.Sheets(1).Columns("A:D").Delete
.Sheets(1).Columns("Q:R").Delete
.Sheets(1).Columns("T:U").Delete
.Sheets(1).Rows("3:4").Delete
.Sheets(1).Copy after:=.Sheets(1)
.Sheets(1).Cells.ClearFormats
end with