Zellenfarbe mit übertragen
28.01.2023 10:49:37
Hans-Jörg
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 Sub
Vielen Dank und GrüßeHans-Jörg
Anzeige