SelectionChange(ByVal Target As Excel.Range)
13.06.2019 17:26:57
Guenter
ich komme schon wieder mal nicht weiter.
Wenn ich eines deaktivieren funktioniert das andere ganz prima und umgekehrt genauso nur zusammen
leider nicht.
Wie könnte man das richtig machen?
Vielen Dank
Guenter
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'UserForm7.ComboBox1 = Target(1)
'UserForm7.ComboBox7 = Target.Offset(1, 0)
'UserForm7.ComboBox8 = Target.Offset(2, 0)
'UserForm7.ComboBox9 = Target.Offset(3, 0)
End Sub
Private Sub CommandButton18_Click()
ActiveCell.FormulaR1C1 = ComboBox2.Value & ComboBox1.Value
ActiveCell.Offset(1, 0).Activate
ActiveCell.FormulaR1C1 = ComboBox7.Value
ActiveCell.Offset(1, 0).Activate
End Sub
Anzeige