Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1868to1872
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
1868to1872
1868to1872
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Jeweils 3 Zeilen zu einer zusammenfassen

Jeweils 3 Zeilen zu einer zusammenfassen
03.02.2022 15:49:44
Franz
Hallo,
in meiner Ausgangstabelle stehen jeweils 3 zusammengehoerige Zeilen hintereinander:
1. Zeile: n Spalten
2. + 3. Zeile: jeweils eine Spalte
Ich moechte eine Tabelle erstellen, in der fuer jeden oben beschriebenen "Dreier-Pack" nur noch eine Zeile steht:
Spalten 1-n aus 1. Ursprungszeile
Spalte n+1: Inhalt Spalte 1 aus 2. Ursprungszeile
Spalte n+2: Inhalt Spalte 1 aus 3. Ursprungszeile
Mini Beispieldatei ist hier: https://www.herber.de/bbs/user/150835.xlsx
Habe trotz Suche hier im Forum noch keine Loesung hingekriegt. Bin fuer alle Tipps dankbar!
Danke und viele Gruesse
Franz

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

Betreff
Datum
Anwender
Anzeige
AW: Jeweils 3 Zeilen zu einer zusammenfassen
03.02.2022 16:12:49
Daniel
Hi
Ich würde in E1 und F1 folgende Formeln einfügen:
E1: =Wenn(D1="";"";A2)
F1: =Wenn(D1="";"";A3)
Beide Formeln nach unten ziehen.
Spalten E:F kopieren und als Wert einfügen
Mit dem Autofilter in Spalte B nach Leer filtern und diese Zeilen löschen.
Gruß Daniel
das geht aber nicht mit n Spalten. owT
03.02.2022 16:23:53
Rudi
AW: das geht aber nicht mit n Spalten. owT
03.02.2022 18:21:32
Daniel
Kommt darauf an, wenn n über alle Zeilen gleich ist so wie im Beispiel, dann gehts.
(Wer nur betreffzeilen schreibt, hat nicht wirklich was zu sagen)
OT: Wie kommst du darauf, ...
04.02.2022 01:46:26
Luc:-?
…Daniel?
Rudi hatte schon 2 Stunden eher was zu sagen! :->
Morhn, Luc :-?
AW: Jeweils 3 Zeilen zu einer zusammenfassen
03.02.2022 16:16:13
KlausFz
Ich würd's so machen:
https://www.herber.de/bbs/user/150838.xlsx
Gruß!
Klaus
Anzeige
AW: Jeweils 3 Zeilen zu einer zusammenfassen
03.02.2022 16:22:01
Rudi
Hallo,
um wie viele Zeilen geht es denn?
Geht garantiert schnelle aber funzt:

Sub aaa()
Dim lRow As Long, vntTmp, strTmp, lOut As Long
Application.ScreenUpdating = False
For lRow = 1 To Cells(Rows.Count, 1).End(xlUp).Row Step 3
vntTmp = Cells(lRow, 1).Resize(, Application.CountA(Rows(lRow)))
vntTmp = Application.Transpose(vntTmp)
vntTmp = Application.Transpose(vntTmp)
strTmp = Join(vntTmp, "|") & "|" & Cells(lRow + 1, 1) & "|" & Cells(lRow + 2, 1)
vntTmp = Split(strTmp, "|")
lOut = lOut + 1
Sheets("Zieltabelle").Cells(lOut, 1).Resize(, UBound(vntTmp) + 1) = vntTmp
Next
End Sub
Gruß
Rudi
Anzeige
AW: Jeweils 3 Zeilen zu einer zusammenfassen
03.02.2022 23:09:47
Yal
Hallo Rudi,
Nice! Das doppelte Transpose werde ich mit Sicherheit oft misbrauchen ;-)
Wer mag's minimalistisch?

Sub aaa()
Dim R As Range
Const T = "|"
With Application
.ScreenUpdating = False
Set R = Range("A1")
Do While R  ""
Sheets("Zieltabelle").Cells(Int(R.Row / 3) + 1, 1).Resize(, .CountA(Rows(R.Row)) + 2) = _
Split(Join(.Transpose(.Transpose(R.Resize(1, .CountA(Rows(R.Row))))), T) & T & R.Offset(1) & T & R.Offset(2), T)
Set R = R.Offset(3)
Loop
End With
End Sub
genau dein Code, nur "kompakter".
VG
Yal
AW: Jeweils 3 Zeilen zu einer zusammenfassen
03.02.2022 21:27:28
Franz
Vielen Dank schon mal fuer die ganzen Hinweise !!!
Habe alle ausproboiert und it allen kann ich hinkriegen was ich will :). Da ich oefter solche Daten verarbeiten will und diese in der Praxis etwas komplexer sein koennen, passt fuer mich wohl die Makro-Variante am besten. Um es anpassen zu koennen bin ich hier aber noch dabei das Beispiel zu verstehen ...
Anzeige
AW: Jeweils 3 Zeilen zu einer zusammenfassen
03.02.2022 22:49:28
Daniel
Hi
Noch ein einfaches Makro

with Range("A1").currentregion
With .Columns(.Columns.count + 1).resize(, 2)
.Columns(1).formulaR1C1 = "=If(RC2="""","""", R[1]C1)"
.Columns(2).formulaR1C1 = "=If(RC2="""","""", R[2]C1)"
.Formula = .Value
Ende With
.Columns(2).SpecialCells(xlcelltypeblanks).entirerow.delete
Ende with
Anpassung an die Größe der Tabelle erfolgt automatisch.
Gruß Daniel

79 Forumthreads zu ähnlichen Themen

Letzten 3 geänderten Zeilen in einer Zelle anzeige
Tobias

Ich hab schon eine Funktion, die mir bei jeder änderunng in einer Zeile einen Datumsstempel in Spalte D schreibt.
Ich möchte nun in EINER Zelle die 3 Werte von Spalte A anzeigen, die bei Spalte D das neueste Datum anzeigen. (Es reichen die letzten 3 Werte, kommagetrennt...)
(Wie) kann...
20.02.2009 08:56:00
Thread-ID: 1052332
14 Beiträge
Anzeige
Anzahl Zeilen in einer Zelle
Maik.F

Hallo Excel-Freunde,
ich habe eine Zelle so formatiert, daß Zeilenumbrüche zugelassen sind. In einigen Zellen können bis zu fünf Zeilen entstehen. Die Zeilenumbrüche werden NICHT durch ALT + ENTER erzeugt, sondern entstehen aufgrund der Textlänge.
Gibt es eine Möglichkeit, die Anzahl de...
26.06.2009 18:24:20
Thread-ID: 1084680
18 Beiträge
Anzahl Zeilen(umbrüche) in einer Zelle ermitteln
Andreas

Hallo Excel-Profis
Ich hoffe ihr könnt mir bei folgenden Problem helfen:
Gibt es eine Formel mit deren Hilfe sich die Anzahl der Zeilen oder Zeilenumbrüche in einer Zelle (verbundenen Zelle) ermitteln lässt?
Ich bedanke mich im Voraus für alle Tipps und Lösungen
07.10.2009 14:55:35
Thread-ID: 1107846
3 Beiträge
Anzeige
Zeilen ausblenden in Abhängigkeit einer Zelle
Nico

Hallo,
ich habe ein kleines Problem und würde mich sehr freuen, wenn mir jemand helfen könnte.
In meiner Tabelle (Excel 2003) ist in Zelle B27 eine Liste (mittels Daten/Gültigkeit) eingefügt, aus der man nur „Ja“ oder „Nein“ auswählen kann. Immer wenn Zelle B27 den Wert „Ja“ annimmt, so...
18.03.2010 20:51:03
Thread-ID: 1146980
6 Beiträge
Mehrere Zellen in Eine kopieren, Zeilenumbruc
Chris

Hallo Excel/VBA Gemeinde :)
Ich stehe vor einem für mich aktuell unlösbaren Problem und benötige an dieser Stelle prof. Hilfe, da mein Können/Wissen mich hier im Stich lässt.
Folgende Ausgangssituation:
Ich hab zwei Tabellenblätter "x" und "y".
Im Tabellenblatt "x" hat man die M...
24.02.2011 10:09:12
Thread-ID: 1202693
10 Beiträge
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...
27.06.2012 10:56:34
Thread-ID: 1269058
13 Beiträge
zwei Zeilen mit gleicher Kopfnummer in einer Zeile
VBA_JGE

Hallo zusammen,
ich möchte gerne eine CSV oder TXT Datei auslesen, was auch soweit schon sehr gut funktioniert! Hier ist aber die Hürde, dass diese Datei auch Zeilen aufweißt, wo die Kopfnummer gleich ist
Beispiel:
40,VBA,27,DRS,CGN,2011-12-05 08:20:00,2011-12-05 09:30:00,,,,,,,
...
24.01.2013 13:16:00
Thread-ID: 1295808
4 Beiträge
Infos mehrerer Zeilen zusammenfassen in eine Zeile
Fabian

Hallo zusammen,
folgendes Problem: Ich habe eine Datei mit folgender Struktur:
abc def ghi ID1
fde adf sdf ID1
asd wer wew ID2
we3 as3 as2 ID3
we1 oud jhl ID3
pow mnl hnw ID3
Als...
22.05.2013 14:17:38
Thread-ID: 1314345
2 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
13
4
17
2
3
5
9
12
3
1
5
4
8
1
6
2
2
9
10
9
2
6
3
1
12