Hallo,
Ich bin leider vollkommener Neuling im Umgang mit VBA und bräuchte mal eure Hilfe...
Also folgendes: In meiner einen Arbeitsmappe (Mappe 1) befindet sich eine Tabelle mit Textwerten. Die Spalte ist fest (Spalte C), jedoch kann sich die Anzahl der Zeilen verändern, wo die Liste steht.
Nun möchte ich in einer anderen Arbeitsmappe (Mappe 2) ein Dropdown-Feld anlegen, das auf diese Werte zugreift.
Ich habe versucht mit VBA selbst einen Code zu schreiben, jedoch wird bei der Dropdown-Auswahl immer nur #N/A angezeigt. Bitte helft mir
ich habe zuerst in Mappe 1 eine Formel eingefügt, die die Anzahl der Werte in der Liste ermittelt. Diese steht in Zelle D1.
Mein Code sieht so aus:
Sheets("Mappe 1").Activate
Dim i As Long
Dim j As Long
i = 1
While Not (Cells(i, 3)"größer als" Cells("D1").Value)
(das größer als - Zeichen kann irgendwie hier nicht dargestellt werden)
i = i + 1
Wend
j = i + Range("D1").Value
Range(Cells(1, 3), Cells(j, 3)).Select
ActiveWorkbook.Names.Add Name:="Liste", RefersToR1C1:= _
"='Mappe 1'!R[1]C[3]:R[" & j & "]C[3]"
Sheets("Mappe 2").Activate
Cells(1, 1).Select
With Selection.Validation
.Delete
.Add Type:=x1ValidateList, AlertStyle:=x1ValidAlertStop, Operator:= _
x1Between, Formula1:=Liste
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Der Fehler wird immer in dieser Zeile: .Add Type:=x1ValidateList, AlertStyle:=x1ValidAlertStop, Operator:= _
x1Between, Formula1:=Liste angezeigt.
Da wo die Schrift fett ist, wird immer der Fehler angezeigt.
Ich hoffe, ihr habt mein Problem verstanden und könnt mir weiterhelfen
Schon mal vielen Dank