Zellen bei Wert rot färben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi,
die Tabelle hat wie oben beschrieben ca. 80 Spalten a 50.000 Zeilen.
Habs auch gerade nochmal ausprobiert und die Performance ist durch die bedingte Formatierungen eine absolute katastrophe.
Ich hatte im Internet folgendes gefunden:

Option Explicit
Sub achim()
Dim rngCell As Range
For Each rngCell In Range("A23:A50000")
If InStr(1, rngCell.Value, "Unknown") > 0 Then
rngCell.Interior.ColorIndex = 45
End If
Next rngCell
End Sub

Das funktioniert zumindest für Begriffe, in diesem Beispiel "Unknown" gut. Könnte mir bitte jemand zeigen, wie ich hier nun weitere Prüfungen anbaue, d.h. das im Anschluss dann Spalte B23:B50000 geprüft wird, ob hier negative Zahlen enthalten sind.
Bin leider nur mit dem Macro-recorder vertraut und das funktioniert, deswegen bitte ich um Nachsicht meiner fehlenden VBA-Kenntnisse ;-).
Sofern mir jemand erklären könnte, wie ich dann weitere Abfragen anhängen kann bzw. mit den End if umgehen muss, wäre ich extremist dankbar.
Vielen Dank im Voraus.
Gruß
Tarje

ption Explicit Sub achim() Dim rngCell As Range For Each rngCell In Range("A23:B50000") if rngCells.Column = 1 then 'Spalte A If InStr(1, rngCell.Value, "Unknown") > 0 Then rngCell.Interior.ColorIndex = 45 End If end if if rngCells.Column = 2 then 'Spalte B If rngCell.Value

Hallo Yummi & Daniel,
vielen Dank für Eure Rückmeldungen.
Nun noch eine Frage: Sobald ich eine weitere Abfrage anhängen möchte, erhalte ich Laufzeitfehler 13.
Erweiterung bei Daniel's Code:

Option Explicit
Sub achim()
Dim rngCell As Range
For Each rngCell In Range("A23:A50000")
If InStr(1, rngCell.Value, "Unknown") > 0 Then rngCell.Interior.ColorIndex = 45
If rngCell.Offset(0, 1).Value  0 Then rngCell.Offset(0, 2).Interior.ColorIndex = 45
Next rngCell
End Sub

Erweiterung bei Yummi's Code:

Option Explicit
Sub achim()
Dim rngCell As Range
For Each rngCell In Range("A23:C50000")
if rngCell.Column = 1 then  'Spalte A
If InStr(1, rngCell.Value, "Unknown") > 0 Then
rngCell.Interior.ColorIndex = 45
End If
end if
if rngCell.Column = 2 then  'Spalte B
If rngCell.Value  0 Then
rngCell.Interior.ColorIndex = 45
End If
end if
Next rngCell
End Sub

Was mache ich hier falsch oder ist eine Erweiterung gar nicht möglich/sinnvoll?
Gruß
T

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellen bei Wert rot färben

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread