Hallo UweD,
erstmals vielen Dank für deine Bemühungen, das sieht alles sehr gut aus und wird zielführend sein!
Ich fange gerade an Schritt für Schritt alles durchzugehen und zu verstehen.
Leider taucht beim schrittweisen durchgehen ein Fehler auf.
in Zeile 45:
'Sortieren nach erstem Wert
.Sort.SortFields.Add2 Key:=.Columns(Sp), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
Hier kommt folgender Fehler:
Laufzeitfehler '438'
Objekt unterstützt diese Eigenschaft oder Methode nicht.
Zu dem noch eine Frage zu folgender Zeile:
'Werte aufteilen
ArrM = Split(Mid(MeL, 4), ",")
ArrS = Split(Mid(SyL, 4), ",")
Ich kann nicht ganz nachvollziehen, weshalb hier Mid 4 verwendet wird.
Danke schonmal, werde in diesem Thread dazu sicher noch 1-2 Fragen stellen müssen.
Mit freundlichen Grüßen Guest 4747
|