Ich kopiere mir den Zellinhalt mit:
Sub Startdaten()
'kopiert die Startdaten
If Range("F16") = "Start" Then
Worksheets("Tabelle1").Range("A16:C65").Copy _
Destination:=Worksheets("Tabelle2").Range("B16:d65")
ElseIf Range("F16") = "Ziel" Then
Worksheets("Tabelle1").Range("A16:C65").Copy _
Destination:=Worksheets("Tabelle3").Range("B16:D65")
End If
End Sub
Das ganze aktiviere ich hiermit:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Startdaten
End Sub
das klappt auch alles prima,mein Problem ist nun das die Farbe in Tabelle1 normal ist soll sie auch bleiben aber in den anderen Sheets(2 und 3) sollen sie eine andere Farbe haben.
Könnte mir da einer bitte weiter helfen?
Gruß Rene
Die Zellfarbe im Sheet "Tabelle1" ist normal