18.01.2019, 20:25
(Dieser Beitrag wurde zuletzt bearbeitet: 18.01.2019, 20:25 von Patrick1981.
Bearbeitungsgrund: mir ist noch etwas eingefallen was helfen könnte.
)
Guten Abend,
Ich habe eine Tabelle diese funktioniert auch super.
Nun möchte ich gerne ein Formularsteuerelement (dropdown) gegen ein ActiveX-Steuerelement (dropdown) austauschen.
Ich habe das Dropdown eingefügt und und den ListFillRange angegeben, auch habe ich LinkedCell erfolgreich eingefügt.
Nun aber zu meinem Problem.
Das "alte" dropdown gibt bei einer Auswahl einen wert von 1 bis 131 aus.
Das n"neue" dropdown gibt in Zelle D4 immer den wert der in dem Dropdown angezeigt wird wieder.
Ich benötige aber die Zahlen wie mit dem "alten" Menü in D4
Ich gehe davon aus das ich den VBA Code anpassen muss
Code vom alten Dropdown:
Ich habe eine Tabelle diese funktioniert auch super.
Nun möchte ich gerne ein Formularsteuerelement (dropdown) gegen ein ActiveX-Steuerelement (dropdown) austauschen.
Ich habe das Dropdown eingefügt und und den ListFillRange angegeben, auch habe ich LinkedCell erfolgreich eingefügt.
Nun aber zu meinem Problem.
Das "alte" dropdown gibt bei einer Auswahl einen wert von 1 bis 131 aus.
Das n"neue" dropdown gibt in Zelle D4 immer den wert der in dem Dropdown angezeigt wird wieder.
Ich benötige aber die Zahlen wie mit dem "alten" Menü in D4
Ich gehe davon aus das ich den VBA Code anpassen muss
Code vom alten Dropdown:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E4:F4")) Is Nothing Then
On Error GoTo Fehler
Application.EnableEvents = False
Cells(2 + Cells(4, 4), 2) = Cells(2 + Cells(4, 4), 2) - Cells(4, 5) + Cells(4, 6)
Range("E4:F4").ClearContents
End If
Fehler:
Application.EnableEvents = True
End Sub