Excel-Tabelle sortieren, aber Formete erhalten

Computer: Software & Programmierung Office Software
1

Hallo zusammen,
benötige mal wieder ein wenig Hilfe da meine VBA-Kenntnisse kaum über das manuelle aufzeigen hinaus gehen.

Ich möchte eine Tabelle [H5:R22] absteigend sortieren und zwar nach Spalte R.
Mein Problem:
Ich möchte zwar die Werte sortieren,
nicht aber die Formatierung der Zeilen.

Danke schon mal für eure Hilfe
Holger

2

formate müßten mitsortiert werden. ich z.b. färbe zeilenweise, um zu prüfen, ob die sortierung mir die zusammengehörigen daten auch zusammengeschrieben hat. um welche formate geht es denn?

3

Hallo Holger,

benötige mal wieder ein wenig Hilfe da meine VBA-Kenntnisse
kaum über das manuelle aufzeigen hinaus gehen.

Tiefstapler? :smile:

Ich möchte eine Tabelle [H5:R22] absteigend sortieren und zwar
nach Spalte R.
Mein Problem:
Ich möchte zwar die Werte sortieren,
nicht aber die Formatierung der Zeilen.

probiers mal so: (ungetestet)

Sub sorti()
Dim wks As Worksheet
Set wks = ActiveSheet
On Error GoTo Hell
Application.ScreenUpdating = False
Worksheets.Add
With ActiveSheet
 wks.Range("H5:R22").Copy Destination:=.Range("H5:R22")
 .Range("H5:R22").Sort Key1:=.Range("R1"), Order1:=xlAscending, Header:=xlNo, \_
 OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
 .Range("H5:R22").Copy
 wks.Range("H5:R22").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= \_
 False, Transpose:=False
 Application.DisplayAlerts = False
 .Delete
 Application.DisplayAlerts = True
End With
Hell:
Application.ScreenUpdating = True
End Sub

Gruß
Reinhard

4

Hallo Horst,
wenn sich die Formatierung auf die Zeile(nzahl) anstatt auf den Inhalt bezieht, wird sie nicht mitsortiert.
Gruß Finus

5

Hallo zusammen,
danke für eure Beiträge und Hilfe.

Habe die Sortierung fertig,
allerdings etwas anders als hier vorgeschlagen.
Das Makro von Reinhard [danke] hat mir aus der Tabelle die Formeln gelöscht.

Ich habe das Zellenformat der Tabelle per Format übertragen in einem ausgeblendeten Bereich „abgelegt“. Danach habe ich ein Makro aufgezeichnet, das mir die Tabelle wie gewünscht sortiert anschließend dann das alte Format zurück übertragen, das was.

Grüße und Danke an alle,
Holger

6

Hallo Holger,

benötige mal wieder ein wenig Hilfe da meine VBA-Kenntnisse
kaum über das manuelle aufzeigen hinaus gehen.

Tiefstapler? :smile:

Hallo Reinhard, danke für die Hilfe,

Tiefstapler? :smile:

Nee nee, grins.
ich habe [ganz viel] früher schon am C64 gesessen.
Daher kenne ich so einige BASIC-Befehle und kann einige Wege im VBA erahnen.
Das ist aber auch schon alles. :frowning:
Daher ist bei mir der Drag, die Wege per Formel zu suchen recht ausgeprägt.

Schönen Tag
Holger

7

Das Makro von Reinhard [danke] hat mir aus der Tabelle die
Formeln gelöscht.

Hallo Holger,

Sub sorti2()
Dim wks As Worksheet
Set wks = ActiveSheet
On Error GoTo Hell
Application.ScreenUpdating = False
Worksheets.Add
With ActiveSheet
 wks.Range("H5:R22").Copy Destination:=.Range("H5:R22")
 wks.Range("H5:R22").Sort Key1:=wks.Range("R5"), Order1:=xlAscending, Header:=xlNo, \_
 MatchCase:=False, Orientation:=xlTopToBottom
 .Range("H5:R22").Copy
 wks.Range("H5:R22").PasteSpecial Paste:=xlPasteFormulas
 Application.DisplayAlerts = False
 .Delete
 Application.DisplayAlerts = True
End With
Hell:
Application.ScreenUpdating = True
End Sub

Gruß
Reinhard
Gruß
Reinhard