Dropdownliste abhängig von Zeilenwert

Guten Tag,

ich muss im Rahmen meines Praktikums eine Excelliste mit einer Spalte("Tasks") erstellen. In jeder Zelle dieser Spalte soll eine Dropdownliste mit 2 Werten sein. Einmal "exempt"(Dieser Wert ist fix, der Name ist egal) und einem Wert in der Selben Zeile aber in einer anderen Spalte(Von dieser sollen die Werte bezogen werden).

In der Datenüberprüfung->Liste->Quelle würde "=INDIREKT("H"&ZEILE());$G$2" stehen. Das funktioniert zwar aber ich kann keinen anderen Wert mehr zuweisen.

Ich habe es auch mit VBA probiert anbei der Code:

Sub CreateCombinedDropdown()
Dim rng As Range
Set rng = Range("H2:H" & Cells(Rows.Count, "H").End(xlUp).Row)
Dim cell As Range
For Each cell In rng
Dim formula As String
formula = "=$E$4,Value1,Value2,Value3,exempt"
With cell.Validation
.Delete
.Add Type:=xlValidateList, Formula1:=formula
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Next cell
End Sub

Hier bekomme ich den Laufzeitfehler 1004.

Könnt ihr mir helfen?

Freundliche Grüße
Stefan

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Stefan


Option Explicit

'Beispiel
'nur vorhandene Anreden
'TestSpalte Vorname Nachname    Anrede
'[hier]     Max     Muster      Herr
Sub CreateCombinedDropdown()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim strFormula As String
    Dim strSpalte As String
    strSpalte = "A"
    'Für deinen Fall
    'strSpalte = "H"
    '-------Anpassen
    Set wb = ThisWorkbook
    Set ws = wb.Worksheets(1)
    '-------Anpassen
    Set rng = ws.Range(strSpalte & "2:" & strSpalte & Cells(Rows.Count, strSpalte).End(xlUp).Row)
    For Each cell In rng
        'strFormula = "=$E$4,Value1,Value2,Value3,exempt"
        'divers, vorhandener Wert aus Zeile in Spalte D, exempt
        strFormula = "divers, " & ws.Range(cell.Offset(0, 3).AddressLocal).Value & ", exempt"
        With cell.Validation
            .Delete
            .Add Type:=xlValidateList, Formula1:=strFormula
            .IgnoreBlank = True
            .InCellDropdown = True
            .InputTitle = ""
            .ErrorTitle = ""
            .InputMessage = ""
            .ErrorMessage = ""
            .ShowInput = True
            .ShowError = True
        End With
    Next cell
End Sub

hth
Ulf

Beliebteste Forumthreads (12 Monate)

Dropdownliste abhängig von Zeilenwert

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Dropdownliste abhängig von Zeilenwert

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread