Anzeige
Archiv - Navigation
1564to1568
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
Inhaltsverzeichnis

Zellen mit bestimmtem Inhalt zeilenweise in eine S

Zellen mit bestimmtem Inhalt zeilenweise in eine S
27.06.2017 12:06:11
Basti
Hallo zusammen,
würd gern alle Zellen, des Bereichs (D3:F500), die das Wort "Germany" enthalten, zeilenweise in Spalte J untereinander auflisten.
Beispiel:
D4, F4, E5, F5, D6… enthalten das Wort "Germany"
In Spalte J soll dann stehen:
J4 = Inhalt von D4
J5 = Inhalt von F4
J6 = Inhalt von E5
J7 = Inhalt von F5
J8 = Inhalt von D6
J9 = …
Viele Grüße,
Basti

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

Betreff
Datum
Anwender
Anzeige
AW: Zellen mit bestimmtem Inhalt zeilenweise in eine S
27.06.2017 12:44:51
Michael
Hallo!
Eine Möglichkeit mit VBA:
Sub a()
Const CHECK$ = "Germany"
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Ws As Worksheet: Set Ws = Wb.Worksheets("Tabelle1")
Dim a, b, i&, j&, k&
Application.ScreenUpdating = False
a = Ws.Range("D3:F500"): k = 1
ReDim b(1 To UBound(a, 1) * UBound(a, 2))
For i = LBound(a, 1) To UBound(a, 1)
For j = LBound(a, 2) To UBound(a, 2)
If InStr(1, a(i, j), CHECK) Then
b(k) = a(i, j): k = k + 1
End If
Next j
Next i
ReDim Preserve b(1 To k)
For i = 1 To k
Ws.Cells(i + 3, 10) = b(i)
Next i
Set Wb = Nothing
Set Ws = Nothing
Erase a: Erase b
End Sub
Passt?
LG
Michael
Anzeige
AW: Zellen mit bestimmtem Inhalt zeilenweise in eine S
27.06.2017 18:27:13
Basti
Genial, danke! LG Basti
Gern, Danke für die Rückmeldung, owT
27.06.2017 18:50:08
Michael

320 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige