Ich habe eine Materialliste die ich nach folgenden Bedingungen auf einem neuen Tabellenblatt alphabetisch sortieren möchte. Die Liste befindet sich in Tabellenblatt 1.
Die Materialien stehen in den Zellen A8 bis A500.
Die Lagerorte stehen in den Zellen B8 bis B500.
Die Materialien lassen sich über einen Texteintrag markieren.
Für den Texteintrag sind die Zellen C8 bis C500 bereits so programmiert, dass sich die _ jeweilige Zelle bei einem Doppelklick mit einem Text a ausfüllt.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Not Intersect(Target, Range("C8:C500")) Is Nothing Then 'Bereich für Hacken
Target = IIf(Target = "a", "", "a")
Cancel = True
End If
End Sub
Jetzt sollte es so sein, dass die ausgewählten Materialien bei einem Blattwechsel in Tabellenblatt 2 kopiert und alphabetisch sortiert werden.
Ich habe in einem anderen Beitrag gelesen, wo ein ähnliches Problem mit einer Autofilterung gelöst wurde. Diese möchte ich aber nur ungern nutzen, da ich diese für spätere Anwendungen nicht so leicht anpassen kann.
Danke im Voraus. Liebe Grüße Sandra