Microsoft Excel

Herbers Excel/VBA-Archiv

Range und Cells liefert Fehler, den ich nicht find

Betrifft: Range und Cells liefert Fehler, den ich nicht find von: Thomas
Geschrieben am: 08.09.2014 09:35:48

Hallo,
ich versuch seit einer Stunde den Fehler in folgender Zeile zu finden:

Worksheets("Projekt 2.0").Range(Cells(11, 2), Cells(11, 9)).Interior.Color = RGB(200, 160, 35)

Ich seh scheinbar den Wald vor Bäumen nicht und bekomme immer "Laufzeitfehler 1004: Anwendungs- oder objektdefinierter Fehler".

Kann mir einer von euch Pro's bitte auf die Sprünge helfen?

Danke

  

Betrifft: AW: Range und Cells liefert Fehler, den ich nicht find von: yummi
Geschrieben am: 08.09.2014 09:42:40

Hallo Thomas,

so wie es aussieht findet er dein Worsheet Projekt 2.0 nicht.
Entweder es existiert nicht oder aber Du hast mehrere Dateien geöffnet und befindest dich nicht in der Arbeitsmappe, die Du meinst.

Mach mal folgendes:
Am Anfang wenn du öffnest:

Dim wkb as Workbook
Dim wks as Worksheet

Set Wkb = ThisWorkbook
Set wks = wkb.Sheets("Projekt 2.0")

Dann lautet dieen Zeile:
wks.Range(Cells(11, 2), Cells(11, 9)).Interior.Color = RGB(200, 160, 35)

Gruß
yummi


  

Betrifft: AW: Range und Cells liefert Fehler, den ich nicht find von: Thomas
Geschrieben am: 08.09.2014 09:51:59

merkwürdig ist, dass wenn ich den bereich so anspreche:

Worksheets("Projekt 2.0").Range("I18:O18").Interior.Color = RGB(200, 160, 35)

funktioniert es problemlos


  

Betrifft: so referenzierst Du ja auch korrekt ;-) von: Matthias L
Geschrieben am: 08.09.2014 10:00:20

Hallo

Wenn Du auf einem anderen Blatt bist kannst Du mit auch With sauber referenzieren.

With Worksheets("Projekt 2.0")
.Range(.Cells(11, 2), .Cells(11, 9)).Interior.Color = RGB(200, 160, 35)
End With
Beachte die Punkte vor Range und vor Cells
Fehlen die Punkte gilt als Referenz das aktive Tabellenblatt

Gruß Matthias


  

Betrifft: AW: so referenzierst Du ja auch korrekt ;-) von: Thomas
Geschrieben am: 08.09.2014 10:09:21

DAS WARS! SUPER. DANKE


  

Betrifft: gibts denn das Register "Projekt 2.0" von: Matthias L
Geschrieben am: 08.09.2014 09:43:20

Hallo

Bei mir kommt kein Fehler und es wird eingefärbt.
evtl. ein Leerzeichen im RegisterName am Ende oÄ?

Gruß Matthias


  

Betrifft: AW: gibts denn das Register "Projekt 2.0" von: Thomas
Geschrieben am: 08.09.2014 09:48:46

Nee. Kein Leerzeichen zufinden. Kann es daran liegen, dass ich auf ein Sheet zugreife möchte, das nicht aktiv ist?!


  

Betrifft: Ja, ... von: Matthias L
Geschrieben am: 08.09.2014 09:54:50

Hallo

Du musst vor Range und vor Cells jeweils auf das Sheet referenzieren.

Gruß Matthias