Bitte Makro auf tauglichkeit überprüfen
Josef_T
Habe mir dieses Makro geschrieben, um nicht jedes Jahr 48 TB, zu Fuß löschen zu müssen.
Die Arbeitsmappe besteht unter anderem aus 48 TB, um Arbeitsstunden zu erfassen. Diese Arbeitsblätter
sind fortlaufend mit MA1,MA2,MA3 bis MA48 benannt. In allen 48 TB, sind die Spalten G,H,I und J, ausgeblendet. In 2 sichtbaren Spalten stehen Formeln. Die Zellen in allen TB haben das Format, Standard.
Die Formel, soll die Werte in der Range löschen, aber die Formeln stehen lassen.
Die Arbeitsmappe habe ich hier nicht zu Verfügung und kann deshalb nicht testen . (Im Betrieb)
Nun meine Bitte: könnt Ihr Profis das Makro mal überprüfen, ob das so überhaupt funktioniert, oder
mir mitteilen, wo ich gemurkst habe.
Danke schon mal
Gruß
Josef
Sub Löschmeister()
If MsgBox( _
prompt:="...möchtest Du wirklich alles löschen?", _
Buttons:=vbQuestion + vbYesNo _
) = vbNo Then Exit Sub
Dim intma As Integer
For intma = 1 To 48
ThisWorkbook.Worksheets("MA#").Range("D3:P367").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents
Next
End Sub
Anzeige