Also ich habe das jetzt erstmal mit nem kleinen Trick (Hilfsspalte) gelöst. Das geht mit Sicherheit auch eleganter, aber vielleicht reicht es so... wenn nicht, melde dich einfach nochmal...
Spalte B ist ausgeblendet und es sind nur die ersten 30 Zeilen berücksichtigt... bei Bedarf kannst du die Formel in Spalte B weiter runterkopieren und dann in A1 auf die dann letzte Zeile verweisen...
http://www.share-online.biz/dl/3VENAIWMMKNN
Edit: Hatte nicht bedacht, dass A2 und weitere leer sein könnten. Daher diese Formel in B3 und runterkopieren...
Code:
=WENN(UND(A3="";B2="");"";WENN(UND(A3="";B2<>"");B2;WENN(UND(A3<>"";B2="");A3;B2&" OR "&A3)))
Edit2: Das ließ mir jetzt keine Ruhe... hier die etwas hübschere Variante...
Öffne den VBA Editor... füge ein Modul ein und kopiere diesen Code hinein...
Code:
Function MeineSuche(ByRef Bereich As Range, Trennung As String) As String
Dim rng As Range
For Each rng In Bereich
If rng <> "" Then
MeineSuche = MeineSuche & rng & Trennung
End If
Next
If Len(MeineSuche) > 0 Then MeineSuche = Left(MeineSuche, Len(MeineSuche) - Len(Trennung))
End Function
Jetzt noch in A1 diese Formel...
Code:
=MeineSuche(A2:A50;" OR ")
__________________________________________________ __
Wenn das OR als Trennung fix ist, reicht es auch so...
Code:
Function MeineSuche(ByRef Bereich As Range) As String
Dim rng As Range
For Each rng In Bereich
If rng <> "" Then
MeineSuche = MeineSuche & rng & " OR "
End If
Next
If Len(MeineSuche) > 0 Then MeineSuche = Left(MeineSuche, Len(MeineSuche) - 4)
End Function
Dann diese Formel in A1...
Code:
=MeineSuche(A2:A50)