Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.05.2024 07:58:34
Wie Formelberechnung trotz Blattschutz
19.05.2024 19:56:55
Mit Schaltfläche (VBAMacro) zur aktuellen Woche springen
19.05.2024 19:42:43
zeilen löschen wenn
19.05.2024 17:55:54
Problem mit Formel countif
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1848to1852
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1848to1852
1848to1852
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Farbliche Markierung beim Einlesen

Farbliche Markierung beim Einlesen
10.10.2021 02:32:30
Claudia
Hallo Ihr fleißigen Helfer,
Ihr hattet mir bereits einmal toll geholfen und da ich jetzt einfach nicht weiter komme, wende ich mich wieder an euch.
Ich habe mir, dank dieses Forums durchs Recherchieren, einen Code zusammengebastelt, welcher mir Daten überträgt. Das funktioniert auch super. Nun muss ich aber mit Farben arbeiten und das bekomme ich nicht eingebaut.
Neue Artikel müssen in grün, Nachfolgeartikel in gelb ... aber die Beschreibung steht in meiner Beispieldatei, ist somit besser zu erkennen:
https://www.herber.de/bbs/user/148531.xlsm
Hoffe sehr auf eure Unterstützung und bedanke mich schon mal im voraus.
Viele Grüße Claudia

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Farbliche Markierung beim Einlesen
10.10.2021 08:26:38
Hajo_Zi
Hallo Claudia,
die Farbe sollte nicht zurück gesetzt werden, bei neuen Durchlauf.
Tb2.cells.interior.colorindex=Xlnone

Option Explicit
Sub Datenabgleich()
Dim TB2 As Worksheet, TB3 As Worksheet
Dim LR2 As Long, i As Long, Zeile As Long
Dim Z1 As Integer, SP As Integer
Set TB2 = Sheets("daten")
Set TB3 = Sheets("preisliste")
Z1 = 2 'Erste Zeile mit Daten / wegen Überschrift
SP = 1 'Daten in A
LR2 = TB3.Cells(TB3.Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte
For LR2 = 2 To TB3.Cells(Rows.Count, 1).End(xlUp).Row
If WorksheetFunction.CountIf(TB2.Columns(1), TB3.Cells(LR2, 1)) = 0 Then
Zeile = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Range(.Cells(Zeile, 1), .Cells(Zeile, 8)).Interior.Color = 6723891
End With
Else
Zeile = Application.Match(TB3.Cells(LR2, 1), TB2.Columns(1), 0)
With TB2
.Range(.Cells(Zeile, 1), .Cells(Zeile, 8)).Interior.Color = 13434879
End With
End If
TB2.Cells(Zeile, 1) = TB3.Cells(LR2, 1)
TB2.Cells(Zeile, 3) = TB3.Cells(LR2, 2)
TB2.Cells(Zeile, 2) = TB3.Cells(LR2, 3)
TB2.Cells(Zeile, 8) = TB3.Cells(LR2, 4)
Next LR2
End Sub
GrußformelHomepage
In diesem Forum bekomme ich kein Mailbenachrichtigung, weitere Antworten sind zufällig.
Anzeige
AW: Farbliche Markierung beim Einlesen
10.10.2021 09:34:34
Claudia
Guten Morgen,
danke für deine Code Hajo, aber ich erhalte die Fehlermeldung: Unzulässige oder nicht ausreichender Verweis
bei: Zeile = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
Viele Grüße Claudia
AW: Farbliche Markierung beim Einlesen
10.10.2021 09:41:50
Hajo_Zi
Entschuldigung, ich hatte was verschoben und nicht kopiert.

Option Explicit
Sub Datenabgleich()
Dim TB2 As Worksheet, TB3 As Worksheet
Dim LR2 As Long, i As Long, Zeile As Long
Dim Z1 As Integer, SP As Integer
Set TB2 = Sheets("daten")
Set TB3 = Sheets("preisliste")
Z1 = 2 'Erste Zeile mit Daten / wegen Überschrift
SP = 1 'Daten in A
LR2 = TB3.Cells(TB3.Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte
For LR2 = 2 To TB3.Cells(Rows.Count, 1).End(xlUp).Row
If WorksheetFunction.CountIf(TB2.Columns(1), TB3.Cells(LR2, 1)) = 0 Then
With TB2
Zeile = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Range(.Cells(Zeile, 1), .Cells(Zeile, 8)).Interior.Color = 6723891
End With
Else
Zeile = Application.Match(TB3.Cells(LR2, 1), TB2.Columns(1), 0)
With TB2
.Range(.Cells(Zeile, 1), .Cells(Zeile, 8)).Interior.Color = 13434879
End With
End If
TB2.Cells(Zeile, 1) = TB3.Cells(LR2, 1)
TB2.Cells(Zeile, 3) = TB3.Cells(LR2, 2)
TB2.Cells(Zeile, 2) = TB3.Cells(LR2, 3)
TB2.Cells(Zeile, 8) = TB3.Cells(LR2, 4)
Next LR2
End Sub
Gruß Hajo
Anzeige
AW: Farbliche Markierung beim Einlesen
10.10.2021 10:07:56
Claudia
Danke Hajo, Farbe grün passt - prima. Aber die gelbe Farbe fängt in Zeile 4 an und geht runter bis Excel eine grüne Farbe erkennt. Hier muss doch "irgendwo" die Abfrage auf Spalte C in der Preisliste erfolgen?!
Hat die Artikelnr. in Spalte C ungleich folgenden Text: ersatzlos; Kein Nachfolger; = leere Zelle,
dann soll die ArtikelNr. in Spalte A (alte ArtikelNr. ) in einer gelben Füllfarbe.
Bedeutet, es gibt eine neue Artikelnr. zum bereits vorhandenen Artikel.
Und dabei fällt mir ein, ist ja auch richtig umgesetzt, grün hat immer Priorität 1.
Kannst du bitte noch mal schauen? Danke dir.
Gruß Claudia
Anzeige
AW: Farbliche Markierung beim Einlesen
10.10.2021 10:23:23
Hajo_Zi
Hallo Claudia,
Ich habe mich an Deinen Vergleich gehalten, dazu stand nichts das der falsch ist.
Ich habe keinen Ansatz was flasch ist,.
Viel Erfolg noch.
Gruß Hajo
AW: Farbliche Markierung beim Einlesen
10.10.2021 10:42:52
Claudia
Hey ...
doch Hajo, das steht in der Aufgabenbeschreibung.
Boris: Danke für deinen Tipp, aber das Einfärben muss beim Aktivieren des Button passieren, so wie es ja bereits Hajo mit "grün" schon gemacht hat. Hier habe ich allerdings das Einfärben auf Spalte A eingegrenzt.
Feue mich über weitere Unterstützung. Danke.
Gruß Claudia
Anzeige
AW: Farbliche Markierung beim Einlesen
10.10.2021 12:09:04
GerdL
Moin Claudia.
gelb nur bei den geänderten Altdaten.
Option Explicit

Sub Datenabgleich()
Dim TB2 As Worksheet, TB3 As Worksheet
Dim LR2 As Long, i As Long, Zeile As Long
Dim Z1 As Integer, SP As Integer
Set TB2 = Sheets("daten")
Set TB3 = Sheets("preisliste")
Z1 = 2 'Erste Zeile mit Daten / wegen Überschrift
SP = 1 'Daten in A
LR2 = TB3.Cells(TB3.Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte
For LR2 = 2 To TB3.Cells(Rows.Count, 1).End(xlUp).Row
If WorksheetFunction.CountIf(TB2.Columns(1), TB3.Cells(LR2, 1)) = 0 Then
Zeile = TB2.Cells(Rows.Count, 1).End(xlUp).Row + 1
Else
Zeile = Application.Match(TB3.Cells(LR2, 1), TB2.Columns(1), 0)
End If
If Zeile = TB2.Cells(Rows.Count, 1).End(xlUp).Row + 1 Then
TB2.Cells(Zeile, 1).Resize(1, 4).Interior.Color = vbGreen
End If
TB2.Cells(Zeile, 1) = TB3.Cells(LR2, 1)
TB2.Cells(Zeile, 3) = TB3.Cells(LR2, 2)
TB2.Cells(Zeile, 2) = TB3.Cells(LR2, 3)
TB2.Cells(Zeile, 8) = TB3.Cells(LR2, 4)
If Zeile
Gruß Gerd
Anzeige
Passt super ...
10.10.2021 12:17:48
Claudia
vielen lieben Dank Gerd :-)
Auch an Hajo und Boris ein dickes Dankeschön.
Kleinere Anpassungen bekomme ich selbst hin. Wünsche euch und allen anderen Forumteilnehmer noch einen schönen Sonntag.
PS: Mit der Antwort in der richtigen Reihefolge habe ich so noch meine Probleme :-)
Gruß Claudia
AW: Farbliche Markierung beim Einlesen
10.10.2021 10:34:56
{Boris}
Hi,
das gelbe Einfärben kann man auch gut ohne VBA mit der Bedingten Formatierung erledigen.
Markiere dazu die Einträge im Blatt Preisliste in Spalte A, beginnend bei A2, dann Bedingte Formatierung, Neue Regel, Formel zur Ermittlung...
=($C2"ersatzlos")*($C2"Kein Nachfolger")*($C2"")
und Hintergrundfarbe gelb zuweisen.
VG, Boris
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige