Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
508to512
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
508to512
508to512
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen in Spalten

Zeilen in Spalten
30.10.2004 11:15:29
N.
Hallo Freaks,
ich habe in einer Datei nur in Spalte A Daten von Kunden. Diese Daten können für einen Kunden mal 2 Zeilen aber auch mal 10 Zeilen umfassen. Bevor der nächste Kunde kommt, ist immer eine Leerzeile.
Wie bekomme ich mit VBA die Daten für jeden Kunden nebeneinander in Spalten ?
Gruß
Norbert

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilen in Spalten
=Peter=
Ich weiss nicht ob ich dich richtig verstanden habe, aber für mich hört sich das nach Transponieren an.
Versuch mal folgendes: Markiere die entsprechenden Zeilen der Spalte A - Strg-C - Wechsele in ein neues Tabellenblatt - Bearbeiten - Inhalte einfügen - Transponieren - Ok
War es das?
Gruss
Peter
AW: Zeilen in Spalten
N.
Hallo Peter,
dann dürfte ich ja maximal 256 Zeilen in Spalte A mit Einträgen haben, da Excel nur 256 Spalten hat..... Ich habe in A aber ca. 1000 Kunden mit zwei bis ca. 10 Zeilen.
Gruß
Norbert
AW: Zeilen in Spalten
=Peter=
Du hast das Problem richtig erkannt. Es stellt sich natürlich die Frage was du vorhast und ob für dein Vorhaben Excel das richtige Programm (Excel ist und bleibt ein Tabellenkalkulationsprogramm) ist oder ob nicht ein Datenbankprogramm besser geeignet wäre.
BTW: Habe ich dein Ausgangsproblem zumindest richtig erfasst?
Gruss
Peter
Anzeige
AW: Zeilen in Spalten
N.
Hallo Peter,
zunächst vielen Dank für Deine Antworten. Du kannst sicher sein, daß ich Excel und seine Grenzen gut kenne und daß ich ziemlich genau weiß, wann ich Access, Lotus Approach oder Oracle einsetze.
Im vorliegenden Falle habe ich eine Importdatei aus einem Fremdprogramm. Alle Infos stehen, wie beschrieben, in Spalte A. Z.B. steht in A1 der Kunde Müller und in A2 bis A6 Daten zu diesem Kunden Müller.
Dann kommt eine Leerzeile. In A8 steht dann der Kunde Meier und in den Zeilen A9 bis A 19 Daten zu diesem Kunden Meier.
Beim Umsetzen der Kundeninformationen in Spalten will ich natürlich die Informationen zum Müller in A1 bis Spalte x und die Informationen zum Meier in A8 bis Spalte x.
Da ist nichts mit globalem Transponieren. Das ganze kann übrigens auch nur über VBA gehen, weil ich ja die jeweilige Leerzeile abfragen muß, um dann in einer Schleifenstruktur entsprechend der (unterschiedlichen) Zahl der Datenzeilen beim einzelnen Kunden den Versatz in die Spalten vorzunehmen.
Gruß
Norbert
Anzeige
AW: Zeilen in Spalten
30.10.2004 11:49:34
Josef
Hallo Norbert!
Versuch's mal damit:

Sub Transpose_Data()
Dim wksD As Worksheet
Dim wksT As Worksheet
Dim lngR As Long
Dim lngC As Long
Dim lngRow As Long
Dim intC As Integer
Set wksD = Sheets("Tabelle1") 'Tabelle mit deinen Daten
Set wksT = Sheets("Transponiert")   'Tabelle mit Transponierten Daten
'Tabellennamen anpassen
lngRow = 1
intC = 1
lngR = wksD.Range("A65536").End(xlUp).Row
For lngC = 1 To lngR
If wksD.Cells(lngC, 1) <> "" Then
wksT.Cells(lngRow, intC) = wksD.Cells(lngC, 1)
intC = intC + 1
Else
intC = 1
lngRow = lngRow + 1
End If
Next
End Sub

Gruß Sepp
Anzeige
AW: Zeilen in Spalten
N.
Hallo Sepp,
passt. Vielen Dank, funktioniert Spitze.
Gruß
Norbert
AW: Zeilen in Spalten
30.10.2004 11:38:21
Nepumuk
Hallo Norbert,
wie ist der Tabellenaufbau im Moment?
Beispiel: (Die Nummern beziehen sich auf die Zeilennummern)
1 Überschrift
2 Kunde1
3 Kunde1
4 Leerzeile
5 Kunde2
6 Leerzeile
7 Kunde3
usw.
Wie soll sie fertig aussehen?
Beispiel:
1 Überschrift
2 Kunde1 | Kunde1
3 Kunde2
4 Kunde3
usw.
Du solltst mir aber nicht die ganze Tabelle auflisten, sondern nur ein paar Zeilen, damit ich mir das vorstellen kann.
Gruß
Nepumuk
AW: Zeilen in Spalten @Nepumuk
N.
Hallo Nepumuk,
Ist
1 Kunde 1
2 1. Info zu Kunde 1
3 2. Info zu Kunde 1
4 Leerzeile
5 Kunde 2
6 1. Info zu Kunde 2
7 2. Info zu Kunde 2
8 3. Info zu Kunde 2
Leerzeile
usw.
Soll
1 Kunde1 | 1. Info zu Kunde 1 | 2. Info zu Kunde 1
2 Kunde2 | 1. Info zu Kunde 2 | 2. Info zu Kunde 2 | 3. Info zu Kunde 2
usw.
Ich denke, so wird's klarer.
Gruß
Norbert
Anzeige
Vielen Dank...
N.
an Peter, Nepumuk und Sepp. Sepps Code hat die Lösung gebracht.
Gruß
Norbert

305 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
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
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
2
6
3
2
2
2
2
4
4
8
4
5
4
2
5
3
4