Live-Forum - Die aktuellen Beiträge
Datum
Titel
10.05.2024 09:46:10
Zusätzliche Sicherheitsabfrage beim Schließen
10.05.2024 07:04:14
nicht löschbar
09.05.2024 19:15:00
speichern über Makro ändert bedingt formatierte Zellen
09.05.2024 15:49:16
OEE Verlust als Linie an OEE
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
612to616
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
612to616
612to616
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

bedingte formatierung

bedingte formatierung
19.05.2005 17:45:24
Gabor
Guten Abend liebe Experten,
ich habe ein makro mit dem recorder aufgezeichnet und möchte es erweitern.
Wenn in Zelle A(ab Zeile 6) ein Wert steht soll die Zelle daneben weiss werden, dass klappt schon, nun soll auch noch die nächste zelle (C) bei dieser Bedingung weiss werden.
Hier der Code:

Sub bedingt_mod2()
'wenn in A ab Zeile 6 > 0 -> Zelle in B weiss
Range("B6").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=A6>0"
Selection.FormatConditions(1).Interior.ColorIndex = 2
Selection.AutoFill Destination:=Range("B6:B" & Cells(Rows.Count, 1).End(xlUp).Row), Type:=xlFillDefault
End Sub

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: bedingte formatierung
19.05.2005 18:17:47
DieterB
Grüß dich,
sollte so funktionieren:
.....
("B6:B;C6:C" & Cells(Rows.Count, 1).End(xlUp...
Gruß
DieterB
AW: bedingte formatierung
19.05.2005 18:28:02
Fred
Hi,
entweder du machst es einzeln für beide Spalten oder verwendest
.AutoFill Destination:=Range("B6:C" & Cells(Rows.Count, 1).End(xlUp).Row), Type:=xlFillDefault
Auf jeden Fall musst du $A6 verwenden.
mfg Fred
AW: bedingte formatierung
19.05.2005 21:14:11
Gabor
Danke euch beiden, ich habe den CODE wie folgt geändert.
Range("B6:C6").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$A6&gt0"
Selection.FormatConditions(1).Interior.ColorIndex = 2
Selection.AutoFill Destination:=Range("B6:C" & Cells(Rows.Count, 1).End(xlUp).Row), Type:=xlFillDefault
Das einzige Problem mit dem AutoFill ist das, dass immer wenn nur eine Zeile zur Verfügung steht, immer ein Fehler kommt. Autoausfüllen ist ja in dem Fall auch sinnlos, wie kann ich aber diese Manko abstellen, dass AutoFill nur aktiv wird, wenn mehr als eine Zeile zur Verfügung steht.
Anzeige
AW: bedingte formatierung
19.05.2005 21:55:40
Fred
Hi,
On Error Resume Next
Range("B6:C6").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$A6&gt0"
Selection.FormatConditions(1).Interior.ColorIndex = 2
Selection.AutoFill Destination:=Range("B6:C" & Cells(Rows.Count, 1).End(xlUp).Row), Type:=xlFillDefault
mfg Fred
AW: bedingte formatierung
20.05.2005 12:03:05
Gabor
Fred,
vielen Dank die kleine Zeile "On Error Resume Next" hat mir sehr geholfen. Ich arbeite oft mit Autofill und musste die Zeilenanzahl immer auf ein Minimum von 2 Zeilen beschränken um nicht eine Fehlermeldung angezeigt zu bekommen. Das ist ja nun vorbei.
Anzeige
AW: bedingte formatierung
19.05.2005 22:49:39
Bert 

Sub bedingt_mod2()
Dim z As Long
z = Cells(Rows.Count, 1).End(xlUp).Row
If z = 6 Then Exit Sub
With [b6:c6]
.FormatConditions.Delete
.FormatConditions.Add Type:=2, Formula1:="=$A6>0"
.FormatConditions(1).Interior.ColorIndex = 2
.AutoFill Range("B6:C" & z), 0
End With
End Sub

mfg Bert
AW: bedingte formatierung
20.05.2005 12:14:42
Gabor
Bert,
deine Lösung ist zweifellos eleganter als mein Ansatz und ich bin sehr an dieser Lösung interessiert. Beim Laufen des Macros mit deiner Variante werden aber nur die letzten 2 Zeilen formatiert. Ich schreib dir mal den Rest vom makro, vielleicht liegt der Fehler weiter vorn.
'Begin
Private Sub CommandButton1_Click()
Dim i As Integer
' Loescht den Inhalt
Rows("6:65536").Select
Selection.Delete Shift:=xlUp
' Schreibt die gewuenschten Zahlen aus C1
For i = 1 To Cells(1, 3)
Cells(6 + (i - 1), 1).FormulaR1C1 = i
Next
' Die erste Leere Zeile wird markiert
Range("A:A").Select
Range("A65536").End(xlUp).Offset(1, 0).Select
'Code von Bert
bedingt_mod2
Range("C1").Select
Selection.Interior.ColorIndex = 15
Der Wert in C1 bestimmt die Zeilenanzahl ab Zeile 6. In den ersten 5 Zelen sind Einträge die den Tabellenkopf bilden.
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