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

Case Makro

Forumthread: Case Makro

Case Makro
20.08.2003 12:52:56
Harald
Hallo,
ich habe folgendes Makro, welches allerdings nur funzt, wenn ich irgendeine
Zelle mit ENTER oder EINGABE verlasse. Was muss ich wie ändern, damit es
ausgelöst wird, wenn durch Klick in ein Optionsfeld der Wert in M26 geändert wird?
Vielen Dank im Voraus.

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Range("M26").Value
Case 1:        Rows("1:10").RowHeight = 0
Case 2:        Rows("1:10").RowHeight = 20
End Select
End Sub

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Case Makro
20.08.2003 12:57:00
ChrisL
Hi Harald
Sub Makro()
Select Case Range("M26").Value

Case 1: Rows("1:10").RowHeight = 0
Case 2: Rows("1:10").RowHeight = 20
End Select
End Sub

Setz das Makro in ein normales Standardmodul und verbinde das Optionsfeld mit dem Makro.

Private Sub OptionButton1_Click()
Call Makro
End Sub

Gruss
Chris

Anzeige
;

Beliebteste Forumthreads (12 Monate)

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