Makroausführung an Bedingung knüpfen

Guten Morgen zusammen,
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub fff() Dim rng As Range For Each rng In Sheets(1).Range("B4:B53,G4:G53,B58:B107,G58:G107") If rng.Value "" Then MsgBox "In z.B. Zelle: """ & rng.Address & _ """ steht etwas drin !": Exit For Next End Sub

Hi Karin,
ich habe mir jetzt die Funktion und deren Arbeitsweise noch mal genau angesehen, und beim Grübeln über eine Notlösung bin ich auf eine Lösung gestoßen. Wenn ich in Deiner Formeln das "> 0"~f~ gegen
~f~"= 200" tausche , dann funktioniert alles so wie es soll.
Ich hatte schon befürchtet, dass ich mich wiedermal unklar ausgedrückt habe. Ich möchte es aber gerne noch mal versuchen :-)
Es handelt sich um max. 200 Zellen (somit liefert die Funktion das Ergebnis = 200, wenn alle Zellen leer sind) in denen Namen eingetragen werden können, und wenn in nur einer von diesen Zellen ein Name steht, soll mein Makro ganz normal arbeiten und tut es auch. Dies tut es nur nicht, wenn keine Daten vorhanden sind und dann erscheint die Fehlermeldung mit "debuggen" usw. Wenn dies geschieht, weiß ich genau wie meine Kollegen reagieren, und um dies zu umgehen, wollte ich die freudliche Meldung anzeigen lassen, dass es dort nichts zum Sortieren gibt und die andere Meldung gar nicht erst erscheint.
Da gingen meine anderen Erklärungen wohl in die falsche Richtung was?
Aber bislang funktioniert alles bestens. Ich werde noch mal ein wenig damit arbeiten um zu sehen, ob ich nichts übersehen habe.
Jedenfalls danke ich Dir für Deine Mühe und Geduld, ohne die ich es nie oder nur unelegant gelöst bekommen hätte.
Gruß und schönen Tag noch.
Maik

Beliebteste Forumthreads (12 Monate)

Makroausführung an Bedingung knüpfen

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

180 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makroausführung an Bedingung knüpfen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

180 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread