Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1868to1872
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1868to1872
1868to1872
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Laufzeitfehler 1004 bei Range mit Cells

Laufzeitfehler 1004 bei Range mit Cells
08.02.2022 09:08:03
kwaki
Hallo,
wahrscheinlich ist es ein einfacher Fehler, aber ich komm einfach nicht drauf... Warum bekomme ich hier den Laufzeitfehler 1004?

Sheets("Tabelle1").Range(Cells(4, 1), Cells(4, 4)).Interior.Color = RGB(240, 240, 240)
Grüße
Kwaki

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Weil der Blattschutz aktiv ist? ...oT
08.02.2022 09:08:58
{Boris}
VG, Boris
AW: Weil der Blattschutz aktiv ist? ...oT
08.02.2022 09:11:48
kwaki
Eigentlich nicht.. Wenn ich das ganze so machen funktioniert es nämlich auch komischerweise..

'Sheets("Tabelle1").Cells(4, 1).Interior.Color = RGB(240, 240, 240)
'Sheets("Tabelle1").Cells(4, 2).Interior.Color = RGB(240, 240, 240)
'Sheets("Tabelle1").Cells(4, 3).Interior.Color = RGB(240, 240, 240)
'Sheets("Tabelle1").Cells(4, 4).Interior.Color = RGB(240, 240, 240)

AW: Weil der Blattschutz aktiv ist? ...oT
08.02.2022 09:13:38
kwaki
Natürlich ohne die Auskommentierungszeichen ;)
Falsche Referenzierung...
08.02.2022 09:22:16
{Boris}
Hi,
Sheets("Tabelle1").Range(Sheets("Tabelle1").Cells(4, 1), Sheets("Tabelle1").Cells(4, 4)).Interior.Color = RGB(240, 240, 240)
VG, Boris
Anzeige
AW: Falsche Referenzierung...
08.02.2022 09:27:55
kwaki
Ach klar, danke!
hier bietet sich auch WITH an ...
08.02.2022 09:30:49
Matthias
Hallo,

With Sheets("Tabelle1")
.Range(.Cells(4, 1), .Cells(4, 4)).Interior.Color = RGB(240, 240, 240)
End With
Die Punkte vor Range und Cells sind hier wichtig.
Gruß Matthias
AW: Falsche Referenzierung...
08.02.2022 10:19:15
Herbert_Grom
Hallo Boris,
also bei mir funktioniert diese Version einwandfrei:

Sheets("Tabelle1").Range(Cells(4, 1), Cells(4, 4)).Interior.Color = RGB(240, 240, 240)
auch ohne das 2. "Sheets("Tabelle1")". Wieso funzt das bei euch nicht?
Servus
Wahrscheinlich...
08.02.2022 10:23:12
{Boris}
Hi Herbert,
..wird der Code aus einem anderen Blatt als Tabelle1 gestartet.
VG, Boris
Anzeige
AW: Falsche Referenzierung...
08.02.2022 10:27:04
GerdL
Hallo Herbert,
es hat keiner geschrieben, dass es so nie funktioniert.
Aber so nur wenn, der Code im Blattmodul von "Tabelle1" steht oder dieses Blatt den Focus hat,
ansonsten läuft der Kurzcode in den Fehler 1004.
Gruß Gerd
AW: Laufzeitfehler 1004 bei Range mit Cells
08.02.2022 09:40:08
GerdL
Moin K.
Es ist der VBA-Syntax eigen, dass das einzelne "Cells" ohne direkte Ansprache entweder zum aktiven Blatt oder zum Blatt des Tabellenblattmoduls gehört.
Sheets("Tabelle1").Range(Sheets("Tabelle1").Cells(4, 1), Sheets("Tabelle1").Cells(4, 4)).Interior.Color = RGB(240, 240, 240)
oder zusammengefasst:
With Sheets("Tabelle1")
.Range(.Cells(4, 1), .Cells(4, 4)).Interior.Color = RGB(240, 240, 240)
End With
Der 1004rer kommt auch bei Blattschutzverstößen.
Gruß Gerd
Anzeige
AW: Hier besser Resize statt With
08.02.2022 17:11:05
Daniel
Hi
Die Ursache wurde ja schon geklärt.
Das Cells ohne Tabellenblattangabe davor bezieht sich immer auf aktive Tabellenblatt (Code im allgemeinen Modul). Der Fehler kommt, wenn die Range auf einem anderen Tabellenblatt liegen soll, als die Zellen, die definieren.
Der einfachste Weg, hier umständliche Codierung zu vermeiden ist die Resize-Funktion:

Sheets("Tabelle1").Cells(4, 1).Resize(1, 4).Interior.Color = ...
Gruß Daniel

305 Forumthreads zu ähnlichen Themen

Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
Anzeige
Cells Wert in Range umwandeln???
chrissey

Hallo Leut,
hab folgendes Problem:
Habe den Cells Wert (1,80) kann ich den auch als Range z.B: über eine MsgBox ausgeben lassen.
Müsste zudem mit dem Range Wert weiterarbeiten
Bitte um Eure Hilfe
Danke und Grüße
Chrissey
25.11.2009 15:57:34
Thread-ID: 1120019
5 Beiträge
Definieren von variabler Range
variabler

Hallo zusammen,
ich habe eine Frage zum definieren einer variabler Range in einem Sheet.
Ich habe eine Datei mit drei verschiedenen Sheets.
Das erste Sheet ist für diese Betrachtung irrelevant, nur das zweite und das dritte.
Das zweite Sheet besteht aus verschiedenen Kennzahlen...
04.12.2009 06:47:54
Thread-ID: 1121742
3 Beiträge
Anzeige
Range in Array füllen, Problem bei Cells.Count = 1
Andreas

Hallo VBA Freunde,
ich habe es heute zum ersten mal angewandt, ein Array nicht mit einer Schleife, sondern gleich als einen Block zu füllen. Dank Renee konnte ich auch den Fehler beheben, daß ich mein Array nur eindimensional eingerichtet hatte.
Also für Ranges mit mehr als 1 Zelle funk...
22.02.2010 16:33:21
Thread-ID: 1140417
7 Beiträge
VBA range definieren
Benjamin

Guten Tag an alle,
ich habe ein Problem, bei dem ich zur Zeit kläglich scheitere.
Ich möchte eine Formel nach unten ausfüllen und zwar genau so oft, wie ich in einer Spalte Werte habe.
Also, wenn ich Z.b. in Spalte H1:H4 werte habe, soll die formeln auch von z.B. A1:C4 kopiert werde...
25.02.2010 14:42:10
Thread-ID: 1141514
5 Beiträge
VBA: Range Objekt mit aktiver Zelle
André

Moin zusammen,
ich möchte die aktuell ausgewählte Zelle einem Range-Objekt zuweisen. Allerdings will mir das nicht gelingen:
Dim Position As Range Position = ActiveCell Da kommt immer wieder eine Fehlermeldung (Objektvariable nicht festgelegt). Was mache ich falsch?
Gruß, André
14.04.2010 14:56:00
Thread-ID: 1151763
3 Beiträge
VBA Formel in Range einfügen
Frank

Hallo zusammen,
mit...
Range(Cells(20, s)).AutoFill Destination:=Range(Cells(ezp, s), Cells(lzp, s)), Type:=xlFillDefault
versuche ich eine Formel (die in cells(20,s) steht) in eine Range zu kopieren...
Leider Fehlermeldung: "Die Methode 'Rang' für das Objekt "_Global" ist fehl...
09.12.2011 11:21:09
Thread-ID: 1241366
13 Beiträge
Text in Range während Eingabe per VBA analysieren?
Max

Hallo zusammen,
ist es möglich während der Texteingabe in einem normalen Rangefeld, den Input zu erfassen und ggf. mit Makros zu reagieren?
Ich weiß, daß ich dies früher über eine Form bzw. Objekt möglich war, kann aber auch hierzu nichts mehr finden. Kann ich für meinen normale Rangefe...
21.03.2012 13:49:05
Thread-ID: 1255910
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
4
4
2
6
6
4
2
12
3
5
8
3
3
2
4
1
2
2
25
3
2
1
2
2