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
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
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige