2x Private Sub Worksheet_Change
12.12.2018 12:24:20
Miracola
Hatte ein Makro, das super funktioniert hat. Nun habe ich einen zweiten Teil im Worksheet_Change hinzugefügt, aber der zweite Teil funktioniert nicht. kann mir
jemand sagen, was ich bei der Formel falsch gemacht habe?
'Das Makro oben wird ausgeführt, sobald in der Spalte 4(=D) etwas geändert wird
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then
Call Tabelle1.Zeilenhöhe_mindestens_36 'hier Dein Makroname
End If
'Wenn Zelle Gx leer, dann Zelle Hx leer lassen, sonst in Zelle Hx Formel reinschreiben
If Not Intersect(Target, Me.Range("$H3")) Is Nothing Then
If IsEmpty(Intersect(Target, Me.Range("$H3"))) Then
Application.EnableEvents = False
Me.Range("$H3").Formula = "=IF($G3="""","""",$G3-HEUTE())"
Application.EnableEvents = True
End If
End If
End Sub
Ich weiss auch nicht, ob ich die Formel richtig geschrieben habe, denn ich möchte, dass wenn z.b. in G3 etwas steht in H3 die Formel angezeigt wird und das auch bei G4, G5, etc.
Vielen Dank :)