Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
256to260
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
256to260
256to260
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

a2:i6 copy & paste

a2:i6 copy & paste
16.05.2003 16:48:21
mehmet
hallo hilfbereites forum,
ich habe folgendes problem und bekomme es alleine nicht gelöst
habe vieles versucht ohne erfolg

der code soll einfach a2:i6 kopieren und in a10:i14 einfügen
wenn's nochmal ausgeführt wird, soll es wieder a2:i6
kopiert und eingeführt werden, allerdings dann in a15:i19.
und wenn wieder, dann wieder a2:i6 kopieren und einfügen a20:i24 usw...
also immer von a2:i6 kopieren und beim einfügen
bereich 8spalten tiefer und 5zeilen weiter einfügen.
so, dass die eingefügte stelle nicht überkopiert wird.

leider komme ich nicht voran und fummle schon seit längerem dran
ein kleiner tip oder lösung ist echt hilfreich
dank im voraus
gruss


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

Betreff
Datum
Anwender
Anzeige
Re: a2:i6 copy & paste
16.05.2003 17:03:03
Nepumuk

Hallo Mehmet,
kopieren von Werten in Excel ist nicht notwendig die kannst du direkt zuweisen. Beispiel: Range("A2") = Range("A1").Value damit bekommt die Zelle A2 den selben Wert wie die Zelle A1. Mit deinem Code heißt das:

Gruß
Nepumuk

Re: a2:i6 copy & paste
16.05.2003 17:14:36
Nepumuk

nochmal zu Erklärung.
Range(Cells(Range("A65536").End(xlUp).Row + 1, 1), Cells(Range("A65536").End(xlUp).Row + 5, 9))
bedeutet in Einzelteile zerlegt:

Range("A65536").End(xlUp).Row + 1 - die erste freie Zeile in der Spalte A

Cells(Range("A65536").End(xlUp).Row + 1, 1) - die Zelle in der ersten freien Zeile in Spalte A

Range("A65536").End(xlUp).Row + 5 - die fünfte freie Zeile in Spalte A

Cells(Range("A65536").End(xlUp).Row + 5, 9) - die Zelle in der fünften freien Zeile in Spalte I

Range(Cells(Range("A65536").End(xlUp).Row + 1, 1), Cells(Range("A65536").End(xlUp).Row + 5, 9)) - der Bereich von der ersten Freien Zelle in Spalte A bis zur fünften freien Zelle in Spalte I

Gruß
Nepumuk

Anzeige
es überschreibt!
16.05.2003 17:28:29
mehmet

hallo nepumuk
dank dir für deine prompte antwort
diese lösung hatte ich auch
genau das soll es nicht machen "überschreiben"
es sollte den ganzen bereich kopieren und den ganzen bereich einfügen
ich stelle den code mal im netz zur verfügung
vieleicht hast du dann bessere orientierung

währe echt toll, wenn du eine lösung finden könntest
gruss

http://msimsek.bei.t-online.de/Mehmet2.xls




aha effekt 8-) löl
16.05.2003 21:20:07
mehmet

nepumuk
ich liebe es
danke dir
ich habe es dank deiner hilfe gelöst
gruss
mehmet


Anzeige

251 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige