Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zelleninhalte kopieren horizontal -> vertikal

Zelleninhalte kopieren horizontal -> vertikal
09.04.2013 16:28:44
Stefan
Userbild
Hallo zusammen
Ich möchte den Inhalt von drei horizontalen Zellen in drei feste vertikale Zellen übertragen, und zwar folgendermassen:
Wenn ich die Zelle A1 angewählt habe, soll der Inhalt von A1/B1/C1 in G2/G3/G4 übertragen werden.
Wenn ich die Zell B3 angewählt habe, soll der Inhalt von B3/C3/D3 in G2/G3/G4 übertragen werden.
Ausgangspunkt ist immer die angewählte zelle plus die zwei Zellen rechts davon, deren Inhalte kopiert und in G2/G3/G4 eingefügt werden sollen.
Ich habe es per Makro-Recorder versucht, aber Excel checkt nicht, dass die Werte FIX in G2, G3 und G4 übertragen werden sollen. Das ist bestimmt recht einfach für die VBA-Cracks hier, vielen Dank für die Hilfe.

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelleninhalte kopieren horizontal -> vertikal
09.04.2013 16:50:07
Rudi
Hallo,
Sub aaaa()
ActiveCell.Resize(, 3).Copy
Range("G2").PasteSpecial xlPasteValues, , , True
Application.CutCopyMode = False
End Sub

Gruß
Rudi

besser
09.04.2013 16:52:40
Rudi
Hallo,
Sub aaaa()
Range("G2:G4") = _
WorksheetFunction.Transpose(ActiveCell.Resize(, 3).Value)
End Sub

Gruß
Rudi

Anzeige
AW: besser
09.04.2013 17:02:06
Stefan
Wow, funktioniert exzellent. Besten Dank!
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Zelleninhalte von horizontal nach vertikal kopieren


Schritt-für-Schritt-Anleitung

  1. Zelle auswählen: Wähle die Zelle aus, deren Inhalt du kopieren möchtest (z.B. A1).

  2. Zelleninhalt anpassen: Stelle sicher, dass die zwei Zellen rechts von der ausgewählten Zelle ebenfalls Werte enthalten (z.B. B1 und C1).

  3. Makro einfügen: Öffne den VBA-Editor (Alt + F11) und füge ein neues Modul hinzu.

  4. Code einfügen: Kopiere den folgenden Code in das Modul:

    Sub ZellenKopieren()
        Range("G2:G4") = WorksheetFunction.Transpose(ActiveCell.Resize(, 3).Value)
    End Sub
  5. Makro ausführen: Schließe den VBA-Editor und führe das Makro aus (z.B. über das Menü "Entwicklertools" oder mit Alt + F8).

Dieser Code ermöglicht es dir, die Inhalte von drei horizontalen Zellen in drei feste vertikale Zellen zu übertragen.


Häufige Fehler und Lösungen

  • Fehler: "Das Makro funktioniert nicht."

    • Lösung: Stelle sicher, dass du die richtige Zelle ausgewählt hast, bevor du das Makro ausführst.
  • Fehler: "Die Werte erscheinen nicht in den gewünschten Zellen."

    • Lösung: Überprüfe, ob das Ziel (G2:G4) korrekt im Code angegeben ist.

Alternative Methoden

  1. Manuelles Kopieren:

    • Wähle die Zellen (A1:C1) aus, kopiere sie (Strg + C), klicke auf G2 und nutze "Einfügen" (Strg + V) und dann "Transponieren".
  2. Formel verwenden:

    • Du kannst auch die TRANSPOSE-Funktion in Excel verwenden. Schreibe in Zelle G2:
      =TRANSPOSE(A1:C1)

Praktische Beispiele

Angenommen, du hast folgende Werte in den Zellen:

  • A1: "Apfel"
  • B1: "Banane"
  • C1: "Kirsche"

Wenn du das Makro ausführst, erscheinen diese Werte vertikal in den Zellen G2 bis G4:

  • G2: "Apfel"
  • G3: "Banane"
  • G4: "Kirsche"

Das ist eine einfache Methode, um mehrere Zellen von horizontal nach vertikal zu kopieren.


Tipps für Profis

  • Automatisierung: Du kannst das Makro anpassen, um es auf mehrere Zeilen gleichzeitig anzuwenden.
  • Shortcut erstellen: Weise dem Makro eine Tastenkombination zu, um es schneller auszuführen.
  • Fehlerüberprüfung: Füge im Makro eine Fehlerüberprüfung hinzu, um sicherzustellen, dass die Zellen nicht leer sind, bevor du die Werte kopierst.

FAQ: Häufige Fragen

1. Wie kann ich Excel von horizontal nach vertikal kopieren, ohne VBA zu verwenden? Du kannst die TRANSPOSE-Funktion nutzen, um Daten manuell zu transponieren.

2. Funktioniert dies in allen Excel-Versionen? Ja, die beschriebenen Methoden sind in den meisten modernen Excel-Versionen anwendbar. Die VBA-Methode könnte je nach Excel-Version leicht variieren.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige