Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 19:34:56
Eine Zelle in 3 Spalten teilen
20.10.2025 19:24:08
Excel Form befüllen
20.10.2025 19:03:51
wenn istleer funktioniert nicht wegen formel
20.10.2025 13:56:55
Wenn Funktion mit Xverweis oder ähnlich
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
820to824
820to824
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

For..Next und Countif

Forumthread: For..Next und Countif

For..Next und Countif
23.11.2006 16:21:37
Metman
Hallo leute,
ich hab ein Problem und ich komm nicht weiter. Innerhalb einer schleife möchte ich eine For...Next schleife einbauen.
Meine Tabelle ist so aufgebaut.
Wert1 leer
leer hallo6
leer hallo7
Wert2 leer
leer Moskau
leer Berlin
usw....
Mein Problem ist, ich möchte (im moment) die Zellen wo ein Hallo (also ein String) drin steht farblich kennzeichnen und zwar so:
lngZeilenMax = wksDB.Cells(65536, 2).End(xlUp).Row
For lngZeileD = 8 To lngZeilenMax
strIdentifier = wksDB.Cells(lngZeileD, 2)
If strIdentifier &lt&gt "" Then
If Application.WorksheetFunction.CountIf(rngImpD, strIdentifier) &gt 0 Then
'... einige Befehle stehen hier. unwichtig.
' nun kommts
For i = 1 To Application.WorksheetFunction.CountIf(wksDB.Cells(lngZeileD, 3),"&lt&gt0")
strSignal = wksDB.Cells(lngZeileD, 3).Offset(i, 0)
wksDB.Cells(lngZeileD, 3).Offset(i, 0).Interior.ColorIndex = 12
Next i
...
Funktioniert nicht. Er färbt immer nur die erste Zelle ein. Nicht die zweite oder dritte usw.
voll verwirrend vorallem weils mit ZählenWenn funktioniert (brauche aber dringend VBA code)
Hoffe ihr habt eine Idee.Besten Dank schonmal
GRuß
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: For..Next und Countif
23.11.2006 18:13:03
ChrisL
Hallo
Warum zwei Schleifen, warum nicht mittels bedingter Formatierung?
Ganz verstehe ich die Frage nicht, aber probier mal...

Sub t()
Dim iZeile As Long
For iZeile = 8 To Range("B65536").End(xlUp).Row
If InStr(Cells(iZeile, 2), "hallo") > 0 Then
Cells(iZeile, 2).Interior.ColorIndex = 12
Else
Cells(iZeile, 2).Interior.ColorIndex = xlNone
End If
Next iZeile
End Sub

Gruss
Chris
Anzeige
AW: For..Next und Countif
27.11.2006 07:30:39
Metman
Moin,
sorry das ich erst jetzt antworte.
Das Problem ist, ich brauch das als VBA Code.
also ich hab eine schleife die im tabellenblatt in der spalte B werte überprüft ob sie vorhanden sind. Wenn ja, werden die Zellen grün eingefärbt.
Jetzt möchte ich aber auch die "dazugehörenden" Zellen grün einfärben, diese fangen jeweils eine Spalte weiter (Spalte C) und eine Zelle drunter an. Diese können 4 Zellen haben oder 2 oder auch 8.
leider kriege ich es nicht zum laufen. jemand ne ahnung?
Anzeige
;

Forumthreads zu verwandten Themen

Zeichenkette per for-next-schleife erstellen
lauer

Hallo,
ich möchte mir eine Zeichenkette erstellen lassen.
Ich habe in einer Zelle (B11) den Anfang (1) angegeben und in der anderen (C11) steht das Ende (49).
Nun möchte ich, dass er mir in der E11 die Zeichenkette reinschreibt.
Also ich möchte dann in E11 stehen haben: 1,2,3,4,...
09.08.2008 19:06:00
Thread-ID: 1000538
5 Beiträge
Anzeige
VBA - Bedingte Formatierung mit For-Next-Schlaufe
Martin

Hallo zusammen
Ich habe ein Makro geschrieben und komme mit der bedingten Formatierung nicht weiter:
Ich habe eine For-Next-Schlaufe, die von unten die Zeilen rauffährt (For i = lezeile To 7 Step -1), unter anderem sollte am Ende der Schlaufe die Spalte A bis J auf der Zeile i jeweils...
12.03.2009 17:38:23
Thread-ID: 1059597
2 Beiträge
VBA - Bedingte Formatierung mit For-Next-Schlaufe
Martin

Hallo zusammen
Ich habe ein Makro geschrieben und komme mit der bedingten Formatierung nicht weiter:
Ich habe eine For-Next-Schlaufe, die von unten die Zeilen rauffährt (For i = lezeile To 7 Step -1), unter anderem sollte am Ende der Schlaufe die Spalte A bis J auf der Zeile i jeweils...
16.03.2009 10:15:21
Thread-ID: 1060621
4 Beiträge
For Next Schleife - Performance
Christoph

Hallo VBA-Experten!
Bin im VBA-Sektor erst seit 3 Tagen aktiv (Selbsteinschulung :-) ). Habe jetzt aber leider ein rießiges Problem und bitte ganz dringend um Eure Hilfe:
In meinem Bericht (siehe Anhang - https://www.herber.de/bbs/user/62579.zip)
soll folgendes passieren:
Der Be...
19.06.2009 17:54:19
Thread-ID: 1082980
6 Beiträge
Anzeige
For-Next Schleife
Micha

Hey,
hat einer von Euch ne Ahnung, warum mir in der folgenden Prozedur eine 3,3,5,5 ausgegeben wird ? - sollte m.E. nach eine 3,4,5,6 sein.
Sub Test5() Repetition = 0 For i = 0.03 To 0.05 Step 0.01 Repetition = Repetition + 1 Next Cells(3, 14) = Repetition Repetition = 0 For i = 0.03 To...
12.11.2009 11:29:23
Thread-ID: 1116427
7 Beiträge
Sytanx zur ForNext-Schleife
Jörg-HH

Guten Abend zusammen,
habe einen Knoten mit der richtigen Schreibweise...
In einem Blattcode steht:
If Target.Address = Range("Hilfszelle2").Address Then Call machwas2 End If If Target.Address = Range("Hilfszelle3").Address Then Call machwas3 End If usw... bis 5
in einem Modul...
08.12.2009 20:44:25
Thread-ID: 1122490
11 Beiträge
For...Next Schleife anstelle Do until...Loop | Herbers Excel-Forum
Stefan
Hallo zusammen,
ich habe eine Do...Loop Schleife und würde diese gerne durch eine For...Next Schleife ersetzten.
Geht das in diesem Fall überhaupt? Sub loop() Dim iRow As Integer iRow = 5 Do Until Cells(iRow - 1, 1).Value = "x" If IsEmpty(Cells(iRow, 1)) Then End If iRow = iRow + 1 Loop End...
14.01.2010 15:23:09
Thread-ID: 1129973
11 Beiträge
Anzeige
SUMIF Formel im VBA auswerten
Peter

Guten Tag
Wie kann ich nachfolgende Formel im VBA mit auswerten? Ich möchte das Ergebnis dieser Formel der Double Variable xWert zuweisen. Die Spalte A bleibt immer gleich, die Zeilennummer (in nachstehender Formel 7 ist in der Long Variable zNr enthalten.
Danke für jede Hilfe.
Grus...
05.02.2010 11:33:42
Thread-ID: 1136091
9 Beiträge
For Next Schleife ?
Leitz

Hallo!
Wie kann ich eine For Next Schleife so ändern, daß sie aufhört sobald die erste Übereinstimmung gefunden wurde?
Oder muß ich da was anders vewenden?
Sub DatumSuche() Dim Datum As Date Datum = Cells(3, 5) 'Testdatum Dim a As Integer For a = 100 To 3 Step -1 If Cells(a, 1).Text...
09.02.2010 18:48:49
Thread-ID: 1137145
13 Beiträge
dynamische For Next Schleife
Steffen

Hallo zusammen,
ich habe eine For next Schleife, der obere Bereich soll hier bei dynamisch sein, da während der Prozedur Zeilen eingefügt werden. Ich habe es mit folgendem Code probiert wobei der obere Bereich auch hochgezählt wird aber die Schleife bei dem Ursprungswert beendet wird.
D...
19.02.2010 12:24:57
Thread-ID: 1139740
6 Beiträge
For Next Schleife umschreiben
Alex

Hallo zusammen,
ich habe hier eine ForNext-Schleife, die ich so nicht lassen kann.
Wenn die Bedingung nicht erfüllt ist soll ein Parameter gesetzt werden.
Wenn die Bedingung erfüllt ist , wird eine Abfrage gemacht, ob die Datei überschrieben werden soll. Wird diese Abfrage n...
06.05.2010 13:15:30
Thread-ID: 1155800
9 Beiträge
VBA_For-Next Schleife ist fehlerhaft
Dirk

Hallo allerseits,
habe da noch ein Problem mit einer Schleife.
Nachstehender CODE soll im TB Eingaben Zeile 1 nach einem Wert aus TB Ausgabe A1 suchen.
Macht er auch, nur zeigt er mir immer erst die msgBox an (nichts gefunden) und wenn ich die dann x-mal bestätige, kommt dann auch i...
06.05.2010 17:41:15
Thread-ID: 1155887
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige