Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1032to1036
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Sortieren ein anderes Tab

Sortieren ein anderes Tab
14.12.2008 12:56:00
KLausi
Hallo Excelfreunde,
Möchte gern wenn ich in Tab1 reingehe, dass sich Tab 2 sortiert.
Oder wenn ich Tab2 verlasse, dass sich das Tab2 aktualisiert.
Gruß Klausi

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sortieren ein anderes Tab
14.12.2008 13:35:00
Tino
Hallo,
kenne Deinen aufbau nicht und weis auch nicht wie Du Sortieren möchtest, hier dennoch ein Beispiel.
Anpassung ist wahrscheinlich erforderlich!
kommt als Code in Deine Tabelle2
Option Explicit 
Private Sub Worksheet_Activate() 
'Tabelle2.Range("A2") = Sortierbereich (Spalte) 
'1 = Aufsteigend, 2 = Absteigend 
 Call Sortieren(Tabelle2.Range("A2"), 1) 
End Sub 
 
Private Sub Worksheet_Deactivate() 
'Tabelle2.Range("A2") = Sortierbereich (Spalte) 
'1 = Aufsteigend, 2 = Absteigend 
 Call Sortieren(Tabelle2.Range("A2"), 2) 
End Sub 
 
Sub Sortieren(Bezug As Range, Reihenfolge As Integer) 
 
With Tabelle2 
 .Range("A2", .Cells.SpecialCells(xlCellTypeLastCell)).Sort Bezug, Reihenfolge 
End With 
 
End Sub 
 


Gruß Tino

Anzeige
AW: Sortieren ein anderes Tab
14.12.2008 13:47:00
KLausi
Hallo Tino
schön das Du Dich so schnell gemeldet hast.
die Sortierung sieht so aus bei mir

Private Sub Worksheet_Activate()
Schülerdaten_Sortieren
End Sub


Schülerdaten_Sortieren
Application.Goto Reference:="Database"
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Key2:=Range("C2") _
, Order2:=xlAscending, Key3:=Range("D2"), Order3:=xlAscending, Header:= _
xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal
End Sub



Private Sub Worksheet_Deactivate() ?
nun weiss ich nicht weiter?
Vielleicht könntest Du noch mal schauen.
Gruß Klausi

Anzeige
AW: Sortieren ein anderes Tab
14.12.2008 13:58:00
Tino
Hallo,
teste mal diese Version.
kommt als Code in Deine Tabelle2
Option Explicit 
Private Sub Worksheet_Activate() 
 Call Sortieren(Sheets("Tabelle2")) 
End Sub 
 
Private Sub Worksheet_Deactivate() 
 Call Sortieren(Sheets("Tabelle2")) 
End Sub 
  
Sub Sortieren(meTab As Worksheet) 
  
With meTab 
     .Range("Database").Sort Key1:=.Range("B2"), Order1:=xlAscending, Key2:=.Range("C2") _
    , Order2:=xlAscending, Key3:=.Range("D2"), Order3:=xlAscending, Header:= _
    xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
    xlSortNormal 
End With 
  
End Sub 
 


Anzeige
Klappt, Danke!
14.12.2008 14:18:01
KLausi
Hallo Tino,
klappt hervorraged, besser geht es nicht.
Vielen Dank für Deine schnelle Hilfe.
schönen Sonntagsgruß Klausi

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige