Das ganze Makro soll praktisch mit der Bedingung:
if ActiveWindow.DisplayHeadings = False Then ' wenn Spalten ausgeblendet dann gleich beenden ohne M.box.
sollte das Makro einfach nicht reagieren, also gleich immer beenden, ohne Mbox. geht das ?
Vieleicht weist du ja wie´s geht. Ich bekomms leider nicht hin,
wäre sehr nett, Danke , Gruß udo
Sub A_Zeilen_löschen2()
If ActiveWindow.DisplayHeadings = False Then ' wenn Spalten ausgeblendet dann ...
End If
' beenden - nicht reagieren
Dim Mldg As Byte
Mldg = MsgBox(" Auswahl wirklich löschen ? ", vbYesNo + vbQuestion, "Löschabfrage ?", "", 0)
If Mldg = 6 Then ' ja es soll gelöscht werden
Application.ScreenUpdating = False
Selection.Delete ' Auswahl Markierung löschen
Dim intCounter As Integer ' zahlenreihe in Spalte A eintragen
For intCounter = 19 To 900 ' Zahl hier bis zu welcher Zahl
Cells(intCounter, 1) = intCounter ' ZAhl hier in welcher Spalte
Next intCounter
Range("A19:N900").Sort Key1:=Range("A19"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal ' sortieren Ende
Application.ScreenUpdating = True
End If ' beenden - nicht reagieren
End Sub