Guten Tag =),
ich sitze hier gerade vor einem kleinen Problem.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$H$3" Then
Kombinationsfeld_BeiÄnderung
End If
End Sub
Diese Funktion wird nur ausgeführt, sobald ich direkt einmal reinklicke in das Feld.
Dieses Feld bekommt aber seine Werteänderung durch eine vom Dropdown ausgeführte Zellverknüpfung. Wie kann ich es lösen, dass wenn ich das Dropdownmenü ändere und einen anderen Wert auswähle, dass VBA dies erkennt und direkt mein Kombinationsfeld_BeiÄnderung anwendet? Kurz zum Makro. Dies Schreibt den Wert der Tabelle in eine Zelle, womit ich dann später mein Tabellenblatt automatisch benenne. Einmal noch unten aufgeführt.
Sub Kombinationsfeld_BeiÄnderung()
With ActiveSheet.DropDowns(1)
If .ListIndex > 0 Then
Cells(1, 1) = .List(.ListIndex)
End If
End With
End Sub
Liebe
Grüße
Markus
|