Hallo Excel-Profis,
hier im Forum sehe ich täglich, was man mit vba so alles veranstalten kann, - und so mache ich meine ersten "einfachen" Makros.
Es funzt nicht, konkret:
Ich möchte den Bereich ab A2 + C2 bis zum letzten Eintrag (in Spalte "A") kopieren.
Die Duplikate in den Zeilen "C" löschen und aufsteigend in/ab "K2" einfügen.
Meine Frage:
Wie schreibe ich die zu kopierenden Bereiche richtig aus (weil daran scheitert dies offensichtlich)?
die "Fehlerzeile"
With Sheets("Tabelle1")
.Range(Cells(2, 1), Cells(, 3) & .Cells(.Rows.Count, "A").End(xlUp).Row).Copy
End With
das komplette:
With Sheets("Tabelle1")
.Range(Cells(2, 1), Cells(, 3) & .Cells(.Rows.Count, "A").End(xlUp).Row).Copy
End With
ActiveSheet.Cells(2, 11).PasteSpecial xlPasteValues
With Selection
.RemoveDuplicates 3, xlNo
On Error Resume Next
.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
On Error GoTo 0
.Sort Key1:=.Cells(1, 1), Order1:=xlAscending, Header:=xlGuess
End With
Kann mir jemand dies bitte richtig stellen?Mit freundlichen Gruß
Fred Neumann