Was ist daran falsch?



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Was ist daran falsch?
von: Joachim S
Geschrieben am: 03.07.2002 - 15:49:17

In diesem makro kommt in der Zeile wo kopiert werden soll die Fehlermeldung "Die Methode Range für das Objekt Worksheet ist fehlgeschlagen"
Kann mir jemand helfen?
Schöne Grüsse vom Bodensee
Gruß Josi


Sub spieler_kopieren()
Dim As Worksheet
Dim As Worksheet
Set q = Worksheets(Worksheets.Count)
Set p = Worksheets("Auslosung")

For i = 1 To p.Cells(2, 9)
Dim As Range
Dim As Range
Set c = p.Range("g4:af4").Find("Gruppe " & i)
Spalte = c.Offset(1, 0).Column
erste_Zeile = c.Offset(1, 0).Row
ende_Zeile = c.End(xlDown).Row
Set b = q.Range("B:B").Find("Gruppe " & i)
Ziel = b.Offset(1, 0).Row
p.Range(Cells(erste_Zeile, Spalte), Cells(ende_Zeile, Spalte)).Copy q.Range(Cells(Ziel, 2))
Next i
End Sub


nach oben   nach unten

Re: Was ist daran falsch?
von: Hans W. Hofmann
Geschrieben am: 03.07.2002 - 16:15:45

Hallo Josi,

hast Du mal überprüft, ob die Find-Methode überhaupt was zurückliefern. Wäre auch in Sinne der Fehlerbehandlung notwendig.
Wo genau bleibt der Code hängen?

Gruß HW


nach oben   nach unten

Re: Was ist daran falsch?
von: Joachim L.
Geschrieben am: 03.07.2002 - 16:38:57

Hallo Namenskollege,

Du benutzt beim Copy als Destination einen Range und gibst aber nur eine Zelle an:
q.Range(Cells(Ziel, 2))
Range benötigt aber 2 Zellen. Ändern in:

q.Cells(Ziel,2)

Ebenfalls Gruß vom Bodensee
Joachim

nach oben   nach unten

Re: Was ist daran falsch?
von: Joachim S
Geschrieben am: 03.07.2002 - 17:53:22

Oh Mann das wars
Ich sah den Wald vor lauter Bäumen nicht mehr

Vielen Dank

Josi


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Was ist daran falsch?"