Hallo zusammen,
ich habe folgendes Anliegen:
Ich habe von meinem Verein eine Adressliste mit Namen und Funktion erstellt und nach Namen sortiert. Dann habe ich die Zeilen nach Funktion farblich markiert und das alles auf ein zweites Blatt kopiert und nach Funktion sortiert.
Wenn ich nun etwas im ersten Tabellenblatt ändere oder hinzufüge muss ich das zweite wegen der anderen Sortierung neu erstellen lassen oder mühsam auch den Eintrag ändern / erstellen. Gibt es eine Möglichkeit anzugeben dass das zweite Datenblatt die selben Daten enthält wie das erste und nur anders formatiert werden soll? Sodass Änderungen in 1 direkt in zwei übernommen werden?
Und wenn ich schon mal frage: gibt es die möglichkeit den einzelnen Funktionen automatisch Farben zuordnen zu lassen?
Vielen Dank für Eure Hilfe, Gruß
-Florian
Hallo Florian!
Dieses Makro sortiert automatisch neue Einträge in bestehende Tabellen ein:
Private Sub Worksheet\_Change(ByVal Target As Range)
If ActiveCell.Column1 Then Exit Sub
Application.EnableEvents = False
If Target.Value "" Then
[a1].CurrentRegion.Select
Slection.Sort Key1:=Range("A1"),
Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase = False, Orientation:=xlTopBottom
End If
Application.EnableEvents = True
Target.Select
End Sub
Es lässt sich ganz einfach in die Tabelle einfügen.
Die Bedingte Formatierung hilft dir bei der farblichen Sortierung.
Wenn du weitere Fragen hast, bitte melden!
Gruß Alex