Zellenbereich kopieren

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Zellenbereich kopieren von: Melanie
Geschrieben am: 04.02.2005 10:47:16

Hallo!

Ich möchte gerne einen Bereich eines Arbeitsblatts (in einer Zeile) in einen Bereich in einem anderen Arbeitsblatt (in einer Spalte) kopieren. Da das Umkopieren über eine UserForm gesteuert ist, bräuchte ich den entsprechenden VBA-Code.

Ich habe es mal folgendermassen probiert:

Worksheets("Test").Range("A1:A10") = Worksheets("Test1").Range("A1:J1").Value

Ergebnis:
im Blatt Test steht in jeder Zelle des Bereich der Wert aus Test1.A1.

Wie kann man das Problem möglichst einfach lösen?

Danke für Eure Hilfe!

Gruß, Melanie.

Bild


Betrifft: AW: Zellenbereich kopieren von: Harald Kapp
Geschrieben am: 04.02.2005 10:53:15

Hallo Melanie,
kopieren und "Inhalte einfügen" mit Häkchen bei "Transponieren" machts. Ein Beispiel:


Sub Makro1()
    Range("A1:A5").Select
    Selection.Copy
    Sheets("Tabelle2").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
End Sub



Gruß Harald


Bild


Betrifft: AW: Zellenbereich kopieren von: c0bRa
Geschrieben am: 04.02.2005 10:57:30

hallo melanie...

hier mal das was mir der makrorekorder ausgespuckt hat ;)

Range("A1:A8").Select
Selection.Copy
Sheets("Tabelle2").Select
Range("A1:H1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True


ich denk mal das sollte dir weiterhelfen ;)

Das Forum lebt auch von Rückmeldungen...
c0bRa


Bild


Betrifft: AW: Zellenbereich kopieren von: Melanie
Geschrieben am: 04.02.2005 11:05:53

Vielen Dank für Eure Hilfe!
Hat geklappt, da hätte ich natürlich auch selber drauf kommen könnnen...
Gruß, bis zum nächsten Mal, Melanie.


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zellenbereich kopieren"