Zahlenfolge suchen und farbig markieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Tommhi,
im Prinzip so:

Option Explicit

Public Sub SetColor()
    Dim lngRow As Long
    For lngRow = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        With Cells(lngRow, 1)
            Select Case Mid$(.Text, 4, 2)
                Case 51: .Interior.Color = vbRed
                Case 54: .Interior.Color = vbGreen
                Case 55: .Interior.Color = vbYellow
                Case 56: .Interior.Color = vbBlue
                Case 57: .Interior.Color = vbCyan
                Case 59: .Interior.Color = vbMagenta
                Case 61: .Interior.Color = vbRed '?
                Case 62: .Interior.Color = vbRed '?
                Case 65: .Interior.Color = vbRed '?
                Case 66: .Interior.Color = vbRed '?
                Case 70: .Interior.Color = vbRed '?
                Case 71: .Interior.Color = vbRed '?
            End Select
        End With
    Next
End Sub

Da du nichts zu den Farben schreibst, kann ich nur vermuten.
Gruß
Nepumuk

Sub kennzeichner() x = 16 For Each zl In Range("A:A").SpecialCells(xlCellTypeConstants) Txt_teil = Mid(zl, 4, 2) Select Case Txt_teil Case "51": col = Txt_teil - x Case "54": col = Txt_teil - x Case "55": col = Txt_teil - x Case "56": col = Txt_teil - x Case "57": col = Txt_teil - x Case "59": col = Txt_teil - x Case "61": col = Txt_teil - x Case "62": col = Txt_teil - x Case "65": col = Txt_teil - x Case "66": col = Txt_teil - x Case "70": col = Txt_teil - x Case "71": col = Txt_teil - x End Select zl.Interior.ColorIndex = col Next zl End Sub

Hallo Müller,
Ich hab nur mit dem Farbindex gearbeitet, also einfach mal laufen lassen :-)
Wenn ich mir meinen Code heute so anschaue, dann könnte der auch wesentlich kürzer sein:

Sub kennzeichner()
x = 16
For Each zl In Range("A:A").SpecialCells(xlCellTypeConstants)
Txt_teil = Mid(zl, 4, 2)
Select Case Txt_teil
Case "51", "54", "55", "56", "57", "59", "61", "62", "65", "66", "70", "71"
col = Txt_teil - x
Case Else
col = 13
End Select
zl.Interior.ColorIndex = col
Next zl
End Sub

Wenn du den Index einer Farbe herausfinden möchtest: Färbe eine Zelle und markiere sie. Dann im _ direktbereich VBA (STRG+G) eingeben:


? activecell.interior.colorindex

Alternativ kannst du dir auch ne Farbe raussuchen nach Index.
Hiermit bekommst du eine Liste alle Indizes:

Sub farbliste()
[A:B].Clear
For i = 0 To 56
z = i + 1
Cells(z, 1) = i
Cells(z, 2).Interior.ColorIndex = i
Next i
End Sub

Gruß, MCO

Public Sub Kons() Dim intSh As Integer Dim lngLast As Long Worksheets("Versand").Range("A1:B2700").ClearContents For intSh = 1 To 3 ' Nachfolgende Anweisungen mit Sheet 2 bis 13 von links. Sheet für Sheet With Sheets(intSh) lngLast = Worksheets("Versand").Cells(Rows.Count, 1).End(xlUp).Row + 1 .Range("A1:B" & .Cells(Rows.Count, 1).End(xlUp).Row).Copy _ Destination:=Worksheets("Versand").Cells(lngLast, 1) End With Next End Sub

Beliebteste Forumthreads (12 Monate)

Zahlenfolge suchen und farbig markieren

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zahlenfolge suchen und farbig markieren

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread