With Sheets("Auswertung").Range(Cells(Z1, 1), Cell
Peter
Untenstehender Code funktioniert, wenn die Tabelle "Auswertung" aktiviert ist. Ist jedoch die Tabelle "Hauptbuch" aktiviert, kommt der Debugger bei der Zeile
With Sheets("Auswertung").Range(Cells(Z1, 1), Cells(Z2, 1))
(Anwendungs- oder objektdefinierter Fehler). Wenn ich mit dem Cursor auf Cells fahre, zeigt es mir den Wert aus A9 der Tabelle "Hauptbuch" (Z1 hat den Wert 9; Z2 4280), obschon ich ja am Anfang With Sheets("Ausswertung") geschrieben habe.
Da dachte ich, bei cells müsse ich jeweils einen Punkt vornean setzen, doch dann erscheint die Fehlermeldung: "Fehler beim Debuggen: Unzulässiger oder nicht genügend definierter Verweis"
Wo steckt mein Überlegungsfehler?
Danke für eine Antwort.
Gruss, Peter
Sub Doppelte_Loeschen()
Dim Z1 As Long, Z2 As Long, SP As Long, c As Range, Ende As Long, lngSpa As Long, Bereich As _
Range
Z1 = Range("psaBeginn").Row
Z2 = Range("psaEnde").Row
SP = Range("psaBeginn").Column
'--- Hilfsspalten einfügen und Original-Reihenfolge sichern
Sheets("Auswertung").Range("A:B").Insert
With Sheets("Auswertung").Range(Cells(Z1, 1), Cells(Z2, 1))
.FormulaR1C1 = "=Row()"
.Formula = .Value
End With
End Sub