Hi,
hab mir nen kleines Programm geschrieben, was alle angrenzenden leeren, von der markierten Zelle (Schema links, recht, oben, unten) an einen gefüllten Bereich markiert. Doofe Beschreibung - einfach mal probieren. ^^
Hab auch net soviel Ahnung von vba und ist nach x Überlegungen wie man es machen könnte die 1. die funktioniert hat.
Problem:
1.) Befindet sich der Cursor in der Zeile 1 oder Spalte 1 bricht es ab, weil wenn es die Zelle darüber oder links prüft und dann das Makro auf Fehler läuft. Wie bekomm ich das so hin, das er das ignoriert? (Die OnError Funktion benutz ich schon für das Ende und anschließende markieren)
2.) Die roten Bereiche laufen auf Fehler, weil die Anzahl der Argumente für "Range(alle)" zu viel werden.
Wie kann ich die Bereich zusammenfassen? Das sollte doch mit Union gehen oder?
Hoff die kurze Noterklärung im Makro reicht um den Ablauf zu verstehen.
Falls ihr am Ablauf vom Makro was verbessern könnt, dann nur her damit. ;-)
PS: Ab 200 leeren Zellen beendet sich das Makro falls man ausversehen in einen riesigen leeren Bereich klickt.
https://www.herber.de/bbs/user/49752.xls