AW: makro stopen über eine msgbox
27.11.2004 21:47:35
sebastian
hi,
das makro wird bei nein nicht unterbrochen die daten werden dennoch gelöscht.
Sub loeschen_auswertung()
' loeschen_auswertung Makro
' Makro am 25.11.2004 von Sebastian aufgezeichnet
Mldg = MsgBox(" Wollen Sie den Auftrag: " & AuftragsNr _
& " wirklich löschen.", vbYesNo + vbQuestion, "Löschabfrage ?", "", 0)
If Mldg = 6 Then
' löschen
End If
Sheets("Aw").Select
Range("A2:L150").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-132
Range("A2").Select
ActiveWorkbook.Save
End Sub
noch ne idee?
gruß sebastian