Hallo Schauan, der Code von Berni funktioniert schon teilweise. Alle Werte bis Zeile 18 werden in Tabelle 2 kopiert, aber die Werte ab Zeile 23 (Gummi) nicht mehr, egal ob bis Zeile 18 alle Werte eingetragen sind oder nicht. Die Bedingte Formatierung nach deinem Vorschlag bringt folgende Fehlermeldung
" Sie können Bezüge auf andere Tabellen oder Arbeitsmappen in Bedingte Formatierung-Kriterien nicht verwenden. "
Das Datum wird wunschgemäß in Tabelle2 eingetragen.
hier mal der Code, der dann nur die Zellinhalte überträgt und keine Formatierungen oder Formeln.
Code:
Private Sub Worksheet_Change(ByVal Target As Range) Dim Ziel As Worksheet Dim Zeile As Long
Set Ziel = Sheets("Tabelle2") With Ziel Zeile = .Cells(.Rows.Count, "A").End(xlUp).Offset(1, 0).Row If Not Intersect(Target, Range("D2:D" & Cells(Rows.Count, "J").End(xlUp).Row)) Is Nothing And _ Target.Count = 1 And Target > 0 Then Range(Cells(Target.Row, "A"), Cells(Target.Row, "J")).Copy .Range("A" & Zeile).PasteSpecial Paste:=xlPasteValues .Cells(Zeile, 11) = Now End If End With End Sub
Dass unten nix übertragen wird liegt an der Reihenfolge der Eingaben. Der Code überträgt bei Eintrag in Spalte D, wenn zuvor auch in Spalte J was eingegeben wurde oder weiter unten bereits etwas in Spalte J steht. Wenn Du oben was eingibst, hast Du natürlich schon unten in der Plaste was stehen und dadurch klappt es.
Relevant ist dieser Vergleich und da speziell das J:
Wenn Du das J durch D ersetzt, würde bei dem entsprechenden Eintrag in Spalte D was übernommen. Du müsstest generell zuerst die anderen Daten einer Zeile eintragen und zuletzt die Spalte D.
. \\\|/// Hoffe, geholfen zu haben. ( ô ô ) Grüße, André aus G in T ooO-(_)-Ooo (Excel 97-2019+365)
Die Übertragung in Tabelle2 funktioniert jetzt, aber die Fehlermeldung der Bedingten Formatierung ist immer noch. Hier will ich vergleichen ob es den Kontrollwert bereits einmal gibt und wenn ja, dann will ich das erkennen. Es muss nicht unbedingt die Funktion "Bedingte Formatierung" sein, auch ein anderer Weg ist denkbar, nur erschien mir das einfach.
dann schreib doch mal bitte, was Du da für eine Bedingung hast und bei welcher Aktion genau der Fehler kommt. Beim Kopieren, hast Du da oben was eingetragen oder unten, hast Du in allen Spalten vor dem Kopieren was reingeschrieben, steht die Kontrollnummer schon drin, ... In Deinem Muster ging es sowohl im ursprünglichen Code mit Formatübertragung als auch im letzten Code ohne.
Ich hätte dann lediglich noch Application.CutCopyMode = False Als Ergänzung vor End Sub, damit die Kopiermarkierung in Tabelle1 verschwindet.
. \\\|/// Hoffe, geholfen zu haben. ( ô ô ) Grüße, André aus G in T ooO-(_)-Ooo (Excel 97-2019+365)
Es wurden die Zellen A4 bis A35 in Tabelle1 markiert und die von dir vorgeschlagene Formel eingefügt , bei formatieren wähle ich Hintergrundfarbe für Zellen und bei OK kommt dann die Fehlermeldung (siehe Bild)
12.05.2019, 20:39 (Dieser Beitrag wurde zuletzt bearbeitet: 12.05.2019, 20:47 von Norbert343.)
Hi,
Die "Bedingte Formatierung" soll in Spalte A den Hintergrund der Zelle einfärben, welche einen Wert enthält, welcher in Tabelle2(Archiv) in Spalte A bereits vorhanden ist und nur den. In Tabelle2 braucht keine Zelle eingfärbt werden. Also nicht wie in deinem Bild.
Kann man auch die Formel mit "1:" beginnen statt mit einem "= " wie in deinem Bild?? Mit "1:" kommt bei mir auch keine Fehlermeldung, aber es wird keine Zelle eingefärbt.
Eventuell kann man die ganze Sache umdrehen, das alle Zellen in Spalte A frablich markiert sind, nur die die einen Wert enthalten welche in Tabelle2 Spalte A bereits enthalten ist nicht.
Danke, und ich dachte es ist so einfach Nochmal Hi,
12.05.2019, 20:48 (Dieser Beitrag wurde zuletzt bearbeitet: 12.05.2019, 20:50 von WillWissen.)
Hallo Norbert,
du hast die bedingte Formatierung (noch) nicht verstanden. Das, was André gepostet hat, ist kein Bild, sondern ein Tabellenausschnitt mit einem Tool. Eingefärbt wird, wie du es willst, Tabelle1; ersichtlich aus dem Kopf: Arbeitsblatt mit dem Namen 'Tabelle1'. Im rechten unteren Ausschnitt ist zu sehen, wo welche bedingte Formatierung (incl. der Formel) wirkt. 1: bedeutet dabei, dass es eine Bedingung gibt. Gäbe es eine weitere, würde dort 2: stehen. Wo die Formel eingetragen wird, weißt du?
Gerade gesehen, dass du einen ScrShot gepostet hast; lade stattdessen bitte deine Tabelle hoch.
Gruß Günter Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen. angebl. von Georg Christoph Lichtenberg (1742-1799)
Hallo die Tabelle funktioniert so auch bei mir, man muss nur darauf achten zu welchen Zeitpunkt die Zelle in Spalte A eingefärbt wird. Zum Schluss sind ja alle Zeilen kopiert und somit auch schon vorhanden und alle Zellen in Spalte A werden eingefärbt, nur wenn die Zellen bereits nach der Eingabe in Spalte D eingefärbt wird, dann war der Kontrollwert bereits vorher vorhanden.
Ich hab den Bereich übrigens noch mit $ fixiert, die waren bei Dir noch nich tdrin.
![[-]](https://www.clever-excel-forum.de/images/collapse.png)