Hallöchen!
Weiß einer von Euch, wie ich zwei Bereiche nach Inhalt absuchen und diese (Inhalte) untereinander auflisten kann?
Suchbereiche:
A1:A4 und A10:A13 (wobei der Inhalt immer untereinander geschrieben wird)
Ziel:
Ab Zelle B1 sollen die Daten untereinander geschrieben werden, die in den beiden Bereichen stehen (Voraussetzung: sie haben Inhalt).
Beispiel:
A1: Stefan
A2: Tim
A3: Thomas
A4:
A10: Robert
A11: Peter
A12:
A13:
In der B-Spalte sollte dann folgendes stehen:
B1: Stefan
B2: Tim
B3: Thomas
B4: Robert
B5: Peter
Vielen Dank für Eure Mühe und Hilfe!
Gruß Daniel
Hallo
hier mal ein Ansatz(VBA)
Sub auflisten()
Dim b As Range
Dim c As Range
Dim i As Integer
i = 1
Set b = Range(„A1:A4“, Range(„A10:A13“))
For Each c In b
If Not IsEmpty© Then
Cells(i, 2).Value = c
i = i + 1
End If
Next c
End Sub
Danke, jedoch leider noch ein kleiner Fehler
Hallo Harald,
vielen Dank für die schnelle und informative Antwort! Ich habe das Makro gerade ausprobiert und es funktioniert fast perfekt.
Wenn im Bereich zwischen A1:A4 und A10:A13 ein Inhalt steht (bspw. A6: Fritz), so wird er leider auch berücksichtigt.
Der Code
Set b = Range("A1:A4", Range("A10:A13"))
scheint die beiden Bereiche nicht exakt abzugrenzen.
Ich habe in VBA schon etwas rumprobiert, finde allerdings den Fehler nicht.
Viele Grüße,
Daniel
vielen Dank für die schnelle und informative Antwort! Ich habe
das Makro gerade ausprobiert und es funktioniert fast perfekt.
Wenn im Bereich zwischen A1:A4 und A10:A13 ein
Inhalt steht (bspw. A6: Fritz), so wird er leider auch
berücksichtigt .
Der Code
Set b = Range(„A1:A4“, Range(„A10:A13“))
scheint die beiden Bereiche nicht exakt abzugrenzen.
Hi Daniel,
vieleleicht gehts auch kürzer, aber so funktioniert es:
Set b = Union(Range(„A1:A4“), Range(„A10:A13“))
mit
msgbox b.address
kannste ja beide Versionen überprüfen.
Gruß
Reinhard
1 „Gefällt mir“
Es klappt !!! VIELEN DANK an Euch beide !!!
Hi Reinhard,
vielen Dank für die Hilfe! Jetzt klappts einwandfrei 
Den Befehl mit der Message-Box kannte ich auch noch nicht. Ist wirklich praktisch.
Gruß Daniel