Habe es inzwischen geschafft, das er ein anderes Tabellenblatt (Schülerdaten)sortiert, und in Karte1 Über ein Kombinationsfeld anzeigt, sobald ich auf Karte1 Klicke.
Aber es dauert ca 10 Sek. bis er dies tut, warum so langsam???
Mfg. Peter
Habe es inzwischen geschafft, das er ein anderes Tabellenblatt (Schülerdaten)sortiert, und in Karte1 Über ein Kombinationsfeld anzeigt, sobald ich auf Karte1 Klicke.
Aber es dauert ca 10 Sek. bis er dies tut, warum so langsam???
Mfg. Peter
habe versäumt die Anweisung für Macro und Karte1 zu zeigen.
Sheets("Schülerdaten").Activate
Sheets("Schülerdaten").Unprotect Password:="test"
Application.ScreenUpdating = False
Columns("B:AG").Select
Selection.Sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Sheets("KARTE1 ").Select
End Sub
Private Sub Worksheet_Activate()
ASORTIEREN
End Sub
mfg Peter