VBA aktivieren bei Änderung in mehreren Zellen

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address "$M$12" Then Exit Sub Dim r As Range For Each r In ActiveSheet.Range("20:58").Rows If r.Cells(16) = 0 Then r.EntireRow.Hidden = True If r.Cells(16) = 1 Then r.EntireRow.Hidden = False Next r End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

...aber trotzdem schon recht ordentlich, Daniel... ;-)
Die Dim-Anweisung steht immer als Erste nach der Kopfzeile! Dann folgt hier die Zeile, _ die die Grundvoraussetzungen überprüft und auf Folgendes zu ändern ist...


With ActiveSheet
If Not Intersect(Target, .Cells(7, 13), .Range("M12:M16")) Then Exit Sub
For Each r In .Range("20:58").Rows
Next r
End With

Die With-Konstruktion spart hier die mehrfache Wiederholung von ActiveSheet. Außerdem lässt sich das Ganze auch schneller ändern, falls du die Ereignisprozedur (eine VBA-Subroutine, so wäre die richtige Bezeichnung!) mal in mehreren Blättern des ActiveWorkbook anwenden willst und sie deshalb in das Dokument-(Klassen-)modul der Arbeitsmappe verlegst (With sh!).
Ganz komplett wäre das Ganze, wenn du zuletzt noch die Objektvariable Target wieder freigibst (mit Set Target = Nothing). Die Objektvariable r "repräsentiert" nach Zyklusdurchlauf ohnehin Nichts. Da du das auch bei Nichterfüllung der Anfangsbedingung tun solltest, wäre statt Exit Sub entweder ein Sprung zu diesem letzten Befehl (mit Marke, z.B. GoTo ex und ex: am Anfang dieser letzten Zeile) oder die entsprechende Ausweitung der If...Then- zu einer If...Then...Else...-Konstruktion angebracht.
Übrigens, falls du mal eine umfangreichere Ereignisprozedur schreiben solltest, wäre es zweckmäßig, diese quasi als Verteiler zu konstruieren. D.h., nur Gültigkeitsabfragen reinnehmen und davon abhängig zu ausführenden "normalen" Subroutinen verzweigen, also diese dann aufrufen, Call prozedurname. (Ich schreibe nämlich auch Funktionen, die automatische Ereignisprozedur-Ergänzungen vornehmen... ;-))
Gruß + Guten Rutsch!
Luc :-?

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim lngZ As Long If Intersect(Target, Range("M7,M12:M16")) Is Nothing Then Exit Sub For lngZ = 20 To 58 ' in Zeilen 20:58 Select Case Cells(lngZ, 16) ' prüfe Spalte P Case 0: Rows(lngZ).Hidden = True Case 1: Rows(lngZ).Hidden = False Case Else: ' nichts tun End Select Next lngZ End Sub

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim lngZ As Long If Intersect(Target, Range("M7,M12:M16")) Is Nothing Then Exit Sub For lngZ = 20 To 58 ' in Zeilen 20:58 Select Case Cells(lngZ, 16) ' prüfe Spalte P Case "": ' nichts tun Case 0: Rows(lngZ).Hidden = True Case 1: Rows(lngZ).Hidden = False Case Else: ' nichts tun End Select Next lngZ End Sub

Beliebteste Forumthreads (12 Monate)

VBA aktivieren bei Änderung in mehreren Zellen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

320 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA aktivieren bei Änderung in mehreren Zellen

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

320 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