Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
604to608
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
604to608
604to608
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellbereiche abhängig v. Cursorposition kopieren

Zellbereiche abhängig v. Cursorposition kopieren
29.04.2005 12:23:01
Peter
Hallo liebe Helfer,
ich habe folgendes Problem.
Ich möchte mit einem Makro immer von der aktuellen Position des Cursors einen bestimmten gleichgroßen Bereich
(z. Bsp.10 Spalten nach rechts und 12 Zeilen nach unten) in ein anderes Blatt kopieren.
Ein normales Makro macht dies immer nur von einer definierten Position.
Habt Ihr eine Idee?
Danke
Peter

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellbereiche abhängig v. Cursorposition kopieren
29.04.2005 12:25:44
andreas
Hallo,
sieh dir mal activecell.offset an
da kannst den Versatz definieren
gruß
andreas e
AW: Zellbereiche abhängig v. Cursorposition kopieren
29.04.2005 12:43:31
marko_ti
Wenn Du das Makro mit dem Recorder aufgenommen hast, werden standardmäßig absolute Bezüge benutzt - wie Du beschrieben hast. Aber diese Minisymbolleiste die während der Aufnahme sichtbar ist, hat neben dem Stop-Knopf auch noch einen Knopf um auf relative Bezüge umzuschalten. Drück ihn vor den Aktionen die Du machst und Du hast alles "relativ" aufgenommen.
Gruß Marko
AW: Zellbereiche abhängig v. Cursorposition kopieren
29.04.2005 12:45:36
Hajo_Zi
Hallo Peter
Option Explicit

Sub kopieren()
Range(ActiveCell, ActiveCell.Offset(12, 10)).Copy _
Destination:=Worksheets("Tabelle1").Range("a1")
End Sub

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.



"Wer Rechtschreibfehler findet, darf sie behalten!"

Dies gilt auch für Bert.
Anzeige
AW: Zellbereiche abhängig v. Cursorposition kopier
29.04.2005 13:41:02
Peter
Hallo Hajo_Zi,
vielen Dank für den Code, funktioniert super. Nur noch ein kleines Problem, die Tabelle (wohin ich kopiert habe) soll gleich angezeigt (geöffnet) werden.
Danke auch den anderen Ideengebern, deren Tips ich noch testen werde.
Gruß Peter
AW: Zellbereiche abhängig v. Cursorposition kopier
29.04.2005 13:43:40
Hajo_Zi
Hallo Peter,
select lehne ich ab. Ergänze
Worksheets("Tabelle1").Select
Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.

"Wer Rechtschreibfehler findet, darf sie behalten!"

Dies gilt auch für Bert.
Anzeige
AW: Zellbereiche abhängig v. Cursorposition kopier
29.04.2005 13:59:01
Peter
Hallo Hajo_Zi,
Sorry, das habe ich nicht verstanden, denn ich habe bisher keine Ahnung
von VBA und mit der Syntax erst recht nicht.
Bitte noch einmal für Anfänger.
Danke
Gruß Peter
AW: Zellbereiche abhängig v. Cursorposition kopier
29.04.2005 14:04:34
Hajo_Zi
Hallo Peter,
kopiere die Zeile in den Code vor End Sub.
Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.

"Wer Rechtschreibfehler findet, darf sie behalten!"

Dies gilt auch für Bert.
Anzeige
AW: Zellbereiche abhängig v. Cursorposition kopier
29.04.2005 14:26:32
Peter
Hallo Hajo_Zi,
Danke, es funktioniert super.
Danke auch an marko_ti, die Lösung - Makro mit dem Recorder und umschalten auf relative Bezuge - funktioniert auch super
Gruß Peter

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige