Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1692to1696
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
1692to1696
1692to1696
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen durchlaufen und Zellen neu sortieren

Zeilen durchlaufen und Zellen neu sortieren
27.05.2019 08:53:35
Mike
Hallo,
Spalte A1 bis Axx beinhaltet die Fachnummer und in den nachfolgenden Zellen der selben Zeile befinden sich die dort abgelegten Gegenstände. Die Menge der Artikel pro Fach varieren daher sollte die Zeile solange durchlaufen werden bis Zelle leer.
In der Zieltabelle soll pro Artikel eine Zeile genutzt werden wobei in A immer die Fachnummer steht und B der Artikel.
Beispiel:
QuelleDatei
A1=Fach1 B1=Artikel1 C1=Artikel2
B1=Fach2 B2=Artikel3 C2=Artikel4 D2=Artikel5
usw.
ZielDatei
A1=Fach1 B1=Artikel1
A2=Fach1 B2=Artikel2
A3=Fach2 B3=Artikel3
A4=Fach2 B4=Artikel4
usw.
Kann mir da bitte jemand eine Schleife zu schreiben.
Gruß
Mike

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

Betreff
Datum
Anwender
Anzeige
AW: einfacher mit PowerQuery ...
27.05.2019 09:32:04
neopa
Hallo Mike,
... dazu aktiviere eine Datenzelle Deiner Daten und danach:
- unter Daten die Funktion "Aus Tabelle"
- ok (Tabelle hat im Beispiel keine Überschriften)
- rechte Maustaste auf Spalte "Spalte1" und da "andere Spalten entpivotieren"
- entferne Spalte "Attribut"
- benenne die die Überschriften nach Deinen Vorstellungen um
- aktiviere "schließen & laden" und da "... in" und dies z.B. in "neues Arbeitsblatt"
Gruß Werner
.. , - ...
AW: einfacher mit PowerQuery ...
27.05.2019 09:52:02
Mike
Hallo Werner,
Danke für deine Antwort.
Grundsätzlich ist das eine Lösung die sicherlich auch funktioniert allerdings benötige ich eine VBA Lösung da dies nur ein Teil des großen ganzen sein ist.
Gruß
Mike
Anzeige
AW: ok, ist aber schon nicht mehr offen owT
27.05.2019 09:55:53
neopa
Gruß Werner
.. , - ...
AW: ok, ist aber schon nicht mehr offen owT
27.05.2019 10:05:01
Mike
Hallo Werner,
Lösung ist bereits gefunden. Habe durch deinen Beitrag aber dennoch etwas dazu gelernt. Daher Danke :-)
Gruß
Mike
AW: Zeilen durchlaufen und Zellen neu sortieren
27.05.2019 09:38:40
Nepumuk
Hallo Mike,
so ok?
Public Sub Fachliste()
Dim lngRow As Long, lngColumn As Long
Dim lngOutputRow As Long
With Worksheets("QuelleDatei")
For lngRow = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
For lngColumn = 2 To .Cells(lngRow, Columns.Count).End(xlToLeft).Column
lngOutputRow = lngOutputRow + 1
Worksheets("ZielDatei").Cells(lngOutputRow, 1).Value = _
.Cells(lngRow, 1).Value
Worksheets("ZielDatei").Cells(lngOutputRow, 2).Value = _
.Cells(lngRow, lngColumn).Value
Next
Next
End With
End Sub

Gruß
Nepumuk
Anzeige
AW: Zeilen durchlaufen und Zellen neu sortieren
27.05.2019 10:03:31
Mike
Hallo Nepumuk,
funktioniert hervorragend. Vielen Dank
Gruß
Mike
AW: Zeilen durchlaufen und Zellen neu sortieren
27.05.2019 09:40:40
Bernd
Servus Mike,
so in der Art? 

Sub test()
Dim intLZ As Integer
Dim intLS As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim ws As Worksheet
Dim wsz As Worksheet
Set ws = ThisWorkbook.Sheets("Tabelle1")
Set wsz = ThisWorkbook.Sheets("Tabelle2")
With ws
intLZ = .Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To intLZ
intLS = .Cells(i, Columns.Count).End(xlToLeft).Column
k = wsz.Cells(Rows.Count, 1).End(xlUp).Row + 1
For j = 2 To intLS
ws.Cells(i, j).Copy Destination:=wsz.Cells(k, 2)
ws.Cells(i, 1).Copy Destination:=wsz.Cells(k, 1)
k = k + 1
Next j
Next i
End With
Set ws = Nothing
Set wsz = Nothing
End Sub
Grüße, Bernd
Anzeige
AW: Zeilen durchlaufen und Zellen neu sortieren
27.05.2019 10:15:41
Mike
Hallo Bernd,
auch dir vielen Dank für deine Hilfe.
Bei deiner Lösung fehlt in der Zieldatei allerdings die erste Zeile der Quelldatei und im Vergleich zu der Lösung von Nepumuk läuft das Makro spürbar langsamer.
Das mit der fehlenden Zeile habe ich bereits behoben aber die Durchlaufzeit ist um einiges höher.
Trotzdem Danke für deine Hilfe.
Gruß
Mike
mit Dictionary
27.05.2019 11:16:35
Daniel
Hi
diese Aufgabe lässt sich in VBA am einfachsten und schnellsten über das Dictionary-Objekt lösen.
hier mal in der Einfachsten Variante für den Fall, dass jede Artikelnummer nur 1x vorkommt.
Sub test()
Dim arr
Dim z As Long, s As Long
Dim dic As Object
Set dic = CreateObject("Scripting.dictionary")
arr = Sheets("Quelltabelle").Cells(1, 1).CurrentRegion.Value
For z = 1 To UBound(arr, 1)
For s = 2 To UBound(arr, 2)
If arr(z, s) = "" Then Exit For
dic(arr(z, s)) = arr(z, 1)
Next
Next
With Sheets("Zieltabelle").Cells(1, 1).Resize(dic.Count, 2)
.Columns(1).Value = WorksheetFunction.Transpose(dic.items)
.Columns(2).Value = WorksheetFunction.Transpose(dic.keys)
End With
End Sub

Gruß Daniel
Anzeige
AW: mit Dictionary
28.05.2019 07:31:29
Mike
Hallo Daniel,
die Artikel kommen öfter als einmal vor und befinden sich auch an unterschiedlichen Lagerorten.
Dennoch ein interessanter Ansatz den ich im Hinterkopf behalten werde.
Danke und Gruß
Mike
AW: mit Dictionary
28.05.2019 08:59:24
Daniel
Auch das geht, da die Kombination aus Ort und Artikel eindeutig sein sollte:
Die Zeile dic(arr(z, s)) = arr(z, 1)
So abändern: dic(arr(z, 1) & ";" & arr(z, s)) = 0
Beim zurückschreiben nur die Keys zurück schreiben:
Sheets("Zieltabelle").Cells(1, 1).Resize(dic.Count, 1).Value = WorksheetFunction.Transpose(dic.keys)
Und hinterher mit text-in-Spalten Ort und Artikel trennen.
Wie das per Makro geht, zeigt dir der Recorder.
Gruß Daniel
Anzeige

68 Forumthreads zu ähnlichen Themen

Zeilen durchlaufen und Wert rausholen und kopien
Loen

Hallo Excel Gemeinde,
wie kann ich denn folgende Abfrage per Makro machen:
(Das Ergebnis soll nachher in B34 stehen)
Wenn im Tabellenblatt "Deckblatt" die Zelle C34 leer ist, NICHTS machen.
Wenn im Tabellenblatt "Deckblatt" die Zelle C34 NICHT leer ist, soll dieser Eintrag (C34)...
03.02.2009 20:48:41
Thread-ID: 1046782
5 Beiträge
Anzeige
Zeilen auslesen aufgrund eines Suchbegriffs | Herbers Excel-Forum
F. Jordan
Hallo zusammen
Ich muss aus einer Gesamtliste zuerst die Buchungskreise auslesen, dann aufgrund dieser Auswertung Tabellenblätter pro Kreis erstellen und den Namen in die jeweilige Tabelle reinschreiben. Bisher sind all diese Anforderungen mit Eurer Hilfe zustande gekommen.
Nun müsste in je...
28.01.2010 14:29:10
Thread-ID: 1133779
5 Beiträge
Zeilen aufklappen und zuklappen
Ximena

Hallo Leute
Also folgendes Problem. Ich würde gerne Zeilen im Excel auf- und zuklappen können. Ich weiss, das geht mit "Gruppierung", nur ist dann das Plus, das ganz links am Rand ist, eine Zeile zu tief. Also ich versuche das mal grafisch darzustellen:
Vor der Zeile Zeile
1<...
03.05.2012 14:02:15
Thread-ID: 1261980
5 Beiträge
Anzeige
Zeileninhalte weglassen aufgrund einer Bedingung
Jona

Hallo Excel-Freunde,
ich habe in Spalte A einen Status: Active und Inactive. Ausgehend von diesem Status sollen in Spalte B nur die Datensätze angezeigt werden die den Status Active besitzen. Nur sollen die aktiven Datensätze ohne leere Zeilen bzw. Zeilen mit O dazwischen angezeigt werden....
31.07.2019 11:38:20
Thread-ID: 1705132
16 Beiträge
VBA - Zeilen durchlaufen und in farbige Zellen Wert reinschreiben
Frederic

Hallo,
ich habe folgendes Problem und zwar möchte die Zeilen beginned ab F5 bis NI7 durchlaufen und jeweils in die hellgrünen Kästchen das Volumen pro Tag reinschrieben.
Farbcode ist 43.
Also bspw. von I5 bis BG8 (erste Zeile - grüne Kästchen) das Volumen von 11,25 reinschreiben un...
29.01.2020 16:10:01
Thread-ID: 1737361
3 Beiträge
Zeilen aufgrund Datum ausblenden
Jvana

Liebes Forum
Anbei die Datei zu meiner Frage: https://www.herber.de/bbs/user/142016.xlsm
Ziel:
Im Tab "Einstellung Person" wird unter anderem ein Von- und ein Bis-Datum eingeben (Zellen C10 und C11). Im Tab "Zeiterfassung1" sollen dann alle Zeilen mit Datum (Spalte D) kleiner als da...
02.12.2020 18:19:57
Thread-ID: 1797225
6 Beiträge
Zeilen einblenden auf Grund Drop-Down
findetnemo
Hallo
Ich habe eine Tabelle mit Drop-Down (https://www.herber.de/bbs/user/158215.xlsm). Es sollen nun auf Grund des Drop-Downs in D6 die verschiedenen Zeilen ein und ausgeblendet werden.
Wenn Eigenfabrikat gewählt wird, soll Zeile 8,9 und 18 eingeblendet werden und Zeilen 11 bis 13 ausgeblen...
10.03.2023 14:43:01
Thread-ID: 1923567
4 Beiträge
Werte aus Zeilen untereinander Auflisten und Adresse zufügen
Martin
Hallo zusammen,

ich habe eine Fragen, kann ich mir den Text einer Zeile 2 (Zellen verbunden) und die darunter stehenden Zellen (Zeile 3) in einer Spalte auflisten.
Dazu sollen auch die Zellenadresse zugefügt werden.

Hintergrund, ich habe in Zeile 2 Artikel stehen (Artikel 1 = A2:...
25.07.2023 12:19:19
Thread-ID: 1937177
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
4
4
4
4
2
15
2
5
3
2
4
1
4
4
2
4
4
3
8
6
2
4
6
4
3