Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1196to1200
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
Inhaltsverzeichnis

Zeilen färben, wenn Eintrag mit XYZ beginnt

Zeilen färben, wenn Eintrag mit XYZ beginnt
Kai
Hallo,
ich suche ein Makro, das die Spalte D von 1 bis 1000 durchläuft und in jeder Zeile, wo der Eintrag mit "ABC" beginnt, soll in der jeweiligen Zeile der Range E:AB mit RGB(141,238,238) gefärbt werden.
Ausschlaggebend sind aber immer nur die ersten 3 Zeichen des Strings ,der Rest des Strings braucht dann nicht mehr beachtet werden.
Wie kan man das denn machen ?
Danke
Kai

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

Betreff
Benutzer
Anzeige
AW: Zeilen färben, wenn Eintrag mit XYZ beginnt
21.01.2011 08:16:03
Eugen
hi kai
Public Sub color()
dim i as long, x as long
for i= 1 to 1000
if mid(sheets(1).cells(i,4).Value,1,3) = "ABC" then
for x = 5 to 28
sheets(1).cells(i,x).Interior.Color = RGB(141,238,238)
next x
endif
next i
End Sub
gruss
Eugen
AW: Zeilen färben, wenn Eintrag mit XYZ beginnt
21.01.2011 08:19:37
marcl
Guten Morgen Kai,
Sub färben()
Dim i As Integer
For i = 1 To 1000
If Left(Cells(i, 4), 3) = "abc" Then
Cells(i, 4).Interior.Color = RGB(141, 238, 238)
End If
Next i
End Sub

gruß
marcl
hier mein Vorschlag ...
21.01.2011 08:31:26
Matthias
Hallo
Sub Kai()
Dim BeR As Range, RnG As Range
Range("E1:AB1000").Interior.ColorIndex = xlNone
Set BeR = Range("D1:D1000")
For Each RnG In BeR
If Left(RnG, 3) = "ABC" Then Range("E" & RnG.Row & ":AB" & RnG.Row).Interior.Color = RGB( _
141, 238, 238)
Next
Set BeR = Nothing
End Sub
Gruß Matthias
Anzeige
An alle Danke für so viel Unterstützung :-)
21.01.2011 11:38:12
Kai

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige