Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1248to1252
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
1248to1252
1248to1252
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datenblöcke von untereinander nach nebeneinander

Datenblöcke von untereinander nach nebeneinander
untereinander
Hallo zusammen,
nach einiger Internetrecherche würde ich hier gern mein Problem vorstellen:
Ich habe ein Arbeitsblatt, in dem von B:M Datensätze stehen, die jeweils 32 Zeilen lang sind.
Das ganze geht dann circa 6000 Zeilen lang nach unten. In Spalte A steht dementsprechend für jeden Datensatz dieselbe Beschriftung immer untereinander.
Ich würde das ganze gerne aufbereiten. Ich habe es bereits via Makro aufzeichnen versucht, aber irgendwie funktioniert das nicht. Ein klassisch Transponier-Problem ist es auch nicht.
Mein Ziel ist, dass die Datensätze von B1:M32 und dann B33:M64 und dann B65:M96 alle nebeneinander dargestellt werden.
Könnt ihr mir dabei weiterhelfen?
Mit besten Grüßen
waverd

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Datenblöcke von untereinander nach nebeneinander
10.02.2012 14:58:30
untereinander
Hallo,
wenn ich Dich richtig verstanden habe, ist der Bereich B1:M32 1 Datensatz und soll nebeneinander in eine einzige Zeile (also mit insgesamt 385 Spalten).
Da in A pro Datensatz immer die gleichen Einträge sind, würde ich an Deiner Stelle das ganze als CSV speichern und anschließend per Suchen und Ersetzen die betreffenden ENTER durch TAB ersetzen.
Gruß
Dieter
AW: Datenblöcke von untereinander nach nebeneinander
10.02.2012 15:12:35
untereinander
Hi,
danke für deine Antwort - nein, vielleicht ist meine Begriffswahl unglücklich. Ich habe hier folgendes:
B1:M32 ist ein Block Daten. In A1:32 steht die Zeilenbeschriftung (Name, Ort, etc.) und in B1:M1 steht die Identifikationsnnummer. Sagen wir das sei Block A.
Darunter steht nun Block C. Unter diesem wiederum Block D und so weiter. Jeweils mit der selben Zeilenbeschriftung, aber jeweils anderen Identifikationssnummern.
Ein Beispiel für den derzeitigen Stand:
Name 100 101 102
Ort Bremen Bayreuth Berlin
XYZ ... ... ...
Name 802 803 806
Ort Aachen Musterstadt München
XYZ ... ... ...
Name
Ort
[...]
Daher möchte ich gerne Block A neben Block B, daneben Block C und so weiter stehen haben:
Name 100 101 102 802 803 806 usw.
Ort
XYZ
Ist es so verständlicher?
BG waverd
Anzeige
AW: Datenblöcke von untereinander nach nebeneinander
10.02.2012 15:13:22
untereinander
Sry verklickt, Frage ist noch offen.
Rückfrage : Tabellenaufbau
10.02.2012 15:15:42
NoNet
Hallo Waver,
habe ich den Tabellenaufbau SO richtig verstanden (hier : Datensätze in Spalten C:D, je 3 Zeilen lang, in Spalte A jeweils die 3 Beschriftungen) :
ABC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

Wenn nicht : poste doch bitte mal einen kleinen Ausschnitt Deiner Tabelle !
Gruß, NoNet
Anzeige
Vorschlag
10.02.2012 17:50:02
Erich
Hallo,
probier mal (Formel von A1 nach unten, von B1 nach unten und nach rechts kopieren):
 AB
1ID100
2NamePeter

Formeln der Tabelle
ZelleFormel
A1=QQQQ!A1
B1=INDEX(QQQQ!$B$1:$K$6999;1+32*KÜRZEN((SPALTE()-1)/10)+REST(ZEILE()-1;32); 1+REST(SPALTE()-2;10))
A2=QQQQ!A2
B2=INDEX(QQQQ!$B$1:$K$6999;1+32*KÜRZEN((SPALTE()-1)/10)+REST(ZEILE()-1;32); 1+REST(SPALTE()-2;10))

Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich
Anzeige
neuer Versuch
10.02.2012 18:24:28
Erich
Hi,
mein Vorschlag hatte noch einen Fehler - hier sind hoffentlich weniger drin:
 AB
1ID100
2NamePeter

Formeln der Tabelle
ZelleFormel
A1=QQQQ!A1
B1=INDEX(QQQQ!$B$1:$K$6999;1+32*KÜRZEN((SPALTE()-2)/10)+REST(ZEILE()-1;32); 1+REST(SPALTE()-2;10))
A2=QQQQ!A2
B2=INDEX(QQQQ!$B$1:$K$6999;1+32*KÜRZEN((SPALTE()-2)/10)+REST(ZEILE()-1;32); 1+REST(SPALTE()-2;10))

Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich
Anzeige
AW: neuer Versuch
10.02.2012 20:26:16
Waverd
Hey,
danke für deine tolle Lösung. Nun ist bei mir das Problem aufgetaucht, dass nicht alle "Blöcke" gleich lang "in Zeilen " sind, d.h. einige sind 36 Zeilen lang und andere nur 32 Zeilen.
Ich hab schon daran gearbeitet. Ich brauche nur einen VBA-Code, der in Spalte A nach einer Zelle mit dem Inhalt "Dummy1" sucht und über dieser Zelle eine neue leere Zeile einfügt.
Kannst du das? Wenn das klappen würde, könnte ich deinen ersten/zweiten Lösungsvorschlag ganz toll und einfach übernehmen.
AW: neuer Versuch
10.02.2012 20:38:02
Waverd
Ich hab schon mit folgendem Versuch gespielt, aber der bewirkt nichts (auch keine Fehlermeldung):
Sub LeerZeile()
Dim a As Range
Dim i As Integer
With Sheets("Table1")
i = Cells(Rows.Count, 1).End(xlUp).Row '.Offset(1, 0).Select
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If UCase(Cells(i, 1).Value) Like "Dummy1" Then
Cells(i - 1, 1).EntireRow.Insert
End If
Next
End With
End Sub

Anzeige
AW: neuer Versuch - Code
11.02.2012 01:13:36
Erich
Hi,
probier mal 

Option Explicit
Sub LeerZeile()
Dim ii As Long ' bei Zeilennummern immer besser als Integer
With Sheets("Table1")
For ii = .Cells(.Rows.Count, 1).End(xlUp).Row To 1 Step -1
If LCase(.Cells(ii, 1)) = "dummy1" Then .Rows(ii).Insert
Next ii
End With
End Sub
Wofür wurde vor der Schleife das i berechnet? Die Schleife ändert es sofort.
Warum schriebst du "Like"?
"With Sheets("Table1")" ist völlig wirkungslos, wenn danach kein Ausdrucck kommt, der mit einem Punkt beginnt.
Es könnte sein, dass "With" gar nicht gebraucht wird - hängt vom Zusammenhang ab.
Cells(i - 1, 1).EntireRow ist einfach Rows(i-1)
Mit meinem Code wird die neue Zeile über der dummy-Zeile mit Rows(i).Insert eingefügt.
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich
Anzeige
AW: neuer Versuch - Code
11.02.2012 17:39:49
Waverd
Super, herzlichen Dank. Hab es damit umbauen können.
Ein schönes Wochenende wünsche ich!
BG waverd

300 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
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
Anzeige
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
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
Text autom. in Excel-Spalten einsortieren
Annalena49

Hallo,
habe eine (für mich) ungewöhnliche Datendatei, ähnlich CSV ist aber keine CSV. Hier ein Beispiel einer Excel-Zeile:
10153-8158 10194 1023007 1025250000 102950600 1030LP 1032EUR 1029880000 1032EUA 11010100001 1102UM 110105586724 1102KN 11019783815860847 1102EN 11013815860849 110...
05.12.2008 20:54:02
Thread-ID: 1030586
3 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
10
3
3
2
2
2
6
2
2
2
4
5
4
2
5
3
4
28
6
1
5
5
5