Guten Tag
Den Abschnitt mit der Zellnformatierung verwende ich immer wieder, daher möchte ich dies in einem separaten Makro ausgliedern.
Krieg es aber einfach nicht hin.
Sub delPET()
Set wsIn = ThisWorkbook.Sheets("PET")
wsIn.Activate
ab hier in einem separaten Makro, jedoch ist der Zellbereich verschieden. Möchte den Zellbereich vorab bestimmen und dann in das saparete Makro übergeben.
With wsIn
Set delCells = .Range(.Cells(3, 1), .Cells(1000, 4)) 'Definition zu löschender Bereich
delCells.ClearContents
delCells.ClearFormats
delCells.Font.Size = 7
delCells.Font.Name = "Arial"
delCells.RowHeight = 12
End With
End Sub
Vielen Dank für die Hilfe.
|