Hallöchen,
erst einmal danke für dein Bemühen. Leider haut es mir nicht so ganz hin, bekomm irgendwie einen Debuggerfehler in der Zeile:
ActiveSheet.Columns(3).Sort key1:=ActiveSheet.Cells(1, 3), order1:=xlAscending
Evtl. liegt es an meinem Anfang:
Option Explicit
Sub gütligkeit()
Dim gültigliste As String
Dim i As Long
Dim letzte As Long
With Sheets("Analysedaten")
gültigliste = ","
'soll ausschließlich nur SPALTE A betrachten
letzte = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
ActiveSheet.Columns(1).Sort key1:=ActiveSheet.Cells(1, 1), order1:=xlAscending
For i = 2 To letzte
If ActiveSheet.Cells(i, 2) <> "" Then
If InStr(1, gültigliste, "," & ActiveSheet.Cells(i, 1) & ",", vbTextCompare) = 0 Then gültigliste = gültigliste & ActiveSheet.Cells(i, 1) & ","
End If
Next i
Wie du siehst arbeite ich mit zwei verschiedenen Tabellen. Und wenn ich den Code richtig verstehe würde mir der Code die Tabelle 1 zunächst sortieren sehe ich richtig oder? Ich habe die ursprüngliche Spalte "3" nun auf "1" geändert, was ja dnan Spalte A entsprechen müsste.
Weiter unten, das Dropdownfeld wird dann in einer anderen Tabelle ausgeführt. Siehe:
End With
If gültigliste <> "," Then
gültigliste = Mid(gültigliste, 2, Len(gültigliste) - 2)
With Sheets("Tabelle2").Range("G5").Validation
.Delete
.Add Type:=xlValidateList, Formula1:=gültigliste
End With
End If
End Sub
Mache ich etwas grundlegendes falsch oder übersehe ich dort irgendetwas?
Würde mich freuen noch einmal von dir zu hören, wäre echt mega nett
|