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
Anzeige