Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1704to1708
1704to1708
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen zusammenführen

Forumthread: Zeilen zusammenführen

Zeilen zusammenführen
08.08.2019 20:14:42
Manfred
HI – ich habe noch folgendes Anliegen.
Ich möchte ab der Zeile 6 – Alle Daten von Spalte A, B und D zusammenführen
und als Ergebnis mit msgbox ausgeben lassen.
In Spalte A
Daten1
Daten2
usw.
In Spalte B
Wert1
Wert2
usw.
In Spalte D
Zahl1
Zahl2
usw.
Das Ergebnis soll dann genau so aussehen
Daten1 – Wert1 – Zahl1
Daten2 – Wert2 – Zahl2
Usw..
Also mit –
Dann Wäre ich echt glücklich!!!!
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen zusammenführen
08.08.2019 20:29:41
Werner
Hallo Manfred,
so: 
Sub aaa()
Dim strB As String, rngB As Range
Dim wks As Worksheet, i As Long
Set wks = ActiveSheet
With wks
For i = 6 To .Cells(.Rows.Count, 1).End(xlUp).Row
If .Cells(i, 1)  "" Then
If strB = vbNullString Then
strB = .Cells(i, 1) & " - " & .Cells(i, 2) & " - " & .Cells(i, 4)
Else
strB = strB & vbLf & .Cells(i, 1) & " - " & .Cells(i, 2) & " - " & .Cells(i, 4)
End If
End If
Next i
End With
If Not strB = vbNullString Then
MsgBox strB, vbOKOnly, "Werte aus A - B - D"
Else
MsgBox "Es gibt keine Daten in Spalte A, B und D", vbOKOnly, "Werte aus A - B - D"
End If
End Sub
Gruß Werner
Anzeige
AW: Zeilen zusammenführen
08.08.2019 21:30:03
Manfred
Werner - Du bist heute der Beste!!
Vielen Dank funktioniert wie gewünscht - Ein Weissbier auf Dich!!!
Gerne u. Danke für die Rückmeldung. o.w.T.
08.08.2019 21:53:31
Werner
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige