Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1408to1412
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA Relative Verweise

VBA Relative Verweise
23.02.2015 06:54:05
Jürgen
Hallo und guten Morgen,
Kopieren einer Z E I L E von Tabelle1 nach Tabelle2
Also dort wo der Curser im Tabellen-Blatt1 gerade steht
( z.B. der Curser steht irgendwo in Spalte „F“ )
per VBA soll nun die die gesamte Spalte in der sich der Curser bedindet in Tabelle2
rüberkopiert werden.
Und die Zeile soll wiederum dort wo der Curser gerade in Tabellen-Blatt2 steht,
eingefügt werden ( also über dem Curser eingefügt werden )
Mit einer Makro-Auszeichnung lässt sich die Aufgabenstellung nicht realisieren, weil
der Recorder nur feste Bezüge berücksichtigt
Um mit der eingefügten Zeile in Tabellen-Blatt2 weiter zuarbeiten, wäre es hilfreich
zu wissen wie man den Curser in der eingefügten Zeile per VBA um zwei Spalten oder um
drei Spalten nach rechts oder links versetzten kann.
Wenn mir hierbei jemand behilflich sein könnte, das wäre sehr nett.
Ich darf mich an dieser Stelle schon einmal im voraus bedanken.
Gruß
DU Jürgen

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Kleiner Tipp-Fehler sorry
23.02.2015 07:09:16
Jürgen
Hallo und guten Morgen,
Kopieren einer Z E I L E von Tabelle1 nach Tabelle2
Also dort wo der Curser im Tabellen-Blatt1 gerade steht
( z.B. der Curser steht irgendwo in Spalte „F“ )
per VBA soll nun die die gesamte ZEILE in der sich der Curser bedindet in Tabelle2
rüberkopiert werden.
Und die Zeile soll wiederum dort wo der Curser gerade in Tabellen-Blatt2 steht,
eingefügt werden ( also über dem Curser eingefügt werden )
Mit einer Makro-Auszeichnung lässt sich die Aufgabenstellung nicht realisieren, weil
der Recorder nur feste Bezüge berücksichtigt
Um mit der eingefügten Zeile in Tabellen-Blatt2 weiter zuarbeiten, wäre es hilfreich
zu wissen wie man den Curser in der eingefügten Zeile per VBA um zwei Spalten oder um
drei Spalten nach rechts oder links versetzten kann.
Wenn mir hierbei jemand behilflich sein könnte, das wäre sehr nett.
Ich darf mich an dieser Stelle schon einmal im voraus bedanken.
Gruß
DU Jürgen

Anzeige
AW: VBA Relative Verweise
23.02.2015 10:05:17
Michael
Hallo Jürgen!
Deine Frage ist nicht ganz eindeutig, bspw.
Zeile soll wiederum dort wo der Curser gerade in Tabellen-Blatt2 steht
also über dem Curser eingefügt werden

Außerdem ist für mich noch die Frage, ob Du wirklich die gesamte Zeile kopieren und einfügen möchtest, oder enthält Deine Zeile etwa Daten von (zB) A:H und diese Daten möchtest Du kopieren.
Dennoch hier einmal ein Beispiel: Hier wird jene Zeile in Tabelle1 kopiert, in der gerade eine Zelle ausgewählt ist (die aktive Zelle - Achtung bei mehreren ausgewählten Zellen). Danach wird in Tabelle2 in der Zeile, in der gerade eine Zelle ausgewählt ist (die aktive Zelle - Achtung bei mehreren ausgewählten Zellen) die kopierte Zeile aus Tabelle 1 als neue Zeile eingefügt - d.h. aber wenn sich die aktiven Zellen nicht ändern, und Du dieses Makro wiederholt ausführst, wird in Tabelle2 nichts überschrieben, sondern immer wieder eine neue Zeile mit den Daten aus Tabelle1 eingefügt.
Sub ZeileVon1Nach2()
Tabelle1.Activate 'Kann entfallen, wenn Makro immer aus Tab1 aufgerufen wird
ActiveCell.EntireRow.Copy
Sheets("Tabelle2").Activate
Tabelle2.Rows(ActiveCell.Row).Insert Shift:=xlDown
Application.CutCopyMode = False
End Sub
Zu Deiner zweiten Frage: Ausgehend von der aktiven Zelle kannst Du andere Zellen versetzt zB so ansprechen
ActiveCell.Offset(0, 3).Select 'von der aktiven Zelle drei Spalten nach rechts
ActiveCell.Offset(0, -3).Select 'von der aktiven Zelle drei Spalten nach links
ActiveCell.Offset(-1, 0).Select 'von der aktiven Zelle eine Zeile nach oben
ActiveCell.Offset(1, 0).Select 'von der aktiven Zelle eine Zeile nach unten
Wie gesagt, beide Beispiele mit Vorsicht zu genießen, da ich nicht ganz sicher bin was Du machen möchtest und das mitunter nicht die beste Vorgehensweise ist.
LG
Michael

Anzeige
AW: VBA Relative Verweise
23.02.2015 10:23:58
Jürgen
Hallo Michael,
funktioniert wuuuuunderrrrrbaaaaarr
D A N K E
Beste Grüße
DU Jürgen

Freut mich - Danke! owT AW: VBA Relative Verweise
23.02.2015 10:45:07
Michael
.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige