ich grübel seit gestern über folgendes Problem nach:
Ich habe für eine vorgegebene Liste ein Makro erstellt, mit dessen Hilfe sich diese ständig ändernde Liste neu sortieren lässt. Da ich mit VBA aber noch am Anfang stehe, kommt es beim Ausführen des Makro zu einer Fehlermeldung, wenn keine Daten zum sortieren vorhanden sind (was ja auch logisch ist). Daraufhin habe ich eine Abfrage eingebaut, die prüft, ob Daten vorhanden sind und ansonsten eine MsgBox erscheint mit dem Hinweis, das eben keine Daten vorhanden sind.
Allerdings bezieht sich meine Prüfung nur auf eine Zelle, ist nur diese nicht gefüllt, die restlichen aber schon, sortiert das Makro nicht. Ich bräuchte also die Prüfung über mehrere Zellen bzw. Bereiche, doch da hört es bei mir auf.
Die zu prüfenden Bereiche im jeweiligen Tabellenblatt wären B4:B53; G4:G53; B58:B107; G58:G107
Mein Makro beginnt folgendermaßen:
Sub Sortieren()
'
' Sortieren Makro
'
Application.ScreenUpdating = False
If Cells(3, 5) = "" Then
MsgBox "Es sind keine Daten vorhanden die sortiert werden könnten !"
Else
Für eure Hilfe im voraus schon mal vielen Dank :-)
Gruß
Maik