Office: (Office 2007) Fehlermeldung: „Die Methode ‘Rows’ für das Object ‘_Global’ ist fehlgeschlagen“

Hallo zusamen,

zuerst vielen Dank für Deine Zeit!

Mit den folgenden Code wird die Zelle mit dem Eintrag „Aktuelle Bewertung" gesucht, dann 2 Zeilen nach unten und 3 Spalten nach rechts gesprungen.
Die Zellenwerte der ganzen Spalte werden kopiert ins Tabellenblatt Pareto_Berechnung kopiert.

Leider kommt der Laufzeitfehler 1004
Die Methode ‘Rows’ für das Object ‘_Global’ ist fehlgeschlagen.

Folgende Zeile ist gelb markiert:
Set rng = Range(rng, .Cells(Rows.Count, rng.Column).End(xlUp))

Hat jemand eine Idee, woran das liegen kann?

Vielen Dank,
Gruß
Klaus



Private Sub Workbook_Open()
Dim rng As Range

With Sheets("Risikoliste")
Set rng = .Cells.Find(What:="Aktuelle Bewertung", LookAt:=xlPart).Offset(2, 3)
Set rng = Range(rng, .Cells(Rows.Count, rng.Column).End(xlUp))
End With

With Sheets("Pareto_Berechnung").Range("B2")
rng.Copy
.Resize(rng.Count, 1).PasteSpecial Paste:=xlPasteValues
.Resize(rng.Count, 1).PasteSpecial Paste:=xlPasteFormats
With .Offset(rng.Count, 0)
.Value = 1 'Multipliziert den Wert
.Copy
End With
.Resize(rng.Count, 1).PasteSpecial Paste:=xlValues, _
Operation:=xlPasteSpecialOperationMultiply
.Offset(rng.Count, 0).ClearContents
End With

Sheets("Pareto_Berechnung").Visible = True

End Sub

:)

 

Hallo KlTroe,

habe leider keine Zeit, das zu testen, aber in der betreffenden Zeile fehlt m. E. ein ".row".

Code:

Grüße
EarlFred

 

Hi,
vor dem Range fehlt auch noch ein Punkt und das letzte Row muss weg:

Code:

 

Hallo EarlFred, hallo Styrkar,

ich trau mich schon gar nicht mehr danke zu sagen - ist schon lange her.
Aber erst jetzt bin ich zu diesem Thema wieder gekommen.
Dank Eurer Hilfe klappt der Code.

Gruß
Klaus