im folgenden Code wird mir leider nicht die Zellenfarbe von Zellen in Tabellenblatt2 ins Tabellenblatt1 übernommen.
Bedingte Formatierung kann wegen der weiteren Verarbeitung von den Daten in Tabelle1 nicht benutzt werden.
Habt ihr da eine Lösung? Wäre super!
Private Sub Worksheet_Activate() Dim vColumn, vRow vColumn = Application.Match(Tabelle2.Range("A1"), Rows(1), 0) vRow = Application.Match(Tabelle2.Range("A2"), Columns(1), 0) If IsNumeric(vColumn) And IsNumeric(vRow) Then Cells(vRow, vColumn) = Tabelle2.Range("A1").Offset(2).Value Cells(vRow + 1, vColumn) = Tabelle2.Range("A1").Offset(3).Value Cells(vRow + 2, vColumn) = Tabelle2.Range("A1").Offset(4).Value Cells(vRow + 3, vColumn) = Tabelle2.Range("A1").Offset(5).Value Else MsgBox IIf(IsError(vColumn), "Ausbilder", "Datum") & " wurde nicht gefunden!" End If End SubVielen Dank und Grüße
Hans-Jörg