Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
884to888
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
884to888
884to888
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

For Each Zelle_in_der_Schleife.... verkürzen

For Each Zelle_in_der_Schleife.... verkürzen
11.07.2007 02:46:00
Karsten
Hallo...
...kann mir jemand diese Aktion kürzer machen?
For Each Zelle_in_der_Schleife In Range("M5:c31")
If Zelle_in_der_Schleife.Value = "Montag" Then
With Zelle_in_der_Schleife.Offset(0, 0).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("M5:c31")
If Zelle_in_der_Schleife.Value = "Montag" Then
With Zelle_in_der_Schleife.Offset(0, -1).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Montag" Then
With Zelle_in_der_Schleife.Offset(0, -2).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Montag" Then
With Zelle_in_der_Schleife.Offset(0, -3).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Montag" Then
With Zelle_in_der_Schleife.Offset(0, -4).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Montag" Then
With Zelle_in_der_Schleife.Offset(0, -5).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Montag" Then
With Zelle_in_der_Schleife.Offset(0, -6).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Montag" Then
With Zelle_in_der_Schleife.Offset(0, -7).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Montag" Then
With Zelle_in_der_Schleife.Offset(0, -8).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Montag" Then
With Zelle_in_der_Schleife.Offset(0, -9).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Montag" Then
With Zelle_in_der_Schleife.Offset(0, -10).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Montag" Then
With Zelle_in_der_Schleife.Offset(0, -11).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Dienstag" Then
With Zelle_in_der_Schleife.Offset(0, 0).Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Dienstag" Then
With Zelle_in_der_Schleife.Offset(0, -1).Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Dienstag" Then
With Zelle_in_der_Schleife.Offset(0, -2).Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Dienstag" Then
With Zelle_in_der_Schleife.Offset(0, -3).Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Dienstag" Then
With Zelle_in_der_Schleife.Offset(0, -4).Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Dienstag" Then
With Zelle_in_der_Schleife.Offset(0, -5).Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Dienstag" Then
With Zelle_in_der_Schleife.Offset(0, -6).Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Dienstag" Then
With Zelle_in_der_Schleife.Offset(0, -7).Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Dienstag" Then
With Zelle_in_der_Schleife.Offset(0, -8).Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Dienstag" Then
With Zelle_in_der_Schleife.Offset(0, -9).Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Dienstag" Then
With Zelle_in_der_Schleife.Offset(0, -10).Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Dienstag" Then
With Zelle_in_der_Schleife.Offset(0, -11).Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Mittwoch" Then
With Zelle_in_der_Schleife.Offset(0, 0).Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Mittwoch" Then
With Zelle_in_der_Schleife.Offset(0, -1).Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Mittwoch" Then
With Zelle_in_der_Schleife.Offset(0, -2).Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Mittwoch" Then
With Zelle_in_der_Schleife.Offset(0, -3).Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Mittwoch" Then
With Zelle_in_der_Schleife.Offset(0, -4).Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Mittwoch" Then
With Zelle_in_der_Schleife.Offset(0, -5).Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Mittwoch" Then
With Zelle_in_der_Schleife.Offset(0, -6).Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Mittwoch" Then
With Zelle_in_der_Schleife.Offset(0, -7).Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Mittwoch" Then
With Zelle_in_der_Schleife.Offset(0, -8).Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Mittwoch" Then
With Zelle_in_der_Schleife.Offset(0, -9).Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Mittwoch" Then
With Zelle_in_der_Schleife.Offset(0, -10).Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Mittwoch" Then
With Zelle_in_der_Schleife.Offset(0, -11).Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Donnerstag" Then
With Zelle_in_der_Schleife.Offset(0, 0).Interior
.ColorIndex = 35
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Donnerstag" Then
With Zelle_in_der_Schleife.Offset(0, -1).Interior
.ColorIndex = 35
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Donnerstag" Then
With Zelle_in_der_Schleife.Offset(0, -2).Interior
.ColorIndex = 35
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Donnerstag" Then
With Zelle_in_der_Schleife.Offset(0, -3).Interior
.ColorIndex = 35
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Donnerstag" Then
With Zelle_in_der_Schleife.Offset(0, -4).Interior
.ColorIndex = 35
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Donnerstag" Then
With Zelle_in_der_Schleife.Offset(0, -5).Interior
.ColorIndex = 35
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Donnerstag" Then
With Zelle_in_der_Schleife.Offset(0, -6).Interior
.ColorIndex = 35
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Donnerstag" Then
With Zelle_in_der_Schleife.Offset(0, -7).Interior
.ColorIndex = 35
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Donnerstag" Then
With Zelle_in_der_Schleife.Offset(0, -8).Interior
.ColorIndex = 35
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Donnerstag" Then
With Zelle_in_der_Schleife.Offset(0, -9).Interior
.ColorIndex = 35
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Donnerstag" Then
With Zelle_in_der_Schleife.Offset(0, -10).Interior
.ColorIndex = 35
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Donnerstag" Then
With Zelle_in_der_Schleife.Offset(0, -11).Interior
.ColorIndex = 35
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Freitag" Then
With Zelle_in_der_Schleife.Offset(0, 0).Interior
.ColorIndex = 39
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Freitag" Then
With Zelle_in_der_Schleife.Offset(0, -1).Interior
.ColorIndex = 39
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Freitag" Then
With Zelle_in_der_Schleife.Offset(0, -2).Interior
.ColorIndex = 39
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Freitag" Then
With Zelle_in_der_Schleife.Offset(0, -3).Interior
.ColorIndex = 39
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Freitag" Then
With Zelle_in_der_Schleife.Offset(0, -4).Interior
.ColorIndex = 39
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Freitag" Then
With Zelle_in_der_Schleife.Offset(0, -5).Interior
.ColorIndex = 39
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Freitag" Then
With Zelle_in_der_Schleife.Offset(0, -6).Interior
.ColorIndex = 39
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Freitag" Then
With Zelle_in_der_Schleife.Offset(0, -7).Interior
.ColorIndex = 39
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Freitag" Then
With Zelle_in_der_Schleife.Offset(0, -8).Interior
.ColorIndex = 39
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Freitag" Then
With Zelle_in_der_Schleife.Offset(0, -9).Interior
.ColorIndex = 39
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Freitag" Then
With Zelle_in_der_Schleife.Offset(0, -10).Interior
.ColorIndex = 39
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Freitag" Then
With Zelle_in_der_Schleife.Offset(0, -11).Interior
.ColorIndex = 39
.Pattern = xlSolid
End With
End If
Next
Mal wieder vielen Dank im voraus!
Gruß
Karsten

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: For Each Zelle_in_der_Schleife.... verkürzen
11.07.2007 05:37:00
Oberschlumpf
Hi Karsten
Nach deinem Code innerhalb der For/Next-Schleife kann nur in Spalte L oder M ein Wochentag stehen, oder? Wenn in Spalte K der Wochentag steht, würde spätestens bei .Offset(0,-11)... ein Fehler auftreten, weil Spalte K (11) - 11 = Spalte 0 wäre. Excel beginnt aber mit Spalte 1 (A).
Ich vermute jetzt mal, dass in deiner Tabelle nur in Spalte M der Werktag steht. So würde Spalte A leer bleiben.
Versuch es mal so:

Sub werktag()
For Each Zelle_in_der_Schleife In Range("M5:M31")
Zeile = Zelle_in_der_Schleife.Row
Select Case Zelle_in_der_Schleife.Value
Case "Montag"
Range("B" & Zeile & ":M" & Zeile).Interior.ColorIndex = 6
Case "Dienstag"
Range("B" & Zeile & ":M" & Zeile).Interior.ColorIndex = 8
Case "Mittwoch"
Range("B" & Zeile & ":M" & Zeile).Interior.ColorIndex = 40
Case "Donnerstag"
Range("B" & Zeile & ":M" & Zeile).Interior.ColorIndex = 35
Case "Freitag"
Range("B" & Zeile & ":M" & Zeile).Interior.ColorIndex = 39
End Select
Next
End Sub


Konnte ich denn helfen, oder kommt es wirklich vor, dass in jeder Zelle im Bereich C5:M31 ein Werktag stehen kann?
Ciao
Thorsten

Anzeige
AW: For Each Zelle_in_der_Schleife.... verkürzen
11.07.2007 17:29:15
Karsten
Hallo Torsten,
entschuldige, hab dich leider vergessen. Klappt.
Grus Karsten

und hier noch eine Variante ...
11.07.2007 08:09:00
Matthias
Hallo
Hier eine weiter Variante
Option Explicit

Sub TestKarsten()
Dim Zelle_in_der_Schleife As Variant
Dim X, Farbe As Byte
For Each Zelle_in_der_Schleife In Range("M5:M31")
If Zelle_in_der_Schleife.Value = "Montag" Then Farbe = 6
If Zelle_in_der_Schleife.Value = "Dienstag" Then Farbe = 8
If Zelle_in_der_Schleife.Value = "Mittwoch" Then Farbe = 40
If Zelle_in_der_Schleife.Value = "Donnerstag" Then Farbe = 35
If Zelle_in_der_Schleife.Value = "Freitag" Then Farbe = 39
For X = -11 To 0
Zelle_in_der_Schleife.Offset(0, X).Interior.ColorIndex = Farbe
Next
Farbe = 0
Next
End Sub


Userbild
Ich bin dabei, genau wie Thorsten davon ausgegangen das die Tage nur in Spalte M stehen.
Userbild

Anzeige
AW: und hier noch eine Variante ...
11.07.2007 17:31:29
Karsten
Hallo Matthias,
Klappt ebenfalls. Danke.

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