Mehrere Zellen in eine Zelle nach bestimmten Kriterien

Moderator: ModerationP

Mehrere Zellen in eine Zelle nach bestimmten Kriterien

Beitragvon Bine1970 » 17. Okt 2021, 08:52

Hallo zusammen,

ich habe folgende Ausgangssituation (leer steht nur für eine leere Zelle):
Spalte A Spalte B
01.01 Zeile1
"leer" Zeile2
02.01 Zeile3
03.01 Zeile4
"leer" Zeile5
"leer" Zeile6
04.01 Zeile7

Und das Ergebnis sollte wie folgt ausssehen:
01.01 Zeile1 Zeile2
02.01 Zeile3
03.01 Zeile4 Zeile5 Zeile6
04.01 Zeile7

wobei die Anzahl der Zeilen, die einer "Nummer" zugeordnet sind (Ausgangssituation: unter 01.01 könnten auch 7 Zeilen stehen) variiert.

Ist wahrscheinlich ganz einfach, aber stehe noch ziemlich am Anfang mit VBA...

Vielen Dank und Gruß
Bine
Bine1970
 


Re: Mehrere Zellen in eine Zelle nach bestimmten Kriterien

Beitragvon shift-del » 17. Okt 2021, 09:06

Moin Bine

Die Kalenderdaten in Spalte A müssen aufgefüllt werden.

E2
Code: Alles auswählen
=EINDEUTIG(A2:A8)

F2
Code: Alles auswählen
=MTRANS(XMLFILTERN("<y><z>"&WECHSELN(TEXTVERKETTEN(";";WAHR;WENN($A$2:$A$8=E2;$B$2:$B$8;""));";";"</z><z>")&"</z></y>";"//z"))
Wir sehen uns!
... shift-del
Eine Mustertabelle hilft beim Helfen.
Excel Super-Funktionen: VERWEIS(), INDEX(), WAHL()
Benutzeravatar
shift-del
Moderator
 
Beiträge: 21712
Registriert: 25. Jan 2009, 22:54
Wohnort: Ehemaliges Fabrikgelände

Re: Mehrere Zellen in eine Zelle nach bestimmten Kriterien

Beitragvon Bine1970 » 17. Okt 2021, 12:18

Hallo zusammen,
vielen Dank für die schnellen Antworten.
Ich arbeite mit Excel 2016 und kann somit die Funktion Eindeutig nicht nutzen.
Wollte gerade meinen bisherigen Code in VBA und nochmals eine Exceltabelle einfügen,
damit das Problem besser verständlich ist, aber schaffe es irgendwie nicht.
Die Erklärseiten sind z. Zt. wegen des Umbau gesperrt. Ich habe die Exceltabelle
jetzt mit Excel Jeannie in der Zwischenablage, bekomme sie hier aber nicht hier in
meinen Beitrag eingefügt.

Vielen dank!
Bine1970
Bine1970
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 5
Registriert: 17. Okt 2021, 11:55

Re: Mehrere Zellen in eine Zelle nach bestimmten Kriterien

Beitragvon Bine1970 » 17. Okt 2021, 14:55

Hallo zusammen,
hier einmal mein bisheriger Code:

Sub SeiteHZ()
Dim i As Long
Worksheets("Tabelle3").Activate
Range("A2").Select
For i = 1 To 7
If ActiveCell.Value = "" And ActiveCell.Offset(-1, 0) = "" Then
ActiveCell.Offset(-2, 1).Value = ActiveCell.Offset(-2, 1).Value & " " & ActiveCell.Offset(0, 1).Value
ElseIf ActiveCell.Value <> "" Then
ActiveCell.Offset(0, 0).Value = ActiveCell.Offset(0, 0)
Else
ActiveCell.Offset(-1, 1).Value = ActiveCell.Offset(-1, 1).Value & " " & ActiveCell.Offset(0, 1).Value
End If
ActiveCell.Offset(1, 0).Select
Next i
End Sub

Welcher auch funktioniert, aber leider nicht wenn ich die Tabelle leicht verändere und in der Spalte A mehr als zwei leere Zellen habe.

Vielleicht hat jemand noch eine Idee, wie man das Problem lösen kann.

Gruß
Bine1970
Bine1970
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 5
Registriert: 17. Okt 2021, 11:55

Re: Mehrere Zellen in eine Zelle nach bestimmten Kriterien

Beitragvon shift-del » 17. Okt 2021, 17:42

Bine1970 hat geschrieben:Wollte gerade meinen bisherigen Code in VBA und nochmals eine Exceltabelle einfügen,
damit das Problem besser verständlich ist, aber schaffe es irgendwie nicht.

Unter dem Antwortfenster gibt es den Bereich "Dateianhang hochladen".
Klick auf "Datei auswählen" und die Datei auf deinem Rechner auswählen.
Klick auf "Datei hinzufügen" um die Datei auf den Server hochzuladen.
Klick auf "Absenden" um die Antwort und die Datei abzusenden.

Die Tabellentools funktionieren im provisorischen Forum nicht mehr.
Wir sehen uns!
... shift-del
Eine Mustertabelle hilft beim Helfen.
Excel Super-Funktionen: VERWEIS(), INDEX(), WAHL()
Benutzeravatar
shift-del
Moderator
 
Beiträge: 21712
Registriert: 25. Jan 2009, 22:54
Wohnort: Ehemaliges Fabrikgelände

Re: Mehrere Zellen in eine Zelle nach bestimmten Kriterien

Beitragvon Bine1970 » 17. Okt 2021, 20:15

Hallo shift-del,

vielen Dank, jetzt konnte ich die Datei anhängen.
Vielleicht wird es daruch etwas verständlicher.

Gruß
Bine1970
BildHZV1.xlsm
Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.
Bine1970
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 5
Registriert: 17. Okt 2021, 11:55

Re: Mehrere Zellen in eine Zelle nach bestimmten Kriterien

Beitragvon shift-del » 17. Okt 2021, 20:48

Warum sind die Kalenderdaten in Spalte A jetzt Texte?
Wir sehen uns!
... shift-del
Eine Mustertabelle hilft beim Helfen.
Excel Super-Funktionen: VERWEIS(), INDEX(), WAHL()
Benutzeravatar
shift-del
Moderator
 
Beiträge: 21712
Registriert: 25. Jan 2009, 22:54
Wohnort: Ehemaliges Fabrikgelände

Re: Mehrere Zellen in eine Zelle nach bestimmten Kriterien

Beitragvon Bine1970 » 17. Okt 2021, 21:31

Weil es vorher eigentlich auch Texte waren und kein Datum war, es handelt sich um sogenannte "Positionsnummern", die auch wie folgt lauten können:
31.01, 60.02 usw.
Bine1970
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 5
Registriert: 17. Okt 2021, 11:55

Re: Mehrere Zellen in eine Zelle nach bestimmten Kriterien

Beitragvon shift-del » 17. Okt 2021, 22:13

Siehe Anhang.
Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.
Wir sehen uns!
... shift-del
Eine Mustertabelle hilft beim Helfen.
Excel Super-Funktionen: VERWEIS(), INDEX(), WAHL()
Benutzeravatar
shift-del
Moderator
 
Beiträge: 21712
Registriert: 25. Jan 2009, 22:54
Wohnort: Ehemaliges Fabrikgelände

Re: Mehrere Zellen in eine Zelle nach bestimmten Kriterien

Beitragvon Bine1970 » 18. Okt 2021, 07:40

Hallo shift-del,
vielen lieben Dank! Es funktioniert...
Hätte nicht gedacht, dass es alleine mit Funktionen geht und dachte man könnte es nur mit VBA lösen.
Wieder viel gelernt.
Gruß
Bine1970
Bine1970
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 5
Registriert: 17. Okt 2021, 11:55


Zurück zu Excel Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: Bing [Bot], turbo und 20 Gäste