Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1020to1024
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Set für ein Range klappt nicht

Set für ein Range klappt nicht
06.11.2008 08:44:32
Tobias
Hallo zusammen,
ich bin hier am verzweifeln. Habe diese Coding aus einer Datei die ich schonmal geschreiben habe, in der es auch funktioniert, herauskopiert und auf das neue Coding zugeschnitten. Jetzt funktioniert es nicht mehr was denn da los? Seh ich den Wald vor lauter Bäumen nicht? BITTE helft mir!!!!!
Dim Datenbereich As Range
Dim WährunG As Worksheet
Set WährunG = Worksheets("Währungsverlauf")
Set Datenbereich = WährunG.Range(Cells(ZeileCSTART, 2), Cells(ZeileCENDE, 2))
ZeileCstart und Ende sind als Integer definiert und es wurde auch eine zahl hineingeschrieben
Fehlermeldung:
Laufzeitfehler '1004':
Die Methode 'range' für das objekt '_Worksheet' ist fehlgeschlagen
Ich verstehs einfach nicht
Vielen Dank für jede Antwort
gruß
Tobi

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Set für ein Range klappt nicht
06.11.2008 09:01:04
Ingo
hallo Tobi,
mal ungetestet:
Set Datenbereich = Range(WährunG.Cells(ZeileCSTART, 2), WährunG.Cells(ZeileCENDE, 2))
mfG
Ingo Christiansen
AW: Set für ein Range klappt nicht
06.11.2008 09:13:50
Hajo_Zi
Hallo Ingo,
ich hätte mit With gearbeitet. Ich vermute das Range muss auch nch auf die Tabelle bezogen werde. Der Bereich liegt bestimmt nicht auf der aktiuellen Tabelle.
With Worksheets("Währungsverlauf")
Set Datenbereich = .Range(.Cells(ZeileCSTART, 2), .Cells(ZeileCENDE, 2))
End With

AW: Set für ein Range klappt nicht
06.11.2008 09:58:48
Ingo
hast Recht
AW: Set für ein Range klappt nicht
06.11.2008 09:14:00
Beverly
Hi Tobi,
bei mir erfolgt zwar keine Fehlermeldung, dennoch sollte der Code besser so heißen:

Set Datenbereich = WährunG.Range(WährunG.Cells(ZeileCSTART, 2), WährunG.Cells(ZeileCENDE, 2))




Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige