Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
912to916
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
912to916
912to916
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA Skript starten bei Aenderung der Zelle A1

VBA Skript starten bei Aenderung der Zelle A1
05.10.2007 14:27:49
Daniel
Liebe XLer
Mir wurde von Ingo das folgende Skript gegeben:

Sub ausblenden()
Dim r As Range
For Each r In ActiveSheet.Range("23:223").Rows
If r.Cells(1) = 0 Then r.EntireRow.Hidden = True
If r.Cells(1) = 1 Then r.EntireRow.Hidden = False
Next r
End Sub


Wie kann man dies nun entsprechend anpassen, dass sich der Skript automatisch ausfuerht wenn die Zelle A1 manuell geaendert wird.
Vielen Dank im Voraus fuer eure Hilfe.
Daniel.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Skript starten bei Aenderung der Zelle A1
05.10.2007 14:30:00
Hajo_Zi
Hallo Daniel,
in VBA unter der Tabelle.

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



AW: VBA Skript starten bei Aenderung der Zelle A1
05.10.2007 15:46:00
Daniel
Hallo Hajo
Vielen Dank fuer deine Hilfe! Funktioniert jetzt perfekt.
Daniel.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige