Zusammenführung Worksheet_Change

Hallo,

ich würde mich sehr freuen, wenn mir jemand helfen könnte.

Ich habe in einem Tabellenblatt in einer Zelle eine Datenüberprüfung mittels Dropdown, in der niemals nichts stehen darf, d.h. die Zelle darf nicht leer sein.

Dazu benutze ich (im Forum gefunden, herzlichen Dank :))

Private Sub Worksheet_Change(ByVal Target As Range)
'Abfrage, ob Zelle C5 leer ist
If Target.Address = "$C$5" Then
If IsEmpty(Target) Then Application.Undo
End If
End sub

Des Weiteren habe ich ein Makro, das den Zelleninhalt von verschiedenen Zellen löschen soll, wenn eine andere Zelle leer ist (habe ich natürlich auch aus dem Forum, auch hier herzliches Dankeschön!)

Sub Zelle_loeschen()
Dim i As Long
Application.ScreenUpdating = False
For i = 14 To Cells(Rows.Count, 4).End(xlUp).Row
If Cells(i, 4) = "" Then
Cells(i, 2).Value = ""  'Zelle leeren
Cells(i, 3).Value = ""  'Zelle leeren
End If
Next i
Application.ScreenUpdating = True
End Sub

Wie schaffe ich es, beide Subs in ein funktionierendes Worksheet_Change-Sub zu packen (Gerne auch ohne For und Next i, das vermutlich nicht besonders resourcenschonend ist)? Ich bekomme das nicht hin und scheine bei meinen Versuchen einen Loop zu produzieren, bei dem Excel abstürzt...

Vielen, vielen Dank für die Möglichkeiten, die mir das Forum bietet! :)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) With Application 'Abfrage, ob Zelle C5 leer ist If Target.Address = "$C$5" Then If IsEmpty(Target) Then .EnableEvents = False .Undo .EnableEvents = True End If ElseIf Target.Column = 4 Then 'Abfrage, ob Zelle in D "" ist If Target = "" Then .EnableEvents = False Cells(Target.Row, 2).Resize(1, 2) = "" .EnableEvents = True End If End If End With End Sub

Private Sub Worksheet_Change(ByVal Target As Range) With Application 'Abfrage, ob Zelle C5 leer ist If Target.Address = "$C$5" Then If IsEmpty(Target) Then .EnableEvents = False .Undo .EnableEvents = True 'Abfrage, ob Zelle C5 ungleich ABC ElseIf Target > "ABC" Then .EnableEvents = False Range(Cells(14, 4), Cells(Rows.Count, 4).End(xlUp)).Offset(, -2).Resize(, 2) = "" .EnableEvents = True End If End If End With End Sub

Private Sub Worksheet_Change(ByVal Target As Range) With Application 'Abfrage, ob Zelle C5 leer ist If Target.Address = "$C$5" Then If IsEmpty(Target) Then .EnableEvents = False .Undo .EnableEvents = True 'Abfrage, ob Zelle C5 ungleich ABC ElseIf Target > "ABC" Then .EnableEvents = False Range("B22") = "" Range("C22") = "" Range("E22") = "" Range("AI22") = "" Range("AJ22") = "" Range("B24") = "" Range("C24") = "" Range("E24") = "" Range("AI24") = "" Range("AJ24") = "" .EnableEvents = True ElseIf Target > "DEF" Then .EnableEvents = False Range("B21") = "" Range("C21") = "" Range("E21") = "" Range("AI21") = "" Range("AJ21") = "" Range("B23") = "" Range("C23") = "" Range("E23") = "" Range("AI23") = "" Range("AJ23") = "" .EnableEvents = True End If End If End With End Sub

Beliebteste Forumthreads (12 Monate)

Zusammenführung Worksheet_Change

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread