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

Zahlenreihe in Spalte kopieren

Forumthread: Zahlenreihe in Spalte kopieren

Zahlenreihe in Spalte kopieren
Albert
Hallo Excelaner!
Habe Zahlen in den Zellen B1 bis Z1 stehen.
Möchte jetzt die Zahlen, per Makro in einem Rutsch, nach Spalte A untereinander kopieren und zwar in der gleichen Reihenfolge.
Hat jemand eine Idee ob das geht und wenn ja - Wie ?
Einstweilen herzlichen Dank an alle, die sich für mich bemühen.
MfG
Albert
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zahlenreihe in Spalte kopieren
25.07.2009 16:03:38
robert
hi,
meinst du so ?
gruß
robert
Option Explicit
Sub Trans()
Range("B1:Z1").Copy
Range("A1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
Range("B1:Z1").ClearContents
End Sub

Anzeige
AW: Zahlenreihe in Spalte kopieren
26.07.2009 16:11:44
Albert
Hallo Robert & Daniel,
darf ich nochmal um eure Hilfe bitten!
Wenn jetzt die Zahlen in den Zellen B1 bis Z2 stehen, d.h. 2 Zeilen mit Zahlen wie müßte dann die Lösung aussehen.
Habe es mit den Makrorekorder versucht, bekomme aber immer 2 Spalten statt die Zahlenkolonne in einer Spalte.
MfG
Albert
Anzeige
AW: Zahlenreihe in Spalte kopieren
25.07.2009 16:07:17
Daniel
HI
das kann man auch von Hand machen, über KOPIEREN und BEARBEITEN - INHALTE EINFÜGEN und dann im Dialogfeld unten rechts "transponieren" anchecken.
falls du es als Makro brauchst, einfach den Recorder mitlaufen lassen, dann siehst du, wie es geht.
Gruß Daniel
AW: Zahlenreihe in Spalte kopieren
25.07.2009 16:39:43
Albert
@Robert,
@Daniel,
danke für eure Hilfe, habe dazu gelernt.
Schöne Grüße
Albert
Anzeige
AW: 2 zeilen
26.07.2009 16:53:40
hary
Hallo Albert
versuch mal so. Roberts Code erweitert.

Sub Trans()
Dim zelle As Long
Dim i As Long
For i = 1 To 2
zelle = Cells(Rows.Count, 1).End(xlUp).Row + 1
If zelle = 2 Then zelle = 1
Range("B" & i & ":Z" & i).Copy
Range("A" & zelle).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
Range("B" & i & ":Z" & i).ClearContents
Next
End Sub

Gruss Hary
Anzeige
AW: 2 zeilen
26.07.2009 17:16:39
Albert
Hallo Hary,
für deine Mühe herzlichen Dank.
Funktioniert einwandfrei, cool der Code.
Schöne Grüße
Albert
;
Anzeige
Anzeige

Infobox / Tutorial

Zahlenreihe in Spalte kopieren


Schritt-für-Schritt-Anleitung

Um eine Zahlenreihe von Zellen in eine andere Spalte zu kopieren, kannst du entweder ein Makro verwenden oder die Funktion "Transponieren" nutzen. Hier ist eine Schritt-für-Schritt-Anleitung für die Verwendung eines Makros:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.

  3. Kopiere den folgenden VBA-Code in das Modul:

    Sub Trans()
        Dim zelle As Long
        Dim i As Long
        For i = 1 To 2
            zelle = Cells(Rows.Count, 1).End(xlUp).Row + 1
            If zelle = 2 Then zelle = 1
            Range("B" & i & ":Z" & i).Copy
            Range("A" & zelle).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
            False, Transpose:=True
            Application.CutCopyMode = False
            Range("B" & i & ":Z" & i).ClearContents
        Next
    End Sub
  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Drücke ALT + F8, wähle das Makro Trans aus und klicke auf Ausführen.

Jetzt werden die Zahlen in den Zellen B1 bis Z2 in die Spalte A kopiert, wobei sie untereinander angeordnet sind.


Häufige Fehler und Lösungen

  • Problem: Nach dem Ausführen des Makros erscheinen die Zahlen nicht korrekt in Spalte A.

    • Lösung: Überprüfe, ob die Quellzellen (B1 bis Z2) tatsächlich Zahlen enthalten und dass das Makro korrekt ausgeführt wurde.
  • Problem: Die Zahlen werden nicht in einer Spalte, sondern in mehreren Spalten kopiert.

    • Lösung: Stelle sicher, dass du die Option "Transponieren" im PasteSpecial-Dialog aktiviert hast, wenn du die Zahlen manuell kopierst.

Alternative Methoden

Wenn du keine Makros verwenden möchtest, kannst du die Excel-Funktion "Transponieren" nutzen, um die Zahlenfolge manuell zu kopieren:

  1. Wähle die Zellen B1 bis Z2 aus.
  2. Kopiere die Zellen mit STRG + C.
  3. Gehe zu Zelle A1, klicke mit der rechten Maustaste und wähle Inhalte einfügen.
  4. Aktiviere im Dialogfeld die Option "Transponieren" und klicke auf OK.

Diese Methode ist eine einfache Möglichkeit, eine Zahlenreihe in Spalten zu kopieren, ohne ein Makro zu erstellen.


Praktische Beispiele

Wenn du beispielsweise die Zahlen 1 bis 5 in den Zellen B1 bis F1 hast und diese in Spalte A untereinander anordnen möchtest, kannst du das oben genannte Makro verwenden. Das gleiche gilt, wenn du eine Zahlenreihe von B1 bis Z1 hast.

Ein weiteres Beispiel: Wenn du die Zellen B1 bis Z2 mit verschiedenen Werten befüllst und diese in einer Spalte anordnen möchtest, wird das Makro sie korrekt übertragen und die Inhalte der Quellzellen löschen.


Tipps für Profis

  • Nutze die Funktion "Zahlenfolge runterziehen", um schnell eine Zahlenreihe zu erstellen, bevor du sie kopierst.
  • Du kannst auch benutzerdefinierte Zahlenformate anwenden, um schöne Zahlen zum Kopieren zu generieren.
  • Wenn du regelmäßig mit großen Datenmengen arbeitest, empfiehlt es sich, Makros zu optimieren, um die Geschwindigkeit zu erhöhen.

FAQ: Häufige Fragen

1. Wie kann ich eine Excel-Zahlenfolge erstellen?
Du kannst die Zahlen einfach in eine Zelle eingeben und dann das kleine Quadrat in der unteren rechten Ecke der Zelle ziehen, um die Zahlenfolge zu erstellen.

2. Funktioniert das Makro in allen Excel-Versionen?
Ja, das VBA-Makro sollte in den meisten modernen Excel-Versionen funktionieren, solange du Zugriff auf den VBA-Editor hast.

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