Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
672to676
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
672to676
672to676
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

For Each, was denn für ein object?

For Each, was denn für ein object?
26.09.2005 15:45:21
Maike
Hallo ihr alle
Ich habe gerade eine geistige barriere und komme einfach nicht weiter
Ich benutze soeben zum ersten mal in meinem VBA leben (das noch nicht so lange währt...) die For Each schleife.
Ich möchte mit dieser Schleife alle Zellen im Bereich C1 bis ende Spalte C durchgehen und weiß jetzt nicht was ich zwischen "For Each" und "In" schreiben soll:
For Each obj In Sheets(1).Range("C2:" & EndeSpalteC)
Ich habe erstmal den versuch gemacht einfach Dim obj as object zu definieren.
Aber trotzdem (oder vielleicht gerade deswegen?) bekomme ich die meldung:
"Fehler blabla,
Objekt erforderlich"
Bin für jede hilfe dankbar
Gruß Maike

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
dim obj as Range
26.09.2005 15:48:01
Andi
... sollte es tun.
Schönen Gruß,
Andi
AW: dim obj as Range
26.09.2005 15:52:39
Maike
Alles klar.
hab auch noch nen fehler bei EndeSpalteC ( is bei mit nämlich nicht ganz so simpel wie ich geschrieben habe.)
Vielen Dank!!! fürs helfen, und auch noch so schnell
Gruß Maike
Gern geschehen... (ot)
26.09.2005 16:22:45
Andi
.
AW: For Each, was denn für ein object?
26.09.2005 15:51:36
WernerB.
Hallo Maike,
hier mal eine kleines Beispiel-Makro:

Sub ForEachSchleife()
Dim c As Range
Dim laR As Long
Application.ScreenUpdating = False
laR = Cells(Rows.Count, 3).End(xlUp).Row
For Each c In Range("C1:C" & laR)
If c.Value = Cells(i, 1).Value Then
End If
Next c
Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
Anzeige
AW: For Each, was denn für ein object?
26.09.2005 15:54:51
Maike
Hallo Werner
Danke für das beispiel.
Da steht auch gleich eine bessere möglichkeit der EndeSpalteC drin als ich sie bisher benutzt habe :-)
Gruß Maike

152 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
For each c in Bereich
Gregor

Hallo
Ich habe folgende Abfrage:
For Each c In Bereich
Wert = Cells(c.Row, 7).Value
If Wert "kein" Then
usw.
Ich möchte also bei c (Zeile) Spalte 7 den Wert abfragen und je nach Wert weiterfahren. Bereich ist in Spalte 5 definiert.
Wie komme ich zu dieser Zeilen-Nu...
24.10.2008 16:32:40
Thread-ID: 1019066
8 Beiträge
Daten fortlaufend von Formular in Range schreiben
Formular

Hi,
wie kann ich denn folgende Abfrage bzw kopieren erledigen:
Ich habe Ein Formular mit Textbox'n und Combobox'n
auf einem Bestimmte Tabellenblatt ("Daten") möchte ich nun die Folgenden Inhalte kopieren (button)
Auf dem Tabellenblatt ("Daten") habe ich ein Range B33 : F42 (also...
29.01.2009 09:26:24
Thread-ID: 1044806
3 Beiträge
Anzeige
For Each zelle In Range("a2:a1000") erweitern
Karsten

Hallo,
Wenn ich diesen Befehl ausführe befinde ich mich gerade in Tabelle1. Ich möchte aber, dass u.s. Befehl in Tabelle2 ausgeführt wird. Kann mir jemand die Tabelle2 in den Befehl hineinkonstruieren.
Danke.
Gruß
Karsten
Dim zelle As Range
For Each zelle In Range("a2:a...
08.07.2009 10:59:35
Thread-ID: 1087125
3 Beiträge
For Each OptionButton in Userform (oderFrame) mgl?
t4z

Hi Leute,
ist sowas wie im Betreff möglich?
Vielen Dank, der t4z
26.08.2009 12:14:58
Thread-ID: 1098716
8 Beiträge
For each zelle activecell.adress
Hartmut_M

Hallo, stehe im Moment neben mir.
Habe folgenden Code:
For Each zelle in [H12:X33]
If zelle.adress = [H12] then msgbox "OK"
Next
Also wenn der Name der Zelle H12 ist, soll eine Msgbox kommen. Funktioniert aber nicht.
Wo liegt mein Fehler?
Freu mich über jeden Tipp.
18.09.2009 18:09:00
Thread-ID: 1103973
5 Beiträge
In For each rng weiterspringen
Gregor

Hallo zusammen
Ich suche nach einer Zellfarbe. Die Zeile dieser Zelle wird dann bis zu 15 Zeilen erweitert und kopiert (eruiert erste und letzte zu kopierende Zeile). Anschliessend muss die Suche dieser Zellfarbe nach der kopierten Zeile weiterfahren, ansonsten werden die gleichen Zeilen me...
18.05.2010 11:00:44
Thread-ID: 1157557
4 Beiträge
Conditional Formatting mit Data Range
Clemens

Hallo zusammen,
ich möchte eine visuelle Validierung einer Spalte durchführen. Dazu möchte ich die Werte einer Spalte mit einem Data Range auf einem anderen Excel Sheet vergleichen. Falls der Wert nicht Teil des Data Ranges ist, soll die Zelle rot eingefärbt werden.
Mit Conditional Form...
15.07.2010 19:10:47
Thread-ID: 1167359
3 Beiträge

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
2
7
2
2
2
7
4
3
2
2
3
4
4
5
12
7
2
2
6
5
3
8
2
5