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
1000to1004
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
1000to1004
1000to1004
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Aneinanderreihen von Zeilen

Aneinanderreihen von Zeilen
13.08.2008 10:27:00
Zeilen
Hi zusammen!
Ich habe eine riesige automatisch erzeugte Liste, bei der zu einem Artikel gehörende Daten auf mehrere Zeilen verteilt sind; Problem: manchmal auf zwei, manchmal auf drei Zeilen. Das Merkmal, mit dem jeder neue Artikel anfängt, ist das Datum im Format xx.xx.20xx in der ersten Spalte.
Ich bräuchte daher ein Skript, das durch das Datum "erkennt", daß ein neuer Artikel anfängt und die Zeilen bis zu diesem nächsten Artikel jeweils zu einer einzigen Zeile aneinanderreiht.
Ich habe mal eine beispielhafte Datei hochgeladen (https://www.herber.de/bbs/user/54567.xls
)!
Vielen Dank für Eure Mühe!
Gruß
alina

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Aneinanderreihen von Zeilen
13.08.2008 10:42:00
Zeilen
Hallo,
hatten wir das nicht letztens erst?
Du hast doch Code bekommen. Was ist damit?
Gruß
Rudi

AW: Aneinanderreihen von Zeilen
13.08.2008 10:56:11
Zeilen
Hi Rudi,
ja, das ist richtig, aber wie ich später nach manchen merkwürdigen "Arbeits-Ergebnissen" des Scripts entdeckte, sind die Artikel mal zwei und mal drei Zeilen "lang" - das hatte ich erst später bemerkt.
Gruß
ALina

AW: Aneinanderreihen von Zeilen
13.08.2008 11:24:20
Zeilen
Hallo,
ist in der 3.Zeile immer nur die Ergänzung zur Art-Bezeichnung, oder wie sieht das aus?
Soll die Art-Bez. entsprechend ergänzt werden oder eigenes Feld?
Gruß
Rudi

AW: Aneinanderreihen von Zeilen
13.08.2008 12:01:06
Zeilen
Wenn die 3. Zeile besteht, dann besteht sie aus der Ergänzung zur Artikelbezeichnung. Ich brauche sie nicht unbedingt, sie könnte auch gelöscht werden, ich hätte aber auch keine Probleme, wenn sie in einem eigenen Feld "rechts" angehängt würde...
Gruß
Alina

Anzeige
AW: Aneinanderreihen von Zeilen
13.08.2008 12:35:37
Zeilen
Hallo,

Ich brauche sie nicht unbedingt


das macht die Sache einfacher


Sub tt()
'© Rudi Maintaire, 2008/08
Dim i As Long, j As Integer, k As Integer, n As Long
Dim arrDaten()
'Kopfzeile
n = 1
ReDim Preserve arrDaten(1 To 16, 1 To n)
For j = 0 To 1
For k = 1 To 8
arrDaten(k + j * 8, n) = Cells(1 + j, k)
Next
Next
'Daten lesen
For i = 3 To Range("A1").CurrentRegion.Rows.Count
If IsDate(Cells(i, 1)) Then
n = n + 1
ReDim Preserve arrDaten(1 To 16, 1 To n)
For j = 0 To 1
For k = 1 To 8
arrDaten(k + j * 8, n) = Cells(i + j, k)
Next
Next
End If
Next i
'Daten in neues Blatt
Worksheets.Add
Cells(1, 1).Resize(n, 16) = WorksheetFunction.Transpose(arrDaten)
End Sub


Gruß
Rudi

Anzeige
AW: Aneinanderreihen von Zeilen
13.08.2008 13:17:00
Zeilen
Hey Rudi,
supervielen Dank, genauso wollt ichs haben!!!
GLG
Alina

299 Forumthreads zu ähnlichen Themen

automatisches Erstellen von pdf
pdf

Hallo alle zusammen,
ich nutze seit Monaten ein VBA zum automatischen Erstellen von PDF's. Grundlage war eine Muster aus Eurem Archiv Print to pdf von Ramses; habe ich auf meine Anforderungen angepasst.
Hat auch immer klaglos funktioniert.
Nun auf einmal Laufzeitfehler '429' Objekte...
07.08.2008 17:02:59
Thread-ID: 1000034
8 Beiträge
Anzeige
fehler beim speichern - zellname existiert nicht
t4z

Hallo Leute,
folgendes Problem:
Will nach zahlreichen Änderungen in Datei A die Änderungen darin speichern. Kurz vor Ende des Speichervorgangs kommt dann die Fehlermeldung
"Microsoft Excel kann die Formel in der Zelle (Name:[Dateiname.xls]Tabellenname!solver_val) nicht konvertieren,...
07.08.2008 17:53:00
Thread-ID: 1000056
4 Beiträge
Arbeitsblätter zählen und Ergebnis verarbeiten
Botti

Hallo Leute,
heute habe ich wieder mal ein einfaches Problem für Euch, an dem ich aber nicht weiter kommen:
Ich möchte die Arbeitsblätter in meiner Arbeitsmappe zählen. Das ist ja kein Problem (ThisWorkbook.sheets.count).
wenn das makro mehr als ein Arbeitsblatt zählt (also das Erge...
07.08.2008 19:11:30
Thread-ID: 1000078
8 Beiträge
Anzeige
Cursor springt in die Pampa - MultiLine TextBox
Kilo

Hallo liebe VBA Profis
ich bin auf ein für mich nicht lösbares Problem - vielleicht sogar Phänomen gestoßen...
Leider kann ich keine Phänomene dieser Art gebrauchen.
Damit es für Sie etwas anschaulicher wird, hab ich mein Problem als Beispiel (https://www.herber.de/bbs/user/54427.xl...
07.08.2008 20:31:08
Thread-ID: 1000095
2 Beiträge
Leeren von Textfeldern
Textfeldern

Hallo
brauch mal wieder Hilfe!
in meiner Userform sind einige Textboxen und comboboxen mit Werten zur weiteren Berechnung gefüllt.
jetzt die Frage: Gibt es einen Möglichkeit mit einen CommantButton alle Inhalte der textboxen und Comboboxen mit einem Click zuleeren um sie neu zubefül...
07.08.2008 22:26:00
Thread-ID: 1000114
11 Beiträge
Farbige Zellen suchen und Zuordnung auflisten
Excel-Opfer

Hallo zusammen,
ich hab nicht so die Ahnung von Makros und Automationen im Excel, bräuchte allerdings "dringend" eine Vereinfachung meines Excelchaos.
es dreht sich um folgende Problematik:
ich muss diverse Dienstpläne in unsere Personalplanung einarbeiten, leider liefert eine Abtei...
08.08.2008 06:47:00
Thread-ID: 1000143
16 Beiträge
Komplizierte Wenn-Formel für kicker-Spiel
Frank

Hallo miteinander,
ich möchte eine Excel-Datei für das offizielle Fussball-kicker-Managerspiel erstellen, leider scheitere ich total an (vermutlich) den WENN-Formeln ..... vielleicht ist das aber auch gar nicht möglich, was ich erreichen möchte :-(
In der Tabelle sollte man in Spalte A...
08.08.2008 07:28:06
Thread-ID: 1000146
4 Beiträge
Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 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
7
3
3
7
3
1
10
15
3
7
2
10
2
3
2
4
9
1
20
9
13
5
2
8
5