Frage von maik2509, 69

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

Expertenantwort
von Ninombre, Community-Experte für Excel, 50

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


Keine passende Antwort gefunden?

Fragen Sie die Community

Weitere Fragen mit Antworten