Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Optionsfelder und Kombfeld durch Makro aktivieren

Optionsfelder und Kombfeld durch Makro aktivieren
27.06.2006 09:26:17
Thomas
Hallo Excelaner,
habe wieder einmal ne knifflige Sache.
Kann man mittels eines VBA - Codes auch Optionsfelder und Kombinationsfelder aktivieren? Für eine Lösung des beigefügten Beispiels wäre ich sehr dankbar.
https://www.herber.de/bbs/user/34662.xls
Mit freundlichen Grüßen,
Thomas B.
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Optionsfelder und Kombfeld durch Makro aktivie
28.06.2006 16:57:54
fcs
Hallo Thomas,
folgendes Makro in das Modul der Datei kopieren und der Schaltfläche zuweisen.

Sub Schaltfläche4_BeiKlick()
Dim Zelle As Range
Set Zelle = Selection
If Zelle.Column = 1 And Zelle.Row >= 22 And Zelle.Cells.Count = 1 Then
'Optionsfelder gemäß ausgewälter Zeile einstellen
Wert = Range("G6").Value 'Aktueller Wert der Optionsfelder
Select Case Zelle.Offset(0, 1).Value
Case "Hose"
Wert = 1
Case "Jacke"
Wert = 2
Case "Hemd"
Wert = 3
Case Else
'Do nothing
End Select
Range("G6").Value = Wert
'Kombinationsbox gemäß ausgewählter Zeile einstellen
If Not IsEmpty(Zelle.Offset(0, 2)) Then
Range("C12").Value = Zelle.Offset(0, 2).Value
End If
End If
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige