kleinere Hälfte gelöst
09.10.2006 11:33:34
Reinhard
Hi Thorsten,
wenn die Msgbox klappen würde wärs ja gelöst. Leider nichts gefunden wie man die Sortierschlüssel usw. ausliest.
Da dieses Grundproblem ja wohl für alle Dialogboxen gilt, würde mich schon sehr interessieren wie man die "Voreinstellungen" von Dialogboxen ausliest. Das Vorbelegen der Voreinstellungen scheint ja gut zu klappen.
Btw, ich hbae XL2000=XL9.0, da steht zu den Parametern von xlDialogSort:
xlDialogSort orientation, key1, order1, key2, order2, key3, order3, header, custom, case
xlDialogSort orientation, key1, order1, type, custom
was steht denn bei XL10.0, sind glaub paar mehr!?
Option Explicit
Public Bereich As Range, K1 As Range, K2 As Range, K3 As Range
Public O1 As Byte, O2 As Byte, O3 As Byte
Sub Makro1()
'sortieren
Application.Dialogs(xlDialogSort).Show xlTopToBottom, K1, O1, K2, O2, K3, O3, xlGuess, 1, False
'weiterer Code
'MsgBox Application.Dialogs(xlDialogSort).Show.Items(1)
End Sub
Sub EinmaligLaufenLassen()
Set K1 = Range("A1")
Set K2 = Range("B1")
Set K3 = Range("c1")
O1 = 1 ' xlAscending
O2 = 2 ' xlDescending
O3 = 1
End Sub
Ps: MatheLehrer zu den Schülern: "Wie oft soll ich Euch noch erklären, daß es keine größere oder kleinere Hälften gibt, Hälften sind immer gleichgroß. Ach, ist auch egal, dir größere Hälfte von Euch wird das eh nie kapieren" :-)))
Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..