Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1768to1772
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1768to1772
1768to1772
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Laufzeitfehler 438 .SetRange

Laufzeitfehler 438 .SetRange
02.07.2020 23:32:22
LEP
Hallo community.
Ich habe hier ein Problem, welches mich sehr wundert. Die eigentliche Problematik scheint gelöst, aber es tritt ein Laufzeitfehler 438, den ich mir einfach nicht erklären kann. Der VBA Code, um den es geht, habe ich so auch schon in diesem und anderen Foren gefunden, z.B. hier:
https://www.herber.de/forum/archiv/1308to1312/1309837_Laufzeitfehler_438__SetRange.html
Der Unterschied bei mir ist, dass im entscheidenen .SetRange Ausdruck eine Formel auftaucht. Hier scheint das Problem zu liegen. Ich nutzte übrigens Excel 2013.
Bin für jeden Hinweis dankbar. Viele Grüße LE
Der Code lautet: 

Sub SortProductsCosts()
Dim LastRow As Long
Dim KeyR As Range
LastRow = ActiveSheet.Range("E" & Rows.Count).End(xlUp).Row
Set KeyR = ActiveWorkbook.Worksheets("Summary_Cost").Range("E10:AS" & LastRow)
KeyR.Select
ActiveWorkbook.Worksheets("Summary_Cost").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Summary_Cost").Sort.SortFields.Add _
Key:=Range("E10:AS" & LastRow), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Summary_Cost").Sort
.SetRange = Range("E10:AS" & LastRow)     '

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Laufzeitfehler 438 .SetRange
03.07.2020 00:17:53
onur
Teste das: 
Sub SortProductsCosts()
Dim LastRow As Long
Dim KeyR As Range
LastRow = ActiveSheet.Range("E" & Rows.Count).End(xlUp).Row
Set KeyR = ActiveWorkbook.Worksheets("Summary_Cost").Range("E10:AS" & LastRow)
With ActiveWorkbook.Worksheets("Summary_Cost")
KeyR.Select
.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=.Range("E10:AS" & LastRow), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With .Sort
.SetRange = Range("E10:AS" & LastRow)     '

AW: Laufzeitfehler 438 .SetRange
03.07.2020 00:23:22
onur
Ändere das auch noch so:
.SetRange = ActiveWorkbook.Worksheets("Summary_Cost").Range("E10:AS" & LastRow)
Anzeige
AW: Laufzeitfehler 438 .SetRange
03.07.2020 00:55:23
LE
Hallo onur,
vielen Dank für deine Vorschläge. Ich kann deine Ideen nachvollziehen.
Ich habe alle so umgesetzt. Leider bleibt das Ergebnis das gleiche: Laufzeitfehler 438.
Weitere Ideen?
Ich verstehe nicht, warum ich nahezu den gleichen Code im Netz als offenbar funktionierende Lösung finde. Aber bei mir funktioniert es einfach nicht.
Gruß
LE
AW: Laufzeitfehler 438 .SetRange
03.07.2020 00:56:24
onur
Poste mal die Satei.
AW: Laufzeitfehler 438 .SetRange
03.07.2020 07:48:57
Werner
Hallo,
bei mir so: 
Sub SortProductsCosts()
Dim LastRow As Long
LastRow = ActiveSheet.Range("E" & Rows.Count).End(xlUp).Row
With Worksheets("Summary_Cost")
.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=Range("E10"), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
With .Sort
.SetRange Range("E10:AS" & LastRow)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.Apply
End With
End With
End Sub
Gruß Werner
Anzeige
AW: Laufzeitfehler 438 .SetRange
03.07.2020 08:56:24
LEP
Hallo Werner!
Es scheint zu funktionieren! 1000 DANK!
Das Problem scheint der Ausdruck Key:=Range("E10:AS" & LastRow) gewesen zu sein.
Mit deiner Formel Key:=Range("E10") klappt es.
Falls du verstehst, warum es so ist, wäre ich für eine Erläuterung dankbar. Schließlich möchte ich etwas lernen. :)
So oder so - DANKE!
Gruß
LE
Gerne u. Danke für die Rückmeldung.
03.07.2020 21:54:04
Werner
Hallo,
und deine Frage solltest du Microsoft stellen, ist halt so.
Wenn du dir einen Filtervorgang mit dem Makrorekorder aufzeichnest, dann siehst du ja, wie die Syntax sein muss.
Gruß Werner

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige