Kopieren von Zellen

Bild

Betrifft: Kopieren von Zellen
von: Friedhelm
Geschrieben am: 03.07.2015 13:21:29

Hallo,
es müsste so einfach sein, ich bekomme es nicht hin.
Ich möchte von dem Tabellenblatt HD die Zellen AC24:AE24 kopieren und in das Blatt T1 mit dynamischem Bezug ( activecell(x,y)= .... ) einfügen.
Beim Aufzeichnen mit dem Makro Recorder wird der Blattwechsel vorgenommen
Dies möchte ich gerne vermeiden. Vielleicht geht es mit einer oder zwei Zeilen zu lösen.
MfG
Friedhelm

Bild

Betrifft: AW: Kopieren von Zellen
von: JoWE
Geschrieben am: 03.07.2015 13:40:34
Hallo,
vllt. so:
kopiere den Bereich in der Quelltabelle, aktiviere in der Zieltabelle die Zielzelle,
darauf rechte Maustaste, dann auswählen Inhalte einfügen, dort Optionen (z.B. Alles)
auswählen und zuletzt "verknüpfen" anklicken.
Gruß
Jochen

Bild

Betrifft: AW: Kopieren von Zellen
von: Alex K
Geschrieben am: 03.07.2015 13:52:02
Hallo Friedhelm,
Nimm das Hier

Worksheets("HD").Range("AC24:AE24").Copy_
 Destination:=Worksheets("T1").Cells(X, Y) 'X =Zeile Y=Spalte


Bild

Betrifft: AW: Kopieren von Zellen
von: JoWE
Geschrieben am: 03.07.2015 13:58:08
Hallo Friedhelm,
so ist's natürlich nicht wirklich dynamisch.
So sein Wunsch: " in das Blatt T1 mit dynamischem Bezug"
Gruß
Jochen

Bild

Betrifft: AW: Kopieren von Zellen
von: Friedhelm
Geschrieben am: 03.07.2015 14:00:23
Hallo Alex K,
Das ist es , wie ich es mir vorgestellt habe.
Allerdings bekomme ich die Fehlermeldung: Erwarte Ausdruck. Der Curser steht hinter Destination auf ":="
Gruß
Friedhelm

Bild

Betrifft: AW: Kopieren von Zellen
von: JoWE
Geschrieben am: 03.07.2015 14:04:49
oder mach's so:

Sub kopiere_dynamisch()
    Range("AC24:AE24").Copy
    Sheets("T1").Select: Range("A1").Select
    ActiveSheet.Paste Link:=True
    Range("A1").Select
End Sub


Bild

Betrifft: AW: Kopieren von Zellen
von: Friedhelm
Geschrieben am: 03.07.2015 16:49:21
Hallo Jochen,
danke für deine Ideen.
Bei deinem Bsp wird von einem Tabellenblatt auf ein anderes gewechselt. Das würde ich gerne einsparen, da bei vielen wechseln ein zimliches Flackern entsteht.
Ich habe aus beiden Ansätzen fogendes gemacht und es funktioniert:
Worksheets("HD").Range("A24:E24").Copy
Sheets("T1").Select: Range("A1").Select
ActiveSheet.Paste Link:=True
Nun möchte ich den Zielort, hier "A1" gerne dynamisch, also berechnet, haben. Mit einem definierten aktiven Feld. Leider geht das so nicht:

Sub kopiere_dynamisch()
x = 4
y = 5
   Worksheets("HD").Range("A24:E24").Copy
 Worksheets("T1").ActiveCell(x, y).Select  'X =Zeile Y=Spalte
    ActiveSheet.Paste Link:=True
    Range("A1").Select
End Sub
Welcher Fehler steckt darin?
Gruß
Friedhelm

Bild

Betrifft: AW: Kopieren von Zellen
von: Friedhelm
Geschrieben am: 03.07.2015 14:04:49
Hab aus Versehen eine falsche Versionsangabe gemacht:
ich habe die Version 10 Office 2002
sorry

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Kopieren von Zellen"