Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
912to916
912to916
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Skript starten bei Aenderung der Zelle A1

Forumthread: 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.

Anzeige

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



Anzeige
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.
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige