Supportnet / Forum / Tabellenkalkulation
Relativer Bezug - nicht exakte Feldangabe im Makro
Frage
wenn ich gerade dabei bin, kann ich ja gleich noch eine Frage zu Excel starten:
Bei der Aufzeichnung eines Makros werden immer irgendwelche Zellen, die mittels right oder left oder down angesteuert werden, letztendlich mit einem Range belegt, dass der exakten Zellenbezeichnung entspricht. Startet man das Makro beim nächsten Mal aus einer anderen Position, springt es nach den durchlaufenen right-left-donws wieder in die exakt bezeichnete Zelle statt in die zur Startposition analoge. Frage: wie kann ich den relativen Bezug im Makro stehen lassen ohne die exakte Feldbezeichnung zu verwenden.
Antwort 1 von M.O.
Hallo Querkopp,
meinst du etwa so etwas:
Einfach eine Zelle aussuchen und Makro starten :-).
Gruß
M.O.
meinst du etwa so etwas:
Sub test()
r = ActiveCell.Row
c = ActiveCell.Column
Range(ActiveCell, Cells(r + 5, c + 2)).Select
End Sub
Einfach eine Zelle aussuchen und Makro starten :-).
Gruß
M.O.
Antwort 2 von querkopp
Danke für die schnelle Antwort, habe es versucht umzusetzen, fkt. aber leider so nicht (liegt wahrscheinlich am User), beschreibe es vielleicht auch zu umständlich.
Daher hier ein kleines Makro mit *Anmerkung*:
Application.Goto Reference:="Start"
*Info: dieses Feld wird vor der nächsten Makroausführung verschoben*
Application.Goto Reference:="R6C2"
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Application.Goto Reference:="Start"
*hier gehe ich mit dem Cursor 5 x down, registriert das Makro aber nicht, sondern merkt sich nur das Endfeld "D6" und kopiert hierhin statt 5 Felder unter "Start"
Range("D6").Select
ActiveSheet.Paste
Range("D6").Select
Bin sicher ist ganz einfach wenn man es weiss.. wenn...
Früher bei Lotus123 hätte man da einfach 5xdown eingegeben -fertig. Heute braucht man ein Forum und liebe Helfer.
Daher hier ein kleines Makro mit *Anmerkung*:
Application.Goto Reference:="Start"
*Info: dieses Feld wird vor der nächsten Makroausführung verschoben*
Application.Goto Reference:="R6C2"
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Application.Goto Reference:="Start"
*hier gehe ich mit dem Cursor 5 x down, registriert das Makro aber nicht, sondern merkt sich nur das Endfeld "D6" und kopiert hierhin statt 5 Felder unter "Start"
Range("D6").Select
ActiveSheet.Paste
Range("D6").Select
Bin sicher ist ganz einfach wenn man es weiss.. wenn...
Früher bei Lotus123 hätte man da einfach 5xdown eingegeben -fertig. Heute braucht man ein Forum und liebe Helfer.

