Tabelle nach Wert aus der ComboBox sortieren
16.04.2015 09:18:02
Larissa
ich steh vor einem kleinen Problem.
Ich habe eine Tabelle mit Rohren. In den Spalten werden die Geschwindigkeit, die Länge und der Durchmesser angegeben.
Nun soll über ein Fomular nach den drei Kriterien sortiert werden.
Als Durchmesser kommt entweder 1 oder 3/4 in Frage. Dazu habe ich eine ComboBox in der zwischen den Durchmessern (1, 3/4) gewählt werden kann.
Mein Problem ist, wie schreibe ich das in VBA so, dass es nach dem ComboBox-Wert sortiert. Habe dazu schon folgendes geschrieben:
Dim Sortierspalte As String
Dim Bereich As String
Bereich = "D1:L36"
Sortierspalte = "H"
Sheets("Rohre Hilfstabelle").Range(Bereich).Sort _
Key1:=Range(Sortierspalte & "1"), Order1:=xlAscending, _
Header:=xlGuess, MatchCase:=False, _
Orientation:=xlTopToBottom
Damit 3/4 in der Tabelle angezeigt wird habe ich folgenden Code:
Dim d_out_string As String
If d_out * 1000 > 20 Then
d_out_string = "1"
Else
d_out_string = "3/4"
End If
Als weiteres wird dann eine maximale Geschwindigkeit und eine maximale Länge im Fomular per TextBox eingegeben. In der Tabelle sollen dann alle Werte, die über dem festgelegten Maximalwert liegen, nicht mehr angezeigt werden.
Aber ich arbeite mich immer in Etappen vorwärts, so würde mich die Funktion zum Sortieren nach den Durchmessern schon mal weiter bringen.
Vielen Dank schon mal im Voraus!
Grüßlis Larissa