Schleife Vergleich u kopieren verschiedene Tabelle

Hallo liebe Cracks.
Nochmals ein Problem.
Ich möchte z.B. in Tabelle 1 die ALB-POS mit der in Tabelle 2 vergleichen.
Wenn die ALB-POS enthalten dann den Wunschtermin der in Tabelle 2 steht in die entsprechende Zelle der Tabelle 1 der ALB-POS zuordnen. Kann mir da jemand helfen?
Ich möchte dies über VBA machen nicht über Formel da die Tabelle regelmäßig geleert wird und dann die Formel den Bezug verliert.
Zudem würde ich gerne in Spalte A eine Statusabfrage mit einer Ampel oder mit Farbiger Zelle machen.
Und zwar wenn Liefertermin größer Wunschtermin dann ROT
wenn Liefertermin 10Tage größer Wunschtermin dann Dunkelrot
wenn Liefertermin 10Tage vor WT dan Gelb
und wenn Liefertermin mehr als 10 Tage vor WT dann Grün.
Würde mich freuen wenn mir da jemand helfen kann und ganz super wäre wenn mir der Code erklärt wird. Würde es gerne verstehen.
Im Anhang hänge ich eine Beispieldatei mit an.
Vielen Dank.
https://www.herber.de/bbs/user/85114.xls

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Hans,
für einen Bugfix benötige ich eine Fehlermeldung, ein oder mehrere Screenshots und möglichst die zugrundeliegenden Daten.
Die Beispieldaten liefen vollständig durch, sogar wenn eine Alb-Pos aus Tabelle 2 entfernt wurde.
unten noch der kommentierte Code
beste Grüße,
Günther


Public Sub CheckTermine()
Dim Zellchen As Range
Dim Gefunden As Range
For Each Zellchen In Range("A6:A11").Cells
' Erste Spalte des Bereichs mit Liefer- und Montageterminen
' wird als Anfang der Zeilen durchlaufen
' Der Bereich muss für die Echtdaten normalerweise angepasst werden
Set Gefunden = Sheets("Tabelle2").Range("I3:I11").Find(Zellchen.Offset(0, 1))
' In der Spalte I der Tabelle2 wird nach dem Eintrag in Spalte B gesucht
' Der Bereich muss für die Echtdaten normalerweise angepasst werden
If Gefunden Is Nothing Then
' wenn nichts gefunden wird, wird auch nichts getan
DoEvents
Else
' Wenn der passende Eintrag gefunden wurde, wird
' In Spalte C (2 rechts von unserer Laufspalte) der Wert der Spalte J _
'     der gefundenen Zeile eingetragen
Zellchen.Offset(0, 2) = Gefunden.Offset(0, 1)
Zellchen.Offset(0, 2).NumberFormat = "dd/mm/yyyy" ' sicherheitshalber Datumsformat  _
setzen
' für die aktuelle Zellebedingte Formatierungen zurücksetzten und von vorn setzen
Zellchen.FormatConditions.Delete
' dabei ist auf die Reihenfolge zu achten
' Die Formatierungsbefehle erhält man am einfachsten durch Aufzeichnen,
' und Analyse des aufgezeichneten Codes mit der Hilfefunktion
Zellchen.FormatConditions.Add Type:=xlExpression, Formula1:="=ZS(2)>ZS(3)+10"
With Zellchen.FormatConditions(Zellchen.FormatConditions.Count)
.Interior.Color = 5296274
End With
Zellchen.FormatConditions.Add Type:=xlExpression, Formula1:="=ZS(2)>=ZS(3)"
With Zellchen.FormatConditions(Zellchen.FormatConditions.Count)
.Interior.Color = 65535
End With
Zellchen.FormatConditions.Add Type:=xlExpression, Formula1:="=ZS(2)

Beliebteste Forumthreads (12 Monate)

Schleife Vergleich u kopieren verschiedene Tabelle

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread