excel vba. Wie kann ich in Tabelle1 eine Zelle mit Farbe Markieren, die dann Automatisch auf alle anderen Tabellenblätter übertragen wird. ?

... komplette Frage anzeigen

1 Antwort

Durch welche Aktion soll das Kopieren ausgelöst werden? Soll nach jeder Änderung einer Zelle die Prüfung laufen oder nur wenn Du einen Button o.ä. drückst?

Was heißt "alle anderen Tabellenblätter": an die gleiche Stelle wie die erste Zelle?

Alternativ zum Färben könntest Du per Tastaturkombination ein Makro starten, dass die aktuell markierte Zelle kopiert - ist ggf. etwas einfacher als zu färben.

Sub kopieren()
Dim wert, adr As String
wert = ActiveCell.Value
adr = ActiveCell.Address
For i = 1 To Sheets.Count
Sheets(i).Range(adr).Value = wert
Next
End Sub


Antwort bewerten Vielen Dank für Deine Bewertung

Was möchtest Du wissen?