Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1268to1272
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1268to1272
1268to1272
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mehrere Zeilen in eine Spalte transponieren

Mehrere Zeilen in eine Spalte transponieren
Charlotte
Hallo zusammen,
bin auf der Suche nach einer Lösung für folgendes Problem:
Ich habe eine Excel-Tabelle mit 24 Spalten (A - X, Stunden des Tages) und 365 Zeilen (1 - 365, Tage des Jahres). Die einzelnen Zeilen sollen nun transponiert in einer Spalte dargestellt werden, d.h. Spalte A mit 24 x 365 = 8760 Werten.
Gibt es eine Formel/VBA, um diese Arbeit zu automatisieren?
Vielen Dank für eure Mithilfe
Charlotte
AW: Mehrere Zeilen in eine Spalte transponieren
27.06.2012 10:56:34
Case
Hallo, :-)
per VBA so (Tabelle1 ist der CodeName des Tabellenblattes):
Option Explicit
Sub Main()
Dim lngTMP As Long
With Tabelle1
For lngTMP = 2 To .Cells(1, .Columns.Count).End(xlToLeft).Column
.Range(.Cells(1, lngTMP), .Cells(.Rows.Count, lngTMP).End(xlUp)) _
.Copy .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0)
Next lngTMP
End With
End Sub
Servus
Case
AW: Mehrere Zeilen in eine Spalte transponieren
27.06.2012 11:18:20
Charlotte
Hallo Case,
vielen Dank für deine schnelle Rückmeldung. Es scheint als wenn du mich noch ein bißchen an die Hand nehmen musst.
Ich habe den Code in VBA Editor eingefügt, gespeichert und ausgeführt. Fehlermeldungen gab es keine, jedoch hat er den Code nicht aufgeführt.
Bei Namesänderung des Tabellenblattes und entsprechender Änderung des Codes zeigte er mir einen Fehler an "Fehler beim Kompilieren: Variable nicht definiert".
Es wäre nett, wenn du mir nochmal weiterhelfen könntest.
Danke nochmal
Charlotte
Anzeige
AW: Mehrere Zeilen in eine Spalte transponieren
27.06.2012 11:35:13
Case
Hallo, :-)
nimm mal folgenden Code:
Option Explicit
Sub Main()
Dim lngTMP As Long
With ThisWorkbook.Worksheets("Tabelle1")
For lngTMP = 2 To .Cells(1, .Columns.Count).End(xlToLeft).Column
.Range(.Cells(1, lngTMP), .Cells(.Rows.Count, lngTMP).End(xlUp)) _
.Copy .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0)
Next lngTMP
End With
End Sub
Passe den Namen des Tabellenblattes in den Hochkommas an.
Servus
Case
AW: Mehrere Zeilen in eine Spalte transponieren
27.06.2012 11:43:36
Charlotte
Super :)
Jetzt muss ich meinerseits noch die unpräzise erste Beschreibung ändern.
Ich würde gerne Stunden 1-24 des 1.1.xxxx untereinander haben und anschließend die Stunden 1-24 des 2.1.xxxx.
Ginge das?
Vielen Dank
Gruß
Charlotte
Anzeige
AW: Mehrere Zeilen in eine Spalte transponieren
27.06.2012 11:50:58
Case
Hallo, :-)
mach aus der 2 (nach dem =) eine 1: ;-)
For lngTMP = 1 To .Cells(1, .Columns.Count).End(xlToLeft).Column
Servus
Case
AW: Mehrere Zeilen in eine Spalte transponieren
27.06.2012 11:38:09
Charlotte
Vielen Dank für die Lösung,
es lag wahrscheinlich an meiner ersten Beschreiben, dass die Lösung nicht 100% passend ist. Deshalb nocheinmal detaillierter:
Das Transponieren funktioniert. Jedoch würde ich gerne die Stunden 1-24 des Tages 1 untereinander dargestellt haben und dann erst in Zeile 2 springen (diese dann auch von Stunde 1-24 untereinander darstellen).
Vielen Dank nocheinmal :)
Gruß
Charlotte
Anzeige
AW: Mehrere Zeilen in eine Spalte transponieren
27.06.2012 11:46:02
guentherh
Hallo Charlotte,
ich dachte, genau das passiert bei meiner Lösung.
ich habe also noch nicht verstanden, was anders sein soll.
evtl. Beispieldatei?
Gruß,
Günther
AW: Mehrere Zeilen in eine Spalte transponieren
27.06.2012 12:22:26
Case
Hallo, :-)
probiere es mal so:
Option Explicit
Sub Main()
Dim lngTMP As Long
On Error GoTo Fin
Application.ScreenUpdating = False
With Tabelle2
lngTMP = IIf(IsEmpty(.Cells(.Rows.Count, 1)), _
.Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count)
For lngTMP = 1 To lngTMP
.Range(.Cells(lngTMP, 1), .Cells(lngTMP, .Columns.Count) _
.End(xlToLeft).Columns).Copy
.Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Transpose:=True
Next lngTMP
End With
Fin:
With Application
.CutCopyMode = True
.ScreenUpdating = True
End With
If Err.Number  0 Then MsgBox "Error: " & _
Err.Number & " " & Err.Description
End Sub
Wenn Du es öfters machen musst würde ich dann eine schnellere Variante vorschlagen. Für einmalig reicht das. ;-)
Servus
Case
Anzeige
AW: Mehrere Zeilen in eine Spalte transponieren
27.06.2012 12:55:34
Charlotte
Haloo Jungs,
vielen Dank für die schnelle Hilfe des Problems. Genauso habe ich mir das vorgestellt :)
Liebe Grüße
Charlotte
Zeilen per Formel transponieren
27.06.2012 12:42:38
Rudi
Hallo,
Tabelle2!A1: =INDEX(Tabelle1!$A$1:$X$365;GANZZAHL((ZEILE()-1)/24)+1;REST(ZEILE()-1;24)+1)
und runter kopieren.
Gruß
Rudi

313 Forumthreads zu ähnlichen Themen

Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Anzeige
Zeilenmerkmale in Spalten umwandeln
MG_Learning

Hallo zusammen!
Ich habe keine Ahnung, wie ich aus folgender Tabellenstruktur: Beispiel:
A B C
London 20 Kinos
London 50 Gaststätten
London 10 Einkaufscentren
Paris 18...
17.08.2008 18:31:50
Thread-ID: 1002449
4 Beiträge
Jede 2te Zeile in eine Spalte kopieren
Eddie

Guten Morgen @ all
Ich habe mal wieder ein kleines problem :-)
Ich würde gerne Daten, die alle in einer Spalte sind auteilen.... dazu soll entweder der 1,3,5,7.... oder 2,4,6,8 ... Wert immer in die danebenliegende Spalte kopiert werden
IST:
Hallo
Hello
Gut
Good
...
20.08.2008 07:52:00
Thread-ID: 1003065
6 Beiträge
Anzeige
Letzte gefüllte Zeile in einem Feld anzeigen
Hendrik

Hallo zusammen,
bei einer Exceltabelle, die aus ca. 40 freien Zeilen besteht, die sich über die Zeit füllen, soll in Zeile 41 immer die Zahl der letzten gefüllten Zeile angezeigt werden.
Ist das möglich?
Danke im voraus!
Hendrik
28.08.2008 18:36:42
Thread-ID: 1005564
4 Beiträge
nur eine der Spalten darf gefüllt sein
Simon

Hallo,
ich habe glaube ich eine einfache Frage, komme aber nicht drauf Sie selbst zu lösen:
ich habe 4 Spalten: ja; nein; mehr Menge; weniger Menge
dahinter möchte ich eine 5te Spalte Kontrolle setzen. In dieser soll eine Fehlermeldung erscheinen falls mehr als eine Spalte ausgefüll...
01.09.2008 16:15:00
Thread-ID: 1006502
8 Beiträge
Spalten in Zeilen anhängen
Jörg

Hallo zusammen,
in einer Tabelle mit ~1000 Artikeln in Spalte A stehen jeweils in den Spalten B-M die 12 zum Artikel gehörenden Monatswerte des Verbrauchs.
Ich brauche diese Daten jetzt so angeordnet, dass weiterhin alle Artikel in Spalte A stehen, jedoch die einzelnen Monatswerte unter...
01.09.2008 18:03:42
Thread-ID: 1006570
11 Beiträge
Zeilenhöhe und Spaltenbreite in cm - Makro anlegen
Sandra

Wie lege ich ein Makro an - für oben genannte Funktion?
DANKE!!!
02.09.2008 13:53:00
Thread-ID: 1006781
9 Beiträge
Häufigkeit einer Uhrzeit aus einer Spalte
wolfgang

Hallo Leute
Ich habe eine Spalte mit einer menge Uhrzeiten und möchte die Häufigkeit einer Uhrzeit ( wie oft ist eine eintrag vorhanden)zum Beispiel zwischen 08:00 und 17:00!! Ich weiß das für euch sicher ein leichtes ist jemanden wie mir zu helfen!
Schon jetzt besten Dank für eure Mühe...
02.09.2008 14:57:58
Thread-ID: 1006808
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
3
3
5
2
3
7
10
8
8
1
3
3
1
1
2
9
2
2
2
4
4
4
2
5