Office: Bereich mit .cells definieren

Piet.Peter · 11. Oktober 2016

Hallo Leute,

ich habe ein recht banales Problem, bei dem ich allerdings ohne eure Hilfe nicht weiterkomme.

Es geht darum, dass ich gerne einen Bereich Sortieren möchte. Hat zuvor alles mit folgendem Makro geklappt:
Code:

Sub sortieren()

Dim Bereich As String

With ActiveSheet

Bereich = "B3:CH47"

Range(Bereich).Sort _
Key1:=Range("K3"), Order1:=xlDescending, _
Header:=xlYes, MatchCase:=False, _
Orientation:=xlTopToBottom

End With

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nun möchte ich den Bereich jedoch flexibler gestalten. Da geht die Angabe ja nur über .cells.

Folgendes Ergebnis meiner Versuche:
Code:

Sub sortieren()

Dim Bereich As String
Dim x As Integer

With ActiveSheet

x = Range("CM4").Value
Bereich = Range(.Cells(3, 2), .Cells(x, 86))

Range(Bereich).Sort _
Key1:=Range("K3"), Order1:=xlDescending, _
Header:=xlYes, MatchCase:=False, _
Orientation:=xlTopToBottom

End With

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Es hakt bei dem Bereich. Ich habe schon versucht "Bereich" als Range zu definieren. Da gab er mir dann einen anderen Fehler aus.

Weiß jemand wie man das Problem lösen könnte?

Beste Grüße
Piet

:)

Crazy Tom · 13. Oktober 2016

Hallo

probiere mal

Dim Bereich As Range

set Bereich = Range....usw.

MfG Tom

Edit: wenn du dich eh auf dem Aktuellen Tabellenblatt befindest braucht es vor Cells keinen Punkt
und wenn du auf einem anderen Blatt bist gehört auch vor Range ein Punkt

Fennek11 · 13. Oktober 2016

Hallo,

in einer "With"-Klammer müssen sowohl Range als auch cell jeweils mit dem "Punkt" geschrieben werden. Nur dann werden sie dem With zugeordnet.

mfg

Piet.Peter · 13. Oktober 2016

Vielen Dank schon einmal!! *Smilie

Hab den Code nun angepast:
Code:

Sub sortieren()

Dim Bereich As Range
Dim x As Integer

With ActiveSheet

x = .Range("CM4").Value

Set Bereich = .Range(.Cells(3, 2), .Cells(x, 86))

Range(Bereich).Sort _
Key1:=.Range("K3"), Order1:=xlDescending, _
Header:=xlYes, MatchCase:=False, _
Orientation:=xlTopToBottom

End With

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Leider bugt die Zeile "Orientation:=xlTopToBottom" noch. Markiert wird der gesamte Sortierbefehl.

Hat jemand Lösungsvorschläge?

Vielen Dank für eure Hilfe!

Fennek11 · 13. Oktober 2016

Hallo,

zuerst wird "Bereich" als Range definiert, dann aber im Sort Range(Bereich) geschrieben.

Einfach so:

Bereich.sort usw

Piet.Peter · 13. Oktober 2016

Super! Vielen vielen Dank!

Beste Grüße
Piet

Office: Bereich mit .cells definieren

Bereich mit .cells definieren

Bereich mit .cells definieren

Bereich mit .cells definieren

Bereich mit .cells definieren - Similar Threads - Bereich cells definieren

Bereich von Excel nach Word mit zusammenhängenden Passagen übergeben

Nur markierte Zellen kopieren und wieder einfügen

Bereich zweimal in Word einfügen (VBA)

Bereich (z.B. C1:C12) aus Formel berechnen lassen

Word geschützter Bereich in Tabelle

Namens-Bereich - Überschriften Zeile fehlt

Bereich mittels Cells ansprechen