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