Ich bin leider gerade erst am Anfang meiner VBA Erfahrung. Ich hab diese Formel logisch weise über YouTube rausgesucht, was auch funktioniert jedoch möchte ich nun diese Sortierungsautomatisierung auf weiteren Tabellen anwenden welches mich jedoch vor ungeahnte Herausforderungen stellt. Aktuell habe ich die unten stehende Formel auf Sheet 6 (DEV) angewendet und möchte nun diese Automatisierung auf Sheet 5 (Sales) anwenden. Ich habe die schritte wiederholt die ich für die erste Tabelle vorgenommen hatte. Doch ich bekomme dann einen Fehler 1004 mit : If Not Intersect(Target, Range("DevVehicleData[No]")) Is Nothing Then mein erster Gedanke war das Private Sub Worksheet_Change(ByVal Target As Range) ja irgendwie adressiert werden muss da es ja offensichtlich nicht weis welche Tabelle er nehmen soll. Die frag ist einfach wie kann ich die Funktion auf weitere Tabellen anwenden was muss ich dafür wo ändern?
Private Sub Worksheet_Change(ByVal Target As Range)
'Prüfen, ob eine Zelle veränder wurde
If Target.Count > 1 Then Exit Sub
'Prüfen ob Bestand veränder wurde
If Not Intersect(Target, Range("DevVehicleData[No]")) Is Nothing Then
'Variable dimensionieren
Dim No As String
'Bestand merken
No = Target.Value
'Sortieren
Range("DevVehicleData").Sort Key1:=Range("DevVehicleData[No]"), Order1:=xlDescending, Header:=xlYes
'Bestand suchen
Range("A:A").Find(what:=No).Activate
End If
End Sub
DevVehicleData ist logischerweise die Tabelle im Sheet6 (DEV)Frage 2: Muss ich für jede Tabelle/sheet ein neues Modul machen ? denn ich frage mich dann auch wie soll die Formel wissen welches Modul es nutzen soll ?
Ihr seid meine letzte Hoffnung, ich bin für jede Hilfe dankbar !