Zwei VBA Codes kombinieren
05.01.2022 09:21:23
Milos
Ich möchte mehrere Excel-Register mit zwei verschiedenen VBA-Scripts ergänzen. Das erste Script schreibt mir das aktuelle Datum in Zellen der Spalte B wenn ich in Zellen der Spalte X einen Eintrag mit Enter bestätige. Das zweite Script soll die Registerfarbe anpassen wenn in einer bestimmten Zelle (AI4) eine "0" oder eine "1" steht. Beide Scripts funktionieren alleine für sich ohne Probleme. Gemeinsam lassen sie sich aber nicht ausführen weil "Worksheet_Change" doppelt vorkommt und deshalb mehrdeutig ist. Die Lösung wäre, die beiden Anweisungen irgendwie in einer einzigen zu kombinieren. Leider scheitere ich dabei an meinen bescheidenen VBA-Kenntnissen. Kann mir jemand bitte etwas Support geben, damit ich dieses Problem lösen kann!? Vielen Dank im Voraus!
Gruss, Milo
Private Sub Worksheet_Change(ByVal r As Range)
s = r.Column
rr = r.Row
If s = 24 Then
Cells(rr, s - 22).Value = Now
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$AI$4" Then
If Target = "0" Then
ActiveSheet.Tab.Color = RGB(248, 203, 173)
Else
ActiveSheet.Tab.Color = RGB(124, 205, 124)
End If
End If
End Sub