Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
716to720
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
716to720
716to720
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

verschiedene Bereiche in Tabellenblatt sortieren

verschiedene Bereiche in Tabellenblatt sortieren
12.01.2006 09:52:41
Matthias
Hi,
ich bin's mal wieder.
Folgendes kleines Problem.
Ich möchte, dass versch. Bereiche in einem Tabellenblatt sortiert werden.
Das Tabellenblatt wähle ich über eine Combobox aus.
Ich hab's mittels Makroaufzeichnung versucht, aber es funzt nicht.
So sieht mein Versuch aus:
For i = 1 To Sheets.Count
If Sheets(i).Name = ComboBox1.Value Then
x = Sheets(i).Name
Exit For
End If
Next
With Sheets(x)
Sheets(i).Select
RRange("AM6:AN15").Select
Selection.Sort Key1:=Range("AM6"), Order1:=xlDescending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("AM27:AN36").Select
Selection.Sort Key1:=Range("AM27"), Order1:=xlDescending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("AM48:AN57").Select
Selection.Sort Key1:=Range("AM48"), Order1:=xlDescending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("AM76:AN85").Select
Selection.Sort Key1:=Range("AM76"), Order1:=xlDescending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("BJ7:BV10").Select
Selection.Sort Key1:=Range("BV7"), Order1:=xlDescending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
Danke für euere Hilfe.
Matthias

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: verschiedene Bereiche in Tabellenblatt sortier
12.01.2006 09:58:27
Josef
Hallo Matthias!
Ungetestet!
Sub sortieren()
Dim objSh As Worksheet

Set objSh = Sheets(ComboBox1.Text)


With objSh
  
  .Range("AM6:AN15").Sort Key1:=.Range("AM6"), Order1:=xlDescending, Header:=xlNo
  
  .Range("AM27:AN36").Sort Key1:=.Range("AM27"), Order1:=xlDescending, Header:=xlNo
  
  .Range("AM48:AN57").Sort Key1:=.Range("AM48"), Order1:=xlDescending, Header:=xlNo
  
  .Range("AM76:AN85").Sort Key1:=.Range("AM76"), Order1:=xlDescending, Header:=xlNo
  
  .Range("BJ7:BV10").Sort Key1:=.Range("BV7"), Order1:=xlDescending, Header:=xlNo
  
End With

Set objSh = Nothing

End Sub


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: verschiedene Bereiche in Tabellenblatt sortier
12.01.2006 10:03:21
Reinhard
Hi Matthias,
Sub tt()
For i = 1 To Sheets.Count
If Sheets(i).Name = ComboBox1.Value Then Exit For
Next
If i > Sheets.Count Then Exit Sub 'Nicht gefunden
With Sheets(i)
.Range("AM6:AN15").Sort Key1:=.Range("AM6"), Order1:=xlDescending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
.Range("AM27:AN36").Sort Key1:=.Range("AM27"), Order1:=xlDescending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
.Range("AM48:AN57").Sort Key1:=.Range("AM48"), Order1:=xlDescending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
.Range("AM76:AN85").Sort Key1:=.Range("AM76"), Order1:=xlDescending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
.Range("BJ7:BV10").Sort Key1:=.Range("BV7"), Order1:=xlDescending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
End With
End Sub

Gruß
Reinhard
ps:Das Forum lebt auch von Rückmeldungen.
Anzeige
AW: verschiedene Bereiche in Tabellenblatt sortier
12.01.2006 11:03:18
Matthias
Danke euch beiden für die rasche Hilfe.
Mein Problem ist somit gelöst.
Schönen Tag noch.
Matthias

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige