Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
820to824
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
820to824
820to824
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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ß

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
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

194 Forumthreads zu ähnlichen 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
Anzeige
Array füllen ohne For...Next-Schleife
Micha

Hallo,
ich möchte einen Array-füllen, ohne eine Schleife benutzen zu müssen, um Zeit zu sparen, d.h. anstatt
For CalcArraycnt = 1 To 30
CalcArray(cnt, CalcArraycnt) = "=PRODUCT(R[-2]C,R[-1]C)"
Next
irgendwas wie
Range(CalcArray(cnt, 1),CalcArray(cnt, 30) = "=PRODUCT(R[...
13.10.2009 12:21:38
Thread-ID: 1109304
6 Beiträge
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
Verschachtelte For Next Schleife zusammenfassen
Illusion

Hi
Ich habe ein Makro, das nach folgendem Schema aufgebaut ist:
Dim i%, j%, k%, Summe% Dim ws As Worksheet Set ws = Worksheets("Liste") For i = 1 to 3 For j = 4 to 6 For k = 7 to 9 Summe= ws.cells(i, 2).value + ws.cells(j, 2).value + ws.cells(k, 2).value Next k Next j Next i
Mein P...
17.12.2009 12:55:13
Thread-ID: 1124631
14 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

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
4
1
1
3
5
5
6
10
13
10
8
12
5
8
4
6
6
19
6
9
3
8
16
10
3