ich habe ein Problem, welches wohl nur mit VBA gelöst werden kann.
Ich habe ein UserForm mit einem Commandbutton. Über diesen möchte ich folgendes erreichen:
1. Schritt
Sortiere die Zellen C2 bis C6 und O2 bis O6 und AA2 bis AA6. Also im Endergebnis sollen alle 3 Bereiche insgesamt sortiert sein.
Das habe ich so gelöst:
Sub Kopieren()
Range("AU2").Value = Range("C2").Value
Range("AU3").Value = Range("C3").Value
Range("AU4").Value = Range("C4").Value
Range("AU5").Value = Range("C5").Value
Range("AU6").Value = Range("O2").Value
Range("AU7").Value = Range("O3").Value
Range("AU8").Value = Range("O4").Value
Range("AU9").Value = Range("O5").Value
Range("AU10").Value = Range("O6").Value
Range("AU11").Value = Range("AA2").Value
Range("AU12").Value = Range("AA3").Value
Range("AU13").Value = Range("AA4").Value
Range("AU14").Value = Range("AA5").Value
Range("AU15").Value = Range("AA6").Value
End Sub
Sub Sort()
Range("AU2:AU15").Select
ActiveWorkbook.Worksheets("Formular").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Formular").Sort.SortFields.Add Key:=Range("AU2"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Formular").Sort
.SetRange Range("AU2:AU15")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWindow.SmallScroll Down:=6
Range("AU15").Select
End Sub
Sub KopierenZurueck()
' Kopieren Makro
Range("C2").Value = Range("AU2").Value
Range("C3").Value = Range("AU3").Value
Range("C4").Value = Range("AU4").Value
Range("C5").Value = Range("AU5").Value
Range("C6").Value = Range("AU6").Value
Range("O2").Value = Range("AU7").Value
'usw.
End Sub
2. Schritt
J13 bis AL13 sind jeweils 2 verbundene Zellen: Sortiere diese und nimm jeweils die beiden darunter liegenden Spalten bis Zeile 32 mit.
Die Zellen J13 bis AL13 sind mit den Zellen aus Schritt 1 verknüpft.
Da komme ich ich absolut nicht weiter, geht nicht mit Makrorekorder.
Ich hoffe ich habe mich verständlich ausgedrückt.
https://www.herber.de/bbs/user/88536.xlsm
Vielen Dank fürs lesen und die Hilfe!
mfg, Andreas