Problem mit VBA-Programm - Laufzeitfehler 438
25.04.2017 17:56:23
Moritz
Arbeite im Moment an einem VBA-Programm (und bin nicht so wahnsinnnig erfahren). Um Zeilen in einer bestimmten Reihenfolge zu sortieren, habe ich folgendes Programm geschrieben:
Sub Ordnen()
Dim a As Long, b As Long, RowEnd As Long
a = 2
b = 2
RowEnd = Sheets("Zeilennummer").Cells(65536, 1).End(xlUp).Row
Do Until a = RowEnd
Do Until Sheets("Zeilennummer").Cells(a, b) = ""
Sheets("Geordnet").Row(a)=Sheets("Ungeordnet").Row(Sheets("Zeilennummer").Cells(a, b))
b = b + 1
Loop
a = a + 1
b = 2
Loop
End Sub
Damit sollen Zeilen aus dem einen Tabellenblatt in ein anderes Tabellenblatt eingefügt werden. In dem Tabellenblatt Zeilennummer ist notiert, in welche Zeilen kopiert werden soll. Beim Ausführen taucht immer die Fehlermeldung "Laufzeitfehler 438 - Objekt unterstützt diese Eigenschaft oder Methode nicht" auf. Laut Debugger muss das etwas mit der fett gedruckten Zeile zu tun haben. Habe die auch schon öfter umgeändert, finde aber die Lösung nicht alleine.
Hoffe, dass ich hier richtig bin!
Vielen Dank im Voraus.
Lg
Moritz