Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1004to1008
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
1004to1008
1004to1008
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

2 zellen als Bedingung

2 zellen als Bedingung
sockel939
Guten Morgen an alle,
habe diesen code hier gebastelt!
Würde ihn jetzt gerne um 2 Bedingungen erweitern
und zwar soll der bereich L4:L1000 und N4:N1000 als Bedingung hinzukommen,
hab aber keinen Plan wies geht.
For Each Zelle In Range("K4:K1000")
If Zelle = "overhauled" Then
Cells(Zelle.Row, "C").Interior.ColorIndex = 4
End If
Next
Danke im Voraus
Gruß
sockel

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
mit Union ...
23.08.2008 04:57:59
Matthias
Hallo
Option Explicit

Sub ml()
Dim Zelle As Range
For Each Zelle In Union(Range("K4:L1000"), Range("N4:N1000"))
If Zelle = "overhauled" Then
Cells(Zelle.Row, "C").Interior.ColorIndex = 4
End If
Next
End Sub


Userbild

AW: mit Union ...
23.08.2008 08:51:52
sockel939
Ok! Danke,
Nun steht aber in jeder Bedingung etwas anderes z.B. K4:K1000 = "overhauled", L4:L1000 = "transport" usw.
Wie muss derCcode dann aussehen?

Sub ml()
Dim Zelle As Range
For Each Zelle In Union(Range("K4:L1000"), Range("N4:N1000"))
If Zelle = "overhauled" Then
Cells(Zelle.Row, "C").Interior.ColorIndex = 4
End If
Next
End Sub


Gruß
sockel

Anzeige
Guten Morgen - Brauche einen Tip
23.08.2008 08:53:29
sockel939
sihe unten :-)
AW: Guten Morgen - Brauche einen Tip
23.08.2008 09:12:00
Ramses
Hallo
Dann stell doch deine Frage von Anfang so, dass die Anforderungen klar sind.

Sub ml()
Dim Zelle As Range
For Each Zelle In Union(Range("K4:L1000"), Range("N4:N1000"))
Select case Zelle
Case "overhauled"
Cells(Zelle.Row, "C").Interior.ColorIndex = 4
Case "Transport"
Cells(Zelle.Row, "C").Interior.ColorIndex = 7
Case "Rücksendung"
Cells(Zelle.Row, "C").Interior.ColorIndex = 10
End Select
Next
End Sub


Gruss Rainer

AW: Guten Morgen - Brauche einen Tip
23.08.2008 09:18:09
sockel939
Danke,
nicht ganz wie ich dachte :-,
Alle Bedingungen sollten erfüllt sein es wird nur eine Farbe augegeben. Also "transport" & "overhauled" wenn beides erfüllt dann farbe in C.
Geht da auch ohne Dim ?
Wenn ja:
Hab da schon ein Dim Zelle as Range Makro in meinem CommandButton, jedesmal wenn ich ein weiteres hinzufüge mekert mein Debugger.
Anzeige
AW: Guten Morgen - Brauche einen Tip
23.08.2008 09:31:00
sockel939
Hallo Ramses - Nochmal zum Code
siehe unten
Hallo - Guckt mal hier - Hilfe bitte
23.08.2008 09:41:38
sockel939
siehe code
AW: 2 zellen als Bedingung
23.08.2008 09:41:12
Daniel
HI
so vielleicht ?

For Each Zelle In Range("K4:K1000")
If Zelle = "overhauled" Then
if Zelle.Offset(0,1) = "xxx" then '-Bedingung Spalte L
if Zelle.Offset(0,3) = "yyy" then '-Bedingung Spalte N
Cells(Zelle.Row, "C").Interior.ColorIndex = 4
End if
End if
End If
next


Gruß, Daniel
Next

AW: 2 zellen als Bedingung
23.08.2008 09:46:16
sockel939
Juhu danke Daniel,
genau so!
Gruß
sockel

300 Forumthreads zu ähnlichen Themen

automatisches Erstellen von pdf
pdf

Hallo alle zusammen,
ich nutze seit Monaten ein VBA zum automatischen Erstellen von PDF's. Grundlage war eine Muster aus Eurem Archiv Print to pdf von Ramses; habe ich auf meine Anforderungen angepasst.
Hat auch immer klaglos funktioniert.
Nun auf einmal Laufzeitfehler '429' Objekte...
07.08.2008 17:02:59
Thread-ID: 1000034
8 Beiträge
Anzeige
fehler beim speichern - zellname existiert nicht
t4z

Hallo Leute,
folgendes Problem:
Will nach zahlreichen Änderungen in Datei A die Änderungen darin speichern. Kurz vor Ende des Speichervorgangs kommt dann die Fehlermeldung
"Microsoft Excel kann die Formel in der Zelle (Name:[Dateiname.xls]Tabellenname!solver_val) nicht konvertieren,...
07.08.2008 17:53:00
Thread-ID: 1000056
4 Beiträge
Arbeitsblätter zählen und Ergebnis verarbeiten
Botti

Hallo Leute,
heute habe ich wieder mal ein einfaches Problem für Euch, an dem ich aber nicht weiter kommen:
Ich möchte die Arbeitsblätter in meiner Arbeitsmappe zählen. Das ist ja kein Problem (ThisWorkbook.sheets.count).
wenn das makro mehr als ein Arbeitsblatt zählt (also das Erge...
07.08.2008 19:11:30
Thread-ID: 1000078
8 Beiträge
Anzeige
Cursor springt in die Pampa - MultiLine TextBox
Kilo

Hallo liebe VBA Profis
ich bin auf ein für mich nicht lösbares Problem - vielleicht sogar Phänomen gestoßen...
Leider kann ich keine Phänomene dieser Art gebrauchen.
Damit es für Sie etwas anschaulicher wird, hab ich mein Problem als Beispiel (https://www.herber.de/bbs/user/54427.xl...
07.08.2008 20:31:08
Thread-ID: 1000095
2 Beiträge
Leeren von Textfeldern
Textfeldern

Hallo
brauch mal wieder Hilfe!
in meiner Userform sind einige Textboxen und comboboxen mit Werten zur weiteren Berechnung gefüllt.
jetzt die Frage: Gibt es einen Möglichkeit mit einen CommantButton alle Inhalte der textboxen und Comboboxen mit einem Click zuleeren um sie neu zubefül...
07.08.2008 22:26:00
Thread-ID: 1000114
11 Beiträge
Farbige Zellen suchen und Zuordnung auflisten
Excel-Opfer

Hallo zusammen,
ich hab nicht so die Ahnung von Makros und Automationen im Excel, bräuchte allerdings "dringend" eine Vereinfachung meines Excelchaos.
es dreht sich um folgende Problematik:
ich muss diverse Dienstpläne in unsere Personalplanung einarbeiten, leider liefert eine Abtei...
08.08.2008 06:47:00
Thread-ID: 1000143
16 Beiträge
Komplizierte Wenn-Formel für kicker-Spiel
Frank

Hallo miteinander,
ich möchte eine Excel-Datei für das offizielle Fussball-kicker-Managerspiel erstellen, leider scheitere ich total an (vermutlich) den WENN-Formeln ..... vielleicht ist das aber auch gar nicht möglich, was ich erreichen möchte :-(
In der Tabelle sollte man in Spalte A...
08.08.2008 07:28:06
Thread-ID: 1000146
4 Beiträge
Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

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
7
3
3
7
3
1
10
15
3
7
2
10
2
3
2
4
9
1
20
9
13
5
2
8
5