ist es möglich bei einer DropDown Liste (erstellt über Daten - Datenüberprüfung ) per VBA die Position der Auswahl auszuwerten und nicht den String.
Also, ich brauche bei Auswahl des ersten Eintrags eine 1, beim 2. eine 2 usw.
Gruß Jörg
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Validation.Type = 3 And Target "" Then MsgBox Application.Match(Target, Range(Mid(Target.Validation.Formula1, 2)), 0)
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "C1" Then
Target.Offset(0, 1) = Application.Match(Target, Range("A:A"), 0)
End If
End Sub
Die Daten für die Listenauswahl stehen in Spalte A, beginnend bei A1. Die Zelle mit der Datenüberprüfung (Liste) ist C1.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Validation.Type = 3 And Target "" Then MsgBox Application.Match(Target, Range(Mid(Target.Validation.Formula1, 2)), 0)
End Sub