Sortierungsproblem
Johannes
Mein Problem ist folgendes:
Ich möchte mit einem Knopf Daten in andere Tabellen aus einer Eingabe übertragen und diese auch sortieren.
Mein Code sieht wie folgt aus:
Private Sub CommandButton1_Click()
Dim a As Integer
Dim i As Integer
Dim z As Integer
Dim y As Integer
i = 2
a = 51
y = 0
z = 0
Do While Tabelle1.Range("A" & i) ""
i = i + 1
Loop
i = i - 1
y = i + 49
For a = 51 To y
z = a - 51 + 2
Tabelle2.Range("B" & a).Value = Tabelle1.Range("A" & z).Value
Tabelle2.Range("C" & a).Value = Tabelle1.Range("D" & z).Value
Next a
Sheets("Umsatz pro Projektierer").Select 'dies ist die Tabelle2
Range("B51:C86").Select
Selection.Sort Key1:=Range("C51"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
Das Übertragen funktioniert ohne Probleme, allerdings hängt sich das Excel immer mit einem Laufzeitfehler bei dem Range("B51:C86").select auf.
Ich versteh das Problem deshalb nicht ganz, da ich das Makro aufgezeichnet hab, nachdem meine selbstgeschriebenen nicht funktioniert haben.
Wäre echt froh wenn mir jemand helfen könnte!
mfg