Hallo Hajo,
entschuldige, das ich erst jetzt Zeit finde mich zu bedanken.
wo auch immer du "select" siehst, kannst du dir den deinen obigen Hinweis wohl nie verkneifen?
Überflüssig und falsch war die Anweisung "Application.ScreenUpdating = False", denn die verhinderte das dem Benutzer, die zu löschende Spalte per "Select" gezeigt wurde.
Ich hatte bei meiner Frage zu kompliziert gedacht, ich glaubte erst noch den Rückgabewert der MsgBox abfragen zu müssen. Ich habe die MsgBox noch um "Abbrechen" ergänzt und "Nein" zum vorgegebenen Wert geändert. Das Makro sieht nun so aus:
Sub leere_Spalte1()
Dim leere_Spalte As Integer
For leere_Spalte = 10 To 1 Step -1
If Application.CountA(Columns(leere_Spalte)) = 1 Then
Columns(leere_Spalte).Select
If MsgBox("Wollen Sie diese Spalte wirklich löschen?", vbYesNoCancel + vbDefaultButton2 + vbQuestion, "Löschabfrage") = vbYes Then
Columns(leere_Spalte).Delete
End If
ElseIf vbCancel Then GoTo ende???
End If
Next
ende???
End Sub
Was muss ich korrigieren damit nach klick auf "Abbrechen", das Makro beendet wird?