Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1664to1668
1664to1668
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalteneinträge in separate Zeilen schreiben

Forumthread: Spalteneinträge in separate Zeilen schreiben

Spalteneinträge in separate Zeilen schreiben
13.01.2019 16:00:53
Richi
Hallo Zusammen
Irgendwas ging schief bei meiner ersten Anfrage. Darum nochmals der selbe Beitrag.
Wer könnte mir bei einer kniffligen Lösung helfen?
Ich habe ein grössers File welches eine fünfjahres Planung abdeckt(Range A3:NO2993). Zeitstrahl auf Wochenbasis.
Ich möchte folgendes machen:
- Die Auslesung soll in einem separaten ExcelFile "Planungsdaten in Zeilen.xlsx" erstellt werden.
- Musterfile siehe Link. Die gelb hinterlegten Zeilen definieren den jeweiligen Zeitrange einer Fahrzeugüberholung (immer 19 Zeilen). Diese Einträge möchte ich jeweils in einer neuen Zeile hinterlegen.
- Final sollte das File folgende Infos aufweisen siehe Tabelle 2 in Muster.
https://www.herber.de/bbs/user/126673.xlsx
Für eure Hilfe schon jetzt ein herzliches Dankeschön
Gruss Richi
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalteneinträge in separate Zeilen schreiben
14.01.2019 18:10:55
Matthias
Moin!
In deiner Beispielmappe sind in Tabelle2 (dem Wunschergebnis) in Spalte 8 und 9 DatumStart und DatumEnde angeben. Die kann ich in den Rohdaten in Tabelle1 nicht finden. Werden die berechnet? Wenn ja wie?
VG
AW: Spalteneinträge in separate Zeilen schreiben
15.01.2019 00:46:33
Richi
Besten Dank Matthias
Das hat geklappt.
Die Formel zur Berechnung des Wochenbeginn (Montag)ist:
"=DATUM(G2;1;1)+(F2-WENN(WOCHENTAG(DATUM(G2;1;1);2)>4;0;1))*7-WOCHENTAG(DATUM(G2;1;1)+(F2-WENN(WOCHENTAG(DATUM(G2;1;1);2)>4;0;1))*7;2)+1 G2 = Jahr / F2 = Woche
Die Formel zur Berechnung des Wochenendes (Freitag)ist:
"=DATUM(G2;1;1)+(F2-WENN(WOCHENTAG(DATUM(G2;1;1);2)>4;0;1))*7-WOCHENTAG(DATUM(G2;1;1)+(F2-WENN(WOCHENTAG(DATUM(G2;1;1);2)>4;0;1))*7;2)+5 G2 = Jahr / F2 = Woche
Liebe Gruess
Richi
Anzeige
AW: Spalteneinträge in separate Zeilen schreiben
15.01.2019 10:30:30
Matthias
Moin!
Dann hier mal die Anpassung dazu. Schau aber bitte mal. In deinem Beispiel geht bei Zeile 6 der Ergebnisse das Datum am 11.06.19 los. Die Formel und der Kalender sagen aber 10.06.19. Der Ergebnis wird immer noch in Tabelle3 eingetragen. Da der Code etwas breit ist könntenbei den Formel Umbrüche drin sein. Die einfach weider rausmachen.
Sub auswerten()
Dim daten
Dim spalten As Long, zeilen As Long
Dim zeile As Long, spalte As Long
Dim zielzeile As Long
Dim ziel, quelle
Dim ende As Boolean
Dim tempwd As Long, tempfd As Long, tempy As Long, tempm As Long
Application.ScreenUpdating = False
Set ziel = Tabelle3
Set quelle = ActiveSheet
zielzeile = 3
spalten = quelle.Cells(5, quelle.Columns.Count).End(xlToLeft).Column
zeilen = quelle.Cells(quelle.Rows.Count, 1).End(xlUp).Row
daten = quelle.Range(quelle.Cells(1, 1), quelle.Cells(zeilen, spalten))
ziel.Columns("F:G").NumberFormat = "@"
For zeile = 11 To zeilen Step 19
For spalte = 15 To spalten
If daten(zeile, spalte)  "" Then
ziel.Cells(zielzeile, 1) = daten(zeile, 1)
ziel.Cells(zielzeile, 2) = daten(zeile, 2)
ziel.Cells(zielzeile, 3) = daten(zeile, 3)
ziel.Cells(zielzeile, 4) = daten(zeile, 4)
ziel.Cells(zielzeile, 5) = daten(zeile, spalte)
ziel.Cells(zielzeile, 6) = CStr(daten(7, spalte) & "/" & daten(5, spalte))
tempy = daten(5, spalte)
tempm = daten(7, spalte)
tempfd = DateSerial(tempy, 1, 1)
tempwd = Application.WorksheetFunction.Weekday(tempfd, 2)
ziel.Cells(zielzeile, 8) = tempfd + (tempm - IIf(tempwd > 4, 0, 1)) * 7 -  _
Application.WorksheetFunction.Weekday(tempfd + (tempm - IIf(tempwd > 4, 0, 1)) * 7, 2) + 1
'DATUM(G2;1;1)+(F2-WENN(WOCHENTAG(DATUM(G2;1;1);2)>4;0;1))*7-WOCHENTAG(DATUM(G2;1;1) _
+(F2-WENN(WOCHENTAG(DATUM(G2;1;1);2)>4;0;1))*7;2)+1
ende = False
Do While spalte  4, 0, 1)) * 7 -  _
Application.WorksheetFunction.Weekday(tempfd + (tempm - IIf(tempwd > 4, 0, 1)) * 7, 2) + 5
'DATUM(G2;1;1)+(F2-WENN(WOCHENTAG(DATUM(G2;1;1);2)>4;0;1))*7-WOCHENTAG(DATUM(G2;1;1) _
+(F2-WENN(WOCHENTAG(DATUM(G2;1;1);2)>4;0;1))*7;2)+5
zielzeile = zielzeile + 1
End If
Next spalte
Next zeile
Application.ScreenUpdating = True
MsgBox "Fertig"
End Sub
VG
Anzeige
AW: Spalteneinträge in separate Zeilen schreiben
16.01.2019 08:17:23
Richi
Besten Dank Matthias
Läuft wie eine Eis. Super Sache.
Grazzie Mille
Richi
AW: Spalteneinträge in separate Zeilen schreiben
14.01.2019 18:28:25
Matthias
Moin!
Hier noch ein Update:
Der Code macht (bis auf meine letzte Frage) schon das gewünschte. Die Daten werden aber in das Tabellenblatt 3 geschrieben. Da könnte man entweder vorher eine neue Datei anlegen (und die der Variablen Ziel zuweisen) oder das Blatt 3 dann exportieren. 
Sub auswerten()
Dim daten
Dim spalten As Long, zeilen As Long
Dim zeile As Long, spalte As Long
Dim zielzeile As Long
Dim ziel, quelle
Dim ende As Boolean
Application.ScreenUpdating = False
Set ziel = Tabelle3
Set quelle = ActiveSheet
zielzeile = 3
spalten = quelle.Cells(5, quelle.Columns.Count).End(xlToLeft).Column
zeilen = quelle.Cells(quelle.Rows.Count, 1).End(xlUp).Row
daten = quelle.Range(quelle.Cells(1, 1), quelle.Cells(zeilen, spalten))
ziel.Columns("F:G").NumberFormat = "@"
For zeile = 11 To zeilen Step 19
For spalte = 15 To spalten
If daten(zeile, spalte)  "" Then
ziel.Cells(zielzeile, 1) = daten(zeile, 1)
ziel.Cells(zielzeile, 2) = daten(zeile, 2)
ziel.Cells(zielzeile, 3) = daten(zeile, 3)
ziel.Cells(zielzeile, 4) = daten(zeile, 4)
ziel.Cells(zielzeile, 5) = daten(zeile, spalte)
ziel.Cells(zielzeile, 6) = CStr(daten(7, spalte) & "/" & daten(5, spalte))
ende = False
Do While spalte
VG
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
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
Anzeige
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
Anzeige
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
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige