Als Antwort auf diesen Beitrag
Hi,
lass mal laufen. Tabelle1 ist in meinem Beispiel der Codename für das Blatt, in dem sich die Dropdowns befinden. Das musst Du bei Bedarf anpassen.
Die Ausgabe erfolgt in einem neuen Blatt "Auflistung".
Option Explicit
Sub til()
Dim C As Range, x As Long, Ws As Worksheet
On Error Resume Next
Set Ws = Worksheets("Auflistung")
If Ws Is Nothing Then
Set Ws = Worksheets.Add
Ws.Name = "Auflistung"
End If
x = 2
Ws.Cells.ClearContents
Ws.Cells(1, 1) = "Zelle"
Ws.Cells(1, 2) = "Bezug"
For Each C In Tabelle1.Cells.SpecialCells(xlCellTypeAllValidation)
If C.Validation.InCellDropdown Then
Ws.Cells(x, 1) = C.Address(0, 0, , True)
Ws.Cells(x, 2) = "'" & C.Validation.Formula1
x = x + 1
End If
Next C
Ws.Columns("A:B").AutoFit
End Sub
VG, Boris