Hi Matra.
Ein Problem mit verbundenen Zellen ist, dass wenn man z.B. den Bereich F3:H5 verbindet und ihm einen Wert zuweist, dann steht dieser Wert z.B. nicht in G3, obwohl diese Zelle mitten im Bereich liegt. Der Wert ist nur in der ersten (obere linke) Zelle zu finden.
Auf den kann man so zugreifen:
Cells(3, "G").MergeArea(1).Value 'erste Zelle im verbundenen Bereich, in welchem die Zelle G3 liegt
Weiterhin: Wenn du jetzt verbundene Zellen hast und mit
Cells(i, 7) < 2
auf kleiner 2 prüfst, kann es bei einer leeren Zelle passieren, dass du Empty geliefert bekommst und dies wird durch den logischen Ausdruck autom. in 0 gecastet, dann steht da 0 < 2 was True ergibt. Dadurch ist die Bedingung erfüllt und es wird dir eine leere Zeile generiert - fertig ist der Salat. :)
Zum einen solltest du also auf größer-gleich 0 prüfen und sicher stellen das du den korrekten Wert einließt und dieser numerisch ist.
Für das Bereitstellen von Beispieldateien bietet dieses Forum leider keine Möglichkeiten an. Du müsstest auf ein FileHosting-Dienst (z.B. Google Drive, Microsoft OneDrive, etc.) zurückgreifen, dort die Datei hochladen und hier dann darauf verlinken.
Grüße
|