Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1724to1728
1724to1728
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen in Spalten darstellen

Forumthread: Zeilen in Spalten darstellen

Zeilen in Spalten darstellen
22.11.2019 09:46:34
Peter
Hallo Excel-Forum, ich habe Daten aus einer externen Quelle, die untereinander stehen. Zu jedem Artikel sollen aber die zugehörigen Zeichnungen in den Spalten daneben dargestellt werden. Die Anzahl der Zeichnungen variiert, aber max. 5 Zeichnungen. Weitere Details habe ich in der Datei beschrieben.
Besten Dank schon mal für eure Hilfe.
Gruß Peter
https://www.herber.de/bbs/user/133369.xlsx
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen in Spalten darstellen
22.11.2019 10:23:35
Nepumuk
Hallo Peter,
teste mal:
Option Explicit

Public Sub Tabelle_umstellen()
    Dim lngInputRow As Long, lngOutputRow As Long, lngOutputColumn As Long
    Dim objInputWorksheet As Worksheet, objOutputWorksheet As Worksheet
    Application.ScreenUpdating = False
    Set objInputWorksheet = ActiveSheet
    Set objOutputWorksheet = ThisWorkbook.Worksheets.Add(After:=ActiveSheet)
    objOutputWorksheet.Range("A1:F1").Value = Array("Artikel", "Zeichnung_1", _
        "Zeichnung_2", "Zeichnung_3", "Zeichnung_4", "Zeichnung_5")
    lngOutputRow = 1
    With objInputWorksheet
        For lngInputRow = 4 To .Cells(.Rows.Count, 2).End(xlUp).Row 'Startzeile anpassen !!!
            If Not IsEmpty(.Cells(lngInputRow, 1).Value) Then
                lngOutputColumn = 2
                lngOutputRow = lngOutputRow + 1
                objOutputWorksheet.Cells(lngOutputRow, 1).Value = .Cells(lngInputRow, 1).Value
                objOutputWorksheet.Cells(lngOutputRow, 2).Value = .Cells(lngInputRow, 2).Value
            Else
                lngOutputColumn = lngOutputColumn + 1
                objOutputWorksheet.Cells(lngOutputRow, lngOutputColumn).Value = .Cells(lngInputRow, 2).Value
            End If
        Next
    End With
    objOutputWorksheet.Columns("A:F").AutoFit
    Set objInputWorksheet = Nothing
    Set objOutputWorksheet = Nothing
    Application.ScreenUpdating = True
End Sub

Gruß
Nepumuk
Anzeige
AW: Zeilen in Spalten darstellen
22.11.2019 12:15:10
Peter
Hallo Nepumuk, die VBA-Lösung funktioniert auch super, ist ja bei euch Spezialisten nicht anders zu erwarten.
Jetzt kann ich ins Wochenende gehen :-)
Auch Dir ein dickes Dankeschön.
Gruß Peter
AW: alternativ als Formellösung ...
22.11.2019 10:39:26
neopa
Hallo Peter,
... für z.B. max 996 Datensätze so: Formel D4 nach unten und E4 zusätzlich auch nach rechts weit genug ziehend kopieren:
Arbeitsblatt mit dem Namen 'Tabelle2'
 ABCDEFGHI
3ArtikelZeichnung ArtikelZeichnung_1Zeichnung_2Zeichnung_3Zeichnung_4Zeichnung_5
44711asset_1094334.jpg 4711asset_1094334.jpgasset_1094336.jpgasset_1149512.jpg  
5 asset_1094336.jpg 4712asset_1094339.jpgasset_1094340.jpg   
6 asset_1149512.jpg 4713asset_1094334.jpgasset_1094836.jpgasset_1149612.jpgasset_1149614.jpg 
74712asset_1094339.jpg 4720asset_1094334.jpgasset_1094336.jpgasset_1149512.jpg  
8 asset_1094340.jpg 4727asset_1094334.jpgasset_1094336.jpgasset_1149512.jpg  
94713asset_1094334.jpg 4730asset_1094334.jpgasset_1094336.jpgasset_1149512.jpg  
10 asset_1094836.jpg       
11 asset_1149612.jpg       
12 asset_1149614.jpg       
134720asset_1094334.jpg       
14 asset_1094336.jpg       
15 asset_1149512.jpg       
164727asset_1094334.jpg       
17 asset_1094336.jpg       
18 asset_1149512.jpg       
194730asset_1094334.jpg       
20 asset_1094336.jpg       
21 asset_1149512.jpg       
22         

ZelleFormel
D4=WENNFEHLER(INDEX(A:A;AGGREGAT(15;6;ZEILE(A$4:A$999)/(A$4:A$999>"");ZEILE()-ZEILE(A$3)));"")
E4=WENN(D4="";"";WENN(SPALTE()-SPALTE($E3)&gt=WENN($D5="";999;VERGLEICH($D5;$A:$A;0))-VERGLEICH($D4;$A:$A;0);""; INDEX($B:$B;VERGLEICH($D4;$A:$A;0)+SPALTE()-SPALTE($E3))&""))
Verwendete Systemkomponenten: [Windows (32-bit) NT 6.02] MS Excel 2010
Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

Gruß Werner
.. , - ...
Anzeige
Dickes Dankeschön
22.11.2019 11:44:15
Peter
Hi, ein dickes Dankeschön an euch. Ich habe jetzt erst mal die Formellösung von Werner genommen. Werde aber die VBA-Lösung von Nepumuk auch noch testen.
Super Hilfe.
Danke.
Grüße Peter
AW: bitteschön, gern owT
22.11.2019 11:56:27
neopa
Gruß Werner
.. , - ...
AW: alternativ als Formellösung ...
22.11.2019 13:58:07
Günther
Moin,
und bei wirklich großen Datenmengen bietet sich auch noch Power Query an. ;-)
Gruß
Günther
Anzeige
AW: Zeilen in Spalten darstellen
22.11.2019 14:23:56
Daniel
Hi
probier mals das Makro, passend für die Beispieldatei
Sub test()
With Cells(3, 1).CurrentRegion
With .Columns(.Columns.Count + 1)
.FormulaR1C1 = "=RC2&IF(R[1]C1="""","";""&R[1]C,"""")"
.Formula = .Value
.TextToColumns Destination:=.Cells(1, 1), _
DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _
Tab:=False, Semicolon:=True, Comma:=False, Space:=False, Other:=False
End With
.Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
End Sub
Gruß Daniel
Anzeige
;

Forumthreads zu verwandten 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
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
Zelleninhalt (Text) in 2 Spalten teilen
El.

Hallo!
Habe eine Spalte in der Artikelname und Artikelmerkmale, durch drei Punkte getrennt "...", zusammen stehen. Beispiel: Lecker Whisky 21 Jahre ... Lieferung in hochwertiger Schatulle
Wie krieg ich nun den Text links der Punkte in eine extra Spalte und rechts der Punkte in eine extr...
03.09.2008 16:35:00
Thread-ID: 1007155
4 Beiträge
wie Spalten in einem Arbeitsblatt zu Zeilen zusamm
Michael

Moin erstmal,
folgendes Problem als mittelmäßiger Anwender.
Ich habe mehrere identische Arbeitsblätter wo ich jeweils untereinander (eine Spalte) mehrer Werte habe. G1-G10.
Diese Werte möchte ich in einem Arbeitsblatt zusammenfassen , allerdings nun in einer Zeile. A1-J1.
Wi...
04.09.2008 19:48:05
Thread-ID: 1007497
4 Beiträge
Spaltentrennzeichen nach speichern in Text-Datei
Michael

Hallo
ich habe ein Problem. Vielleicht ist es schwierig, vielleicht aber auch nicht.
Ich habe eine Text-Datei mit Spaltentrennzeichen "|" (besser als ";" der Übersichtlichtlichkeit halber) und verschiedenen Längen der Spalten.
Ich will diese in Excel überarbeiten und als Text-Dat...
11.09.2008 09:28:00
Thread-ID: 1008978
3 Beiträge
Text in Spalten
Simone

Hallo zusammen,
ich hab ein wohl eher triviales Problem, komme aber trotzdem einfach nicht weiter.
Ich füge in ein Arbeitsblatt Daten aus einem anderen Programm ein. Jetzt habe ich mehrmals die Funktion 'Text in Spalten' verwendet / ausprobiert, und wenn ich jetzt wieder Daten in A1 ein...
16.09.2008 13:54:00
Thread-ID: 1010092
3 Beiträge
Zeilen löschen in Abhängigkeit von 2 Spalten
2

Hallo zusammen,
ich habe ein Makro über den Rekorder aufgezeichnet und versuche es anzupassen. Leider kenn ich mich in der Syntax nicht aus.
Ziel:
In einem markierten Bereich die Zeilen löschen, die in Abhängigkeit von zwei Spalten eine 0 enthalten.
D.h. Spalten X und Y enthalte...
06.10.2008 14:00:00
Thread-ID: 1014434
3 Beiträge
TextBox Werte in Spalte Q ersetzen ?
Selma

Hallo Leute,
ich habe eine Frage zu UserForm. Beim Klick auf CommandButton1 sollen die Zahlen aus TextBox1 mit Werten in Spalte Q ab Zeile 12 ersetzt werden. Dies soll nur dann erfolgen, wenn in TextBox1 die Zahlen stehen bzw. der TextBox gefüllt ist.
Ersetzt sollen nur die vorhandene W...
13.10.2008 15:42:00
Thread-ID: 1016083
3 Beiträge
Text in Spalten
Tom

Hallo,
ich möchte mit der Funktion Text in Spalten erreichen, dass alle Zeilen, die mit einer Zahl beginnen, nach der Zahl in eine neue Spalte geschoben werden - nur finde ich hierfür nur die Funktionen nach Leerzeichen, Komma usw...
Wer hat ne Lösung?
In A1: 1020 Maier Huber Mülle...
20.10.2008 14:09:42
Thread-ID: 1017654
7 Beiträge
Pivot - Text in Spalte überführen
Binu

Hallo
Ich hab in der Beispieldatei die Spalte "Zahl", welche ich in einer Pivotdatei ebenfalls als Spalte neben der Spalte "TExt" hinzufügen will. Nur kriege ich das nicht hin. Kann mir da jemand helfen? Besten Dank!
Gruss Albin
https://www.herber.de/bbs/user/56492.xls
04.11.2008 11:04:36
Thread-ID: 1021516
4 Beiträge
Anzeige
Text in Spalte nicht Spalte sondern Bereich
mehmet

Hallo Forum,
ich habe mit dem Makrorekorder "Text in Spalte" aufgezeichnet.
Wollte diese nun ändern für ein Bereich (Q4:Q60) statt Spalte (Q:Q).
Warum geht das nicht?
Private Sub CommandButton1_Click() ' Makro1 Makro ' Makro am 20.11.2008 von pc aufgezeichnet Sheets("Tabelle4"...
20.11.2008 17:10:38
Thread-ID: 1026492
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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