Re: Messagebox als WArnung
23.02.2003 15:36:28
udo @ Hajo die 1.
Hallo Hajo ,kannst du mal bitte kurz nen Blick auf das Makro werfen,
ich hab deinen Vorschlag mal dazwischen geschoben, kommt aber leider eine "If ohne End If " Meldung. irgendwie wills noch nicht so richtig,vielleicht kannst mir nochmal helfen ,wäre dir sehr dankbar, Gruß udo
Sub A_Zeilen_löschen()
Mldg = MsgBox(" Wollen Sie den Auftrag: " & AuftragsNr _
& " wirklich löschen.", vbYesNo + vbQuestion, "Löschabfrage ?", "", 0)
If Mldg = 6 Then
If ActiveWindow.DisplayHeadings = False Then ' wenn Spalten ausgeblendet dann ...
End If ' beenden - nicht reagieren
If ActiveWindow.DisplayHeadings = True Then ' wenn Spalten eingeblendet dann ...
Selection.Delete ' Auswahl Markierung löschen
Application.ScreenUpdating = False
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").Select ' sortieren Anfang
Range("A19").Activate
Selection.Sort Key1:=Range("A19"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal ' sortieren Ende
Range("A19").Select
Application.ScreenUpdating = True
End If
End Sub