Zirkelbezug in VBA
15.01.2020 11:31:18
Jonas
ich habe ein Formular geschrieben, wo auf der einen Seite Mitarbeiter ihre Arbeitsstunden erfassen können und auf der anderen Seite die Mitarbeiter angefallene Spesen eintragen können.
Oben befinden sich Zellen für Projektbezeichnungen, Abrechnungsmonat, etc. die immer auf beiden Seiten gleich seien sollen.
Der VBA-Befehl sieht wie folgt aus:
Spesenseite:
If Target.Address = "$M$7" Then
On Error GoTo ErrorHandler
Sheets("Stundenabrechnung").Range("M7") = Sheets("Spesenabrechnung").Range("M7").Value
End If
Stundenseite:
If Target.Address = "$M$7" Then
On Error GoTo ErrorHandler
Sheets("Spesenabrechnung").Range("M7") = Sheets("Stundenabrechnung").Range("M7").Value
End If
ErrorHandler
ErrorHandler:
End Sub
Dadurch habe ich das Problem, dass ich einen Zirkelbezug habe und die Datei dadurch sehr instabil ist und öfters abstürzt.
Gibt es einen anderen Weg, dass auf den beiden Seite immer die gleichen Informationen stehen ohne so einen Zirkelbezug entstehen zu lassen?
Freue mich auf eure Rückmeldung.
Liebe Grüße
Jonas