Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1528to1532
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
Inhaltsverzeichnis

Worksheet_Change

Worksheet_Change
21.12.2016 22:38:11
Benedikt
Guten Abend zusammen
Ich komme mit Worksheet_Change nicht weiter. Nachfolgender Code blendet bei leerer Zelle C17 den CommandButton2 aus und bei Eingabe eines Wert wieder ein. Läuft einwandfrei. Aber wie muss ich den Code erweitern das ich einem CommandButton3 die gleiche Aufgabe für Zelle C22 zuweisen kann?
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C17")) Is Nothing Then Exit Sub
If Range("C17").Value >= " " Then
CommandButton2.Visible = True
Else
CommandButton2.Visible = False
End If
End Sub
Vielen Dank für eure Hilfe und einen schönen Abend

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

Betreff
Datum
Anwender
Anzeige
AW: Worksheet_Change
21.12.2016 22:54:32
Gerd
Guten Abend Benedikt!
Empty bedeutet nicht Formel-Leer ("" oder " "). Obwohl du dazu nichts geschrieben hast,
weise ich darauf hin.
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 3 Then
If Target.Row = 17 Then
CommandButton2.Visible = Not IsEmpty(Target)
ElseIf Target.Row = 22 Then
CommandButton3.Visible = Not IsEmpty(Target)
End If
End If
Application.EnableEvents = True
End Sub
Gruß Gerd
AW: Worksheet_Change
22.12.2016 07:03:41
Benedikt
Ein ganz grosses Dankeschön Gerd.
Dein Hinweis auf Empty ist sehr Hilfreich und hat die Augen geöffnet
Ich wünsche Dir schöne Weihnachtszeit
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige