Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1788to1792
1788to1792
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zahlenfolge suchen und farbig markieren

Forumthread: Zahlenfolge suchen und farbig markieren

Zahlenfolge suchen und farbig markieren
06.11.2020 09:55:17
Müller
Hallo
ich habe eine Tabelle wo in spalte A Artikelnumern stehen die Artikelnummern sind immer 8 stellig. so X2151345
Nun möchte ich durch ein Makro die Zellen farbig markieren wenn sich die 4und 5 stelle ändern.
in der 4 un 5 Stelle kann stehen 51, 54, 55,56,57,59,61,62,65,66,70,71
für jedes eine andere Farbe
kann mir da jemand helfen
VG
Tommhi
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zahlenfolge suchen und farbig markieren
06.11.2020 09:57:38
Müller
die ersten 3 Stellen der Artikelnummer bleiben immer gleich
AW: Zahlenfolge suchen und farbig markieren
06.11.2020 10:20:27
Nepumuk
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
Anzeige
AW: Zahlenfolge suchen und farbig markieren
06.11.2020 10:34:21
MCO
Hallo!
Eine ähnliche Lösung hab ich auch entwickelt:
Farbenkombi kann durch die Änderung von x angepasst werden
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
Gruß, MCO
Anzeige
AW: Zahlenfolge suchen und farbig markieren
06.11.2020 10:58:50
Müller
@MCO
wo sieht man bei Dir welche Farben ausgewählt wurden
AW: Zahlenfolge suchen und farbig markieren
09.11.2020 07:45:01
MCO
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
Anzeige
AW: Zahlenfolge suchen und farbig markieren
06.11.2020 10:38:42
Müller
was müsste ich einfügen wenn ich alle Einträge in Spalte a gelöscht habe und auch die Füllfarbe auf keine zurück zusetzen
AW: Zahlenfolge suchen und farbig markieren
06.11.2020 10:47:52
Nepumuk
Hallo Tommhi,
Columns(1).Clear
Gruß
Nepumuk
AW: Zahlenfolge suchen und farbig markieren
06.11.2020 10:57:09
Müller
die Zelle A1 möchte ich aber nicht mit gelöscht haben,
Anzeige
AW: Zahlenfolge suchen und farbig markieren
06.11.2020 10:58:57
Nepumuk
Hallo Tommhi,
na dann:
Range(Cells(2,1),Cells(Rows.Count,1)).Clear
Gruß
Nepumuk
AW: Zahlenfolge suchen und farbig markieren
06.11.2020 11:58:47
Müller
noch eine Frage ich kopiere aus Spalte a alles aus Tabellenblatt 1-3 nach Tabellenblatt 4
mein makro sieht so aus . jetzt kopiert er mir alles hinternander in Tabellenblatt 4 ich möchte aber im Tabellenblatt 4 dann immer 2 Leer zellen zwischen den einzelnen Blättern haben.
Blatt1
leer
leer
Blatt2
leer
leer
Blatt3
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

Anzeige

Forumthreads zu verwandten Themen

Zellen farbig markieren
chrisss

Hallo,
ist es eigentlich bei Excel 2007 nun möglich, dass bei einer Wenn-Funktion eine Zelle farbig ausgefüllt wird. Beispiel: Wenn in Tabelle 1 in A1 ein U steht, soll die Zelle A1 in Tabelle 2 rot ausgefüllt werden.
Ich hatte die Frage schonmal gepostet und die Antwort erhalten, dass...
21.08.2008 13:20:00
Thread-ID: 1003455
8 Beiträge
Zellen farblich Markieren
Hans

Hallo Leute,
Mit den beiden Codes markiere ich bestimmte Zellen farbig (hellgelb, bzw. hellgrau), was auch funktioniert. Allerdings muss ich die Farben im Code festlegen, was ich eigentlich nicht möchte. Ist es möglich die Farbe aus bestimmten Zellen auszulesen und diese per Code einzutrag...
12.10.2008 12:08:00
Thread-ID: 1015830
7 Beiträge
Text in Zelle suchen und markieren
Heiko

Hi, Excelianer,
kenne mich mit der Suche nach Strings nicht gut aus...
Ich habe mit Excel einen Kalender (händisch) erstellt mit dem Datum jeweils eines Monats in Spalte A (Text in Zelle: "01.10.2008", durch Formatierung angezeigt: "Mittwoch, 01. Oktober 2008"). Die Tabellenblätter heiß...
30.10.2008 08:21:00
Thread-ID: 1020459
5 Beiträge
trotz INDIREKT verknüpfte zellen farbig markieren
merlin

Hallo,
gibt es eine Möglichkeit trotz der Verwendung von INDIREKT die verknüpften Zellen markieren zu lassen?
https://www.herber.de/bbs/user/60118.xls
Viele Grüße, vielen Dank.
09.03.2009 11:14:37
Thread-ID: 1058088
3 Beiträge
Anzeige
Mehrere Zellen gleichzeitig farblich markieren
KLAUS

Hallo!
Ich habe eine Tabelle in der von B9 bis V45 in jeder Zelle ein Namenskürzel steht, insgesamt 21 verschiedene.
Jetzt möchte ich alle Kürzel von einer Person, die aber an unterschiedlichen,d.h. nicht zusammenhängenden, Zellen stehen mit wenig Aufwand und Suchaktionen mit einem Arbe...
11.03.2009 12:29:52
Thread-ID: 1059068
7 Beiträge
Anzeige
In Spalte leere Zelle erkennen /farblich markieren
Joachim

Hi,
ich mal wieder: ich lese Daten in mein Tabellenblatt "DATEN" ein. Dann möchte ich überprüfen, ob es in der Spalte B irgendwo eine Zelle gibt , die leer ist. Den Range des Datenbereichs ermittle ich so:
lngRow = Cells.Find("*", , xlValues, 2, 1, 2, False, False).Row
Range("B10:B"...
21.04.2009 08:56:19
Thread-ID: 1069952
17 Beiträge
Datum suchen und markieren
edie

Hallo zusammen,
das recherchieren im Archiv hat mich nicht weiter gebracht, wäre schön, wenn mir jemand helfen könnte.
Im Bereich B6:B50 wird immer wieder ein Datum geschrieben und die Zelle markiert.
Nun soll das markierte Datum in der Spalte AA1:AA200 gesucht und die Zelle markie...
03.06.2009 21:54:16
Thread-ID: 1079017
2 Beiträge
Zellen farblich markieren
Uwe.Siebers

Guten Morgen,
in einem Arbeitsblatt "Zeitdaten" befinden sich in den Zellen "B6:B36" die Angaben zu den Tagen eines Monats (01 bis z.B. 31) In den Zellen "C6:C36" stehen dazu die Wochentage (z.B. Sa, So)
Wie bekomme ich`s nun hin, das die Zellen im Bereich "B6:Z36" immer dann farblich h...
10.09.2009 10:09:17
Thread-ID: 1101686
3 Beiträge
farbliche Nummern suchen und markieren
Bernie

Hallo Spezialisten,
Aus einem Programm bekomme ich eine Excel-Tabelle aufbereitet, in welcher 2 Spalten mit Material-Nummern vorhanden sind.
Jetzt möchte ich gerne die Spalten so farblich markieren, daß dort Nummern, welche ich zuvor als Legende gekennzeichnet und farblich markiert ha...
10.12.2009 20:00:24
Thread-ID: 1123042
8 Beiträge
Zellen automatisch farblich markieren | Herbers Excel-Forum
Olaf Schade
Hallo alle zusammen,
ich möchte gerne Zellen in Abhängigkeit von einem Zahlenwert farblich markieren.
Beispiel: in Zelle A1 steht eine 3, dann sollen die Zellen A1, B1, und C1 grün markiert werden. In Zelle A2 steht eine 5, dann sollen die Zellen A2, B2, C2, D2 und E2 grün markiert werden...
11.01.2010 13:42:31
Thread-ID: 1128861
2 Beiträge
Wert suchen und markieren
Einzel

Hallo,
habe eine Datei wo ich nach Stäben suche. Nun möchte ich, wenn ich z.B. 2 Eingabe alle
Zellen die hinter der 2 liegen makieren.
Im Beispiel wäre das bei Eingabe von 2:
C9:C15 und E9:J15
habe schon mal ein VBA angefangen nur leider markiert er mir nur E9:E15
Hat je...
15.03.2010 18:47:56
Thread-ID: 1146005
6 Beiträge
Suchen und markieren
Einzel

Hallo,
ich such per VBA in Tabelle1 ein Wert zb 2. Nun möchte ich das wenn das Makro die 2 gefunden hat, A bis J markiert. In diesen Fall für Wert2 wäre das der Bereich A1 bis J8.
Habe mal ein altes Makro von mir benutz das ich mit der Forum Hilfe erstellt bekommen habe, da markiert er...
20.03.2010 14:42:21
Thread-ID: 1147257
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige