Hajo sei Dank, Makro für ZellAktualisierung
Holger
für alle, es es vielleicht interessiert.
Hajo hat ein Makro zur Verfügung gestellt, das ich angepasst habe.
Im aktuellen Fall wird der Bereich D1:D100 untersucht. Ich werde
D1.D100 noch automatisch durch eine Variable füllen, indem
ich die letzte gefüllte Zelle suche und so das letzte D dynamisch füllen kann.
In der Zelle links neben der D Zelle wird nun in Abhängkeit vom Wert etwas
reingeschrieben. Das ganze funktioniert auch, wenn mehrere Zellen auf einma
durch Copy & Paste gefüllt werden.
Ich finde das super praktisch und für jede Datei mit USereingaben zu gebrauchen.
Nochmal Danke an HAJO:
Sub MAKRO
Dim RaBereich As Range, RaZelle As Range
Set RaBereich = Range("D1:D100")
Set RaBereich = Intersect(RaBereich, Range(Target.Address))
If Not RaBereich Is Nothing Then
For Each RaZelle In RaBereich
With RaZelle
Select Case UCase(.Value)
Case "1"
Target.Offset(0, -1) = "JUHU"
Target.Offset(0, -1).Interior.ColorIndex = 1
Target.Offset(0, -1).Font.ColorIndex = 2
Case Else
Target.Offset(0, -1) = "NAJA"
Target.Offset(0, -1).Interior.ColorIndex = 1
Target.Offset(0, -1).Font.ColorIndex = 2
End Select
End With
Next RaZelle
End If
Set RaBereich = Nothing
End Sub