farbige Zellen nach oben sortieren

Sub matrix_cd_test() 'wenn farbe in/ab C4 = türkis schreibe in/ab U4 eine 1 Range("C4").Select Do Until IsEmpty(ActiveCell) If ActiveCell.Offset(0, 0).Interior.ColorIndex = 8 Then ActiveCell.Offset(0, 18).Value = 1 ActiveCell.Offset(1, 0).Select Else ActiveCell.Offset(1, 0).Select End If Loop End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Mustafa,
danke für deine Antwort. Ich hatte es folgendermaßen probiert:


Sub matrix_cd_test_2()
'wenn farbe in/ab C4 = türkis schreibe in/ab U4 eine 1
Range("C4").Select
Do Until IsEmpty(ActiveCell)
If ActiveCell.Offset(0, 6).Value = ActiveCell.Offset(0, 16).Value Then
ActiveCell.Offset(0, 18).Value = 1
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub

Ich vergleiche die Zelle (Spalte I [hat immer eine Zahl als Wert]) mit der Zelle (Spalte R,S,T in der selben Zeile). In den Zellen Spalte R,S,T steht aber manchmal der Ausdruck #NV und hier bleibt das Makro dann hängen.
Die Bedinging ist erfüllt (in U soll eine 1 geschrieben werden), wenn der Wert in I mit dem Wert in R oder S oder T übereistimmt (immer in der selben Zeile).
Problem ist in diesem Fall der Ausdruck #NV. Der Ansatz des Makros vergleicht im Moment nur zwei Zellen. Aber da hier das Makro schon hängt, habe ich nicht weiter gemacht.
Ich hoffe ihr könnt mir weiter helfen.
Gábor

Hallo Sepp,
die Formatierung wird folgendermaßen erledigt:
Range("C4").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=I4=R4"
Selection.FormatConditions(1).Interior.ColorIndex = 8
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=I4=S4"
Selection.FormatConditions(2).Interior.ColorIndex = 8
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=I4=T4"
Selection.FormatConditions(3).Interior.ColorIndex = 8
Selection.Copy
Range("C5:C" & Cells(Rows.Count, 3).End(xlUp).Row).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("C4").Select
Wie kann ich in die Spalte Q einen Wert beispielsweise 1 schreiben, wenn eine der Bedingungen erfüllt ist.
Vielen Dank für deine erste Antwort
Gábor

Beliebteste Forumthreads (12 Monate)

farbige Zellen nach oben sortieren

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

294 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

farbige Zellen nach oben sortieren

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

294 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread