Wenn Dann Makro
03.01.2007 22:21:06
Markus
ich hätte leider wieder mal ein Problem. der code den du mir geschickt hast war toll und hat funktioniert.
die sortierfunktion geht dann richtig wenn spalte A u. B befüllt sind, sonst würfelt es alles durcheinander. ich möchte jedoch bevor die sortierfunktion beginnt eine überprüfung machen ob alle zeilen befüllt sind. es soll eine fehlermeldung kommen und der vorgang abgebrochen werden falls das nicht der Fall ist.
nach dem motto: (nur halt als makro)
WENN: in spalte A oder B der Wert DANN: msgbox "Bitte alle zellen befüllen" und makro ABBRECHEN
SONST:
Sub sortierenkome()
Dim lngEnde As Long
lngEnde = Worksheets("Tabelle1").Range("A65536").End(xlUp).Row 'letzte gefüllte Zelle in Spalte A
'Sortierung
Range("A8", "BR" & lngEnde).Sort Key1:=Range("A8"), Order1:=xlAscending, Key2:=Range("B8") _
, Order2:=xlAscending, Key3:=Range("C8"), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal
End Sub
https://www.herber.de/bbs/user/39354.xls
Bitte um Hilfe.
lg markus
bitte wieder den ganzen code damit ich weiß wo ich was hinkopieren muss.