10.05.2019, 17:21
Hallo,
Hilfe, Excel 2010
In der ersten Tabelle will ich täglich neue Werte eintragen (vorher alte Werte löschen) wobei Spalte A Produkt aus Cund D ist und einen Kontrollwert ergibt.
Die Tabelle 2 soll ein Archiv werden und erhält dazu automatisch das Datum des Eingabetages in Spalte K.
Existiert die Kontrollnummer in Tabelle2-Archiv schon, so soll in der täglichen Tabelle1 die Zelle farbig markiert werden.
- ich habe ein Arbeitsblatt erstellt und 3 Funktionen einzeln geprüft.
1. Kopiere alle gefüllten Zeile (von A-K) aus Tabelle1 in Tabelle2 (Archiv)und füge sie nach der letzten gefüllten Zeile ein.
2. Füge das Datum in Tabelle2 unveränderlich in Spalte K ein.
3. Markiere Zelle "Kontrollwert" in Tabelle1 wenn in Tabelle2 (Archiv) der Wert bereits vorhanden ist.
Einzlen funktioniert alles, ABER füge ich alles in ein Arbeitsblatt zusammen funktioniert gar nichts
Hier mein Arbeitsblatt
zu1. Code in Tabelle1
Private Sub Worksheet_Change(ByVal Target As Range)
'Code in das entsprechende Tabellenblatt!
If Not Intersect(Target, Range("D2:D" & Cells(Rows.Count, "J").End(xlUp).Row)) Is Nothing And Target.Count = 1 Then
If Target > 0 Then
Range(Cells(Target.Row, "A"), Cells(Target.Row, "J")).Copy _
Destination:=Sheets("Tabelle2").Range("A" & Sheets("Tabelle2").Cells(Rows.Count, "A").End(xlUp).Row + 1)
End If
End If
End Sub
zu2. Code in Tabelle2
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 3 And Target.Value <> 0 Then
Target.Offset(0, 8).Value = Now
End If
End Sub
zu 3.
Bedingte Formatierung
=VERGLEICH(A4;Tabelle2!A2:A2000;0)
PS. Ich kann den Wald wegen der vielen Bäume nicht sehen.
Hilfe, Excel 2010
In der ersten Tabelle will ich täglich neue Werte eintragen (vorher alte Werte löschen) wobei Spalte A Produkt aus Cund D ist und einen Kontrollwert ergibt.
Die Tabelle 2 soll ein Archiv werden und erhält dazu automatisch das Datum des Eingabetages in Spalte K.
Existiert die Kontrollnummer in Tabelle2-Archiv schon, so soll in der täglichen Tabelle1 die Zelle farbig markiert werden.
- ich habe ein Arbeitsblatt erstellt und 3 Funktionen einzeln geprüft.
1. Kopiere alle gefüllten Zeile (von A-K) aus Tabelle1 in Tabelle2 (Archiv)und füge sie nach der letzten gefüllten Zeile ein.
2. Füge das Datum in Tabelle2 unveränderlich in Spalte K ein.
3. Markiere Zelle "Kontrollwert" in Tabelle1 wenn in Tabelle2 (Archiv) der Wert bereits vorhanden ist.
Einzlen funktioniert alles, ABER füge ich alles in ein Arbeitsblatt zusammen funktioniert gar nichts
Hier mein Arbeitsblatt
zu1. Code in Tabelle1
Private Sub Worksheet_Change(ByVal Target As Range)
'Code in das entsprechende Tabellenblatt!
If Not Intersect(Target, Range("D2:D" & Cells(Rows.Count, "J").End(xlUp).Row)) Is Nothing And Target.Count = 1 Then
If Target > 0 Then
Range(Cells(Target.Row, "A"), Cells(Target.Row, "J")).Copy _
Destination:=Sheets("Tabelle2").Range("A" & Sheets("Tabelle2").Cells(Rows.Count, "A").End(xlUp).Row + 1)
End If
End If
End Sub
zu2. Code in Tabelle2
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 3 And Target.Value <> 0 Then
Target.Offset(0, 8).Value = Now
End If
End Sub
zu 3.
Bedingte Formatierung
=VERGLEICH(A4;Tabelle2!A2:A2000;0)
PS. Ich kann den Wald wegen der vielen Bäume nicht sehen.