23.11.2022, 18:28
Hallo,
suche angestrengt nach einer Anleitung um folgendes zu erreichen.
Dropdown Zelle mit einigen Einträgen aber auch Leerstellen.
Die Leerstellen sollen später mit neuen Werten aufgefüllt werden.Darum ist auch die Verknüpfung auf ein anderes Blatt eingebaut.
Wie man in Bild-5.jpg sieht springt das Auswahlfeld immer auf die letzte Auswahl.
Bild-6.jpg zeigt die Formel für das DropDown.
Chef möchte aber jetzt, dass jedesmal beim Aufruf des DropDown Feldes die Auswahl immer auf dem obersten Wert, also hier C4, erscheint.
Habe folgendes gefunden, aber bekomme es nicht eingebunden resp. es funzt. nicht.
---
---
Wer kann mir Helfen ?
Danke
suche angestrengt nach einer Anleitung um folgendes zu erreichen.
Dropdown Zelle mit einigen Einträgen aber auch Leerstellen.
Die Leerstellen sollen später mit neuen Werten aufgefüllt werden.Darum ist auch die Verknüpfung auf ein anderes Blatt eingebaut.
Wie man in Bild-5.jpg sieht springt das Auswahlfeld immer auf die letzte Auswahl.
Bild-6.jpg zeigt die Formel für das DropDown.
Chef möchte aber jetzt, dass jedesmal beim Aufruf des DropDown Feldes die Auswahl immer auf dem obersten Wert, also hier C4, erscheint.
Habe folgendes gefunden, aber bekomme es nicht eingebunden resp. es funzt. nicht.
---
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice 20160725
Dim xFormula As String
On Error GoTo Out:
xFormula = Target.Cells(1).Validation.Formula1
If Left(xFormula, 1) = "=" Then
Target.Cells(1) = Range(Mid(xFormula, 1)).Cells(1).Value
End If
Out:
End Sub
Wer kann mir Helfen ?
Danke