VBA: Namen vergeben
07.05.2019 13:23:56
Martin
ich habe einen kleinen Code geschrieben, der in meiner Tabelle 3 (die auch "Hilfstabelle" heißt), verschiedene Namen definiert.
Wenn ich den Code in Tabelle 3 starte, dann funktioniert er auch entsprechend. Was muss ich anpassen, wenn ich ihn in der Tabelle 1 starten will? derzeit (Bekomme den Laufzeitfehler 1004).
Auch die alphabetische Sortierung geht nur von der Tabelle 3.
Vielen Dank im Voraus,
Martin
Option Explicit
Sub Namen_DropDown()
Dim Name_Cluster, Name_Cluster_Substance As String
Dim Bereich As String
Dim Anzahl_Cluster, Anzahl_Cluster_Substance As Integer
Dim Spalte_Cluster, Spalte_Cluster_Substance As Integer
Dim Werte_Cluster, Werte_Cluster_Substance As Integer
Dim i, j As Integer
Anzahl_Cluster = Tabelle3.Cells(8, 2)
For i = 1 To Anzahl_Cluster
Spalte_Cluster = 1 + i
Name_Cluster = Tabelle3.Cells(20, Spalte_Cluster)
Werte_Cluster = Tabelle3.Cells(21, Spalte_Cluster) + 22 - 1
Sheets("Hilfstabelle").Range(Cells(22, Spalte_Cluster), Cells(Werte_Cluster, Spalte_Cluster) _
_
).Name = Name_Cluster
' SORTIEREN IN Alphabetischer Ordnung
Sheets("Hilfstabelle").Range(Cells(49, Spalte_Cluster), Cells(99, Spalte_Cluster)).Sort _
Key1:=Sheets("Hilfstabelle").Cells(49, Spalte_Cluster), Order1:=xlAscending, _
Header:=xlYes, MatchCase:=True
Next i
End Sub