Bereich auf Nullen überprüfen

[Bamane]

Hallo,

beim direkten Starten der Datei.Wie die Meldung gelautet hat, weiß ich jetzt nicht mehr weil jetzt geht es.

Hi Stefan,

kannst du mir eventuell sagen, wo die Fehlerquelle sich befindet, sodass ich es anpassen kann? Oder hast du eventuell eine andere Idee, wie ich da am Besten vorgehen soll?

Beste Grüsse
Bamane

[schauan]

Hallöchen,

nur mal ein Hinweis am Rande. Du hast schon With in Deinem Code, verwendest es abe rnicht konsequent.Hier mal ein Beispiel.

Code:

With wb2.Worksheets(i)
                 Worksheets(i).Select
                        lastrow2 = Cells(Cells.Rows.Count, "F").End(xlUp).Row
                    Set rng = Worksheets(i).Range("D40:F" & lastrow2 + lastrow2)
                    Set rng2 = Worksheets(i).Range("N40:AY" & lastrow2 + lastrow2)

konsequent wäre

Code:

With wb2.Worksheets(i)
                    lastrow2 = .Cells(Cells.Rows.Count, "F").End(xlUp).Row
                    Set rng = .Range("D40:F" & lastrow2 + lastrow2)
                    Set rng2 = .Range("N40:AY" & lastrow2 + lastrow2)
'usw.

Das Select kann hier weg und beachte in den folgenden 3 Zeilen den Punkt vor der Bereichsangabe.

Bei mir kommt übrigens ein Fehler bei

For j = 1 To UBound(sn)

weil sn leer ist. Da war ich eventuell beim Start des Makros auf einem falschen Blatt oder auch nicht, siehe Thema inkonsequente Nutzung von With und ebenso die Nutzung der Blattnamen oder der Indexnummer der Blätter.


Sheets(1)....
Worksheets(i)...
Worksheets("OVL")...
ActiveSheet...

Da muss man schon etwas suchen, um zu sehen, wo man ist Für die meisten Actionen kann man, wie gesagt, With verwenden und braucht ein Blatt nicht zu aktivieren.

[Steffl]

Hallo,

kannst du mir eventuell sagen, wo die Fehlerquelle sich befindet, sodass ich es anpassen kann? Oder hast du eventuell eine andere Idee, wie ich da am Besten vorgehen soll?

hast du es mal mit dem Orignalcode von snb versucht?

[Bamane]

....
Da muss man schon etwas suchen, um zu sehen, wo man ist Für die meisten Actionen kann man, wie gesagt, With verwenden und braucht ein Blatt nicht zu aktivieren.

Hi  André,

vielen Dank für den Tipp. Das war mir als Anfänger nicht bewusst und ich werde es erstmal im Code ändern.

Gruss
Bamane

[Bamane]

Hallo,

hast du es mal mit dem Orignalcode von snb versucht?

Hi Stefan,

den Originalcode von snb habe ich verwendet und möchte diesen auch Nutzen, weil mein Code viel zu langsam ist. Da kamen aber einige Fehlermeldungen, wozu ich mich auch vorher dazu geäußert habe. 

Gruß
Bamane