Hallo
Besten dank für deine Hilfe
Habe es nach einigen probieren hin bekommen
Mein Makro siet jetzt so aus, und funktioniert auch.
Sub Löschen()
'
' Löschen Makro
' Makro am 01.08.2010 von Familie aufgezeichnet
'
If MsgBox("Wollen Sie den Auftrag wirklich löschen.", vbYesNo + vbQuestion, "Löschabfrage ?") = vbYes Then
MsgBox "Ja"
Range("B9:H13,B16:H21,B24:H28").Select
Range("B24").Activate
Selection.ClearContents
Else
MsgBox "Nein"
Range("B7").Select
End If
End Sub
Köntest du es so anpassen das nur eine Abfrage kommt, ob ja oder nein.
MFG
HAns