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

Zellenwerte verbinden

Forumthread: Zellenwerte verbinden

Zellenwerte verbinden
27.02.2019 12:07:36
Volkan
Hi,
ich habe eine Tabelle mit mehreren Spalten.
Die Zellen mit grüner Füllfarbe in einer Zeile sollen in eine eigene Zelle zusammengefügt werden mit einem "_" ziwschen den Werten (Werte mit einem Unterstrick verbinden).
hier ein Auszug aus der Tabelle:
https://www.herber.de/bbs/user/127971.xlsm
Danke & Gruß
Volkan
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellenwerte verbinden
27.02.2019 13:08:26
Bernd
Servus Volkan,
zwar etwas umständlich, aber sollte funktionieren: 

Option Explicit
Sub test()
Dim i As Integer
Dim y As Integer
Dim intLZ As Integer
Dim intLS As Integer
Dim intNZ As Integer
Dim Word As String
Dim ws As Worksheet
Dim wsnew As Worksheet
Set ws = Sheets("Ausgangstabelle") ' Tabellennamen anpassen
Set wsnew = Sheets("Tabelle1") ' Tabellennamen anpassen
intNZ = wsnew.Cells(Rows.Count, 1).End(xlUp).Row
With ws
intLZ = .Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To intLZ
intLS = .Cells(i, Columns.Count).End(xlToLeft).Column
Word = ""
For y = 1 To intLS
If .Cells(i, y).Interior.ColorIndex = 14 Then
If Word = "" Then
Word = .Cells(i, y).Value
Else
Word = Word & "_" & .Cells(i, y).Value
End If
End If
Next y
wsnew.Cells(intNZ, 1).Value = Word
intNZ = intNZ + 1
Next i
End With
Set wsnew = Nothing
Set ws = Nothing
End Sub
Grüße, Bernd
Anzeige
AW: Zellenwerte verbinden
27.02.2019 13:15:54
Volkan
Servus Bernd,
vielen Dank!
Leider bekomme ich eine Fehlermeldung.
"Laufzeitfehler '9:
Index außerhalb des gültigen Bereichs"
Gruß Volkan
AW: Zellenwerte verbinden
27.02.2019 13:51:47
Werner
Hallo Volkan,
so richtig angeschaut hast du dir den Code von Bernd nicht.
Da steht doch: Tabellenname anpassen
Gruß Werner
Anzeige
AW: Zellenwerte verbinden
27.02.2019 13:55:57
Volkan
Hallo,
ja sorry.
Danke & Gruß
Volkan
Gerne u. Danke für die Rückmeldung. o.w.T.
28.02.2019 12:29:59
Werner
Danke Werner ;-)
27.02.2019 15:58:27
Bernd
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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