Hallo zusammen,
ich versuche was zu sortieren und verstehe das Problem nicht... Ich bekomme die Fehlermeldung "Methode Range für Objekt global fehlgeschlagen" in der fett markierten Zeile.
AZelle = "Cells(1,1):Cells(1," & letzteZeile & ")"
BZelle = "Cells(" & i & ",1):Cells(" & i & "," & letzteZeile & ")"
MsgBox ("Zeige mir" & AZelle & ", " & BZelle)
=> AZelle: Cells(1,1):Cells(1,9)~f~<br>
~f~=> BZelle (Cells(2,1):Cells(2,9)~f~</i><br>
<br>
~f~=Fehler=> Range(AZelle).Sort Key1:=Range(BZelle), Order1:=xlDescending
Range("A1:A" & letzteZeile).Copy
Range("B1").PasteSpecial
z = letzteZeile + 100
Range("A100:A" & z).Copy
Range("A1").PasteSpecial
Next i
Wenn ich A1:A25 und B1:B25 eingebe funktioniert es, hilft mir aber beim aufwärtszählen der Buchstaben nicht.
Ich möchte Spalte A immer mit einer folgenden Spalte vergleichen, dann die sortierte Zeile A in die folgende Spalte einfügen usw. bis zur letzten Spalte.
Die Spalte A wird immer wieder zurückgesetzt, dass ich die richtigen Namen einfüge.
Wahrscheinlich bin ich viel zu kompliziert, aber mehr gibt mein Wissensstand nicht her :(
Für Hilfe bin ich sehr dankbar.