VBA Intelligente Tabelle finden und ganze Zeilen markieren
03.01.2024 11:23:18
Christoph
Ich komme mit meinem Problem einfach nicht weiter und benötige etwas Hilfe.
Aufgabe: Auf der Seite "Budget" soll die intelligente Tabelle und alle ihre Zeilen komplett markiert werden.
Wenn ich das Makro aufzeichne und die Tastenkombination Shift+ STRG + Ende + Pfeil nach Rechts anwende, werden alle Zeilen markiert. Genauso wie ich es haben möchte. Das aufgezeichnete Makro sieht dann so aus:
Sub Markiere_komplette_Zeilen()
Range("A2").Select 'gehe zu Zelle A2
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select 'Markiere die int. Tabelle und die Zeilen in Spalte A
Range(Selection, Selection.End(xlToRight)).Select 'Makiere alle Zeilen bis ganz nach rechts
Selection.Copy 'Kopiere die markierten Zeilen um sie in eine andere int. Tabelle eizufügen
End Sub
Leider funktioniert das Makro nicht komplett. Der Letzte Range Befehl "Range(Selection, Selection.End(xlToRight)).Select" wird nicht ausgeführt?
Es sind leider nicht alle Zeilen komplett markiert. Mit der Bitte um Hilfe.
Hier die Beispiel Datei: https://www.herber.de/bbs/user/165796.xlsm
Gruß,
Christoph