Zellen färben wenn verlinkt

Moin!
Ich bin begeistert von der Kompetenz die hier vorliegt und hoffe daher, dass ihr mir helfen könnt.
Wir machen in unserem Verein die Kassenverwaltung über Excel, da viele Leute Geld ausgeben (also viele Vorgänge nicht viel Geld :D) und wir rein Ehrenamtlich sind ist es so gelöst, dass wir eine Exceltabelle haben, wo erstmal alles eingetragen wird. Die heißt Zahlungsdaten.
Z.B.:
20,83 Rewe Seminarwochenende 1
Diese Daten werden dann weiter in unsere Kalkulation verlinkt, allerdings nur von einer Person, in dem Fall eines Seminars auf das jeweilige Seminar:
Verpflegung: =Zahlungsdaten!A1
Das funktioniert problemlos und ist sehr gut händelbar mit vielen Akteuren.
Nun die entscheidende Frage: Ist es möglich, das Feld von 20,83 grün zu färben, sobald es irgendwo in einer Formel verwendet wurde? Momentan geschieht das per Hand, was natürlich fehleranfällig ist (wird vergessen einzufärben oder die Formel wird gelöscht). Also sozusagen eine Bedingung, dass woanders der Wert in einer Formel genutzt wird.
Ziel ist es sozusagen, dass nachdem 31.12. jedes Jahres alle Felder in der Zahlungsdatentabelle grün sind.
Ich hoffe ihr könnt mir weiterhelfen.
Viele Grüße
Hannes

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Hannes
Nachfolgendes Codebeispiel ist schon recht abenteuerlich und innerhalb einer umfangreichen Mappe sicherlich auch wenig performant. Zudem ist die Ausgabe einer Information bzw. eines Wahrheitswertes als Farbe ungünstig, weil schlecht filterbar und es fehlt z.B. die Info, ob nicht vielleicht versehentlich doppelt verlinkt wurde.


Sub DeinMakro()
Dim ws As Worksheet, r As Range
For Each ws In ThisWorkbook.Worksheets
For Each r In ws.UsedRange
If InStr(r.Formula, "!") Then Call MachFarbe(r)
Next r
Next ws
End Sub
Private Sub MachFarbe(r As Range)
On Error Resume Next
Range(Replace(r.Formula, "=", "")).Interior.Color = vbGreen
End Sub

Ich würde dir empfehlen über Alternativen nachzudenken. Es muss ja nicht gleich eine Buchhaltung sein, aber vielleicht eine Angleichung an ein auswertbares Tabellen-/Datenbankformat. Z.B. erhält jedes Seminar einen eindeutigen Namen oder Nummer und bei den Zahlungsdaten machst du eine neue Spalte, wo du diesen Namen/Nummer einträgst. Bei Bedarf noch eine weitere Spalte, wo du die Kostenart (Verpflegung, Material etc.) auswählen kannst.
cu
Chris

Private Sub Worksheet_Change(ByVal Target As Range) Const cBezugAufBlatt As String = "Zahlungsdaten" If Target.HasFormula Then If InStr(Target.Formula, cBezugAufBlatt) Then Worksheets(cBezugAufBlatt).Range(Split(Target.Formula, "!")(1)).Interior.Color = vbGreen End If End If End Sub

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellen färben wenn verlinkt

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread