Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1704to1708
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
1704to1708
1704to1708
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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!!!!

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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige