Office: (Office 2016) Zellen verketten und leere Spalten auslassen

Hallo,
Ich muss mehrere Zellen miteinander verknüpfen (21 Stück). Ich möchte dabei alle die ausgefüllt sind hintereinander in einer neuen Zeile schreiben, für die leeren möchte ich aber nichts stehen haben. Leider komme ich nicht wirklich weiter.

Habe es bis jetzt mit der Formel gemacht, dann habe ich aber wenn die Zellen leer sind mehrere Semikolons hintereinander:
= 'Zusammenfassung Allergene '!B2& ";" & 'Zusammenfassung Allergene '!C2& ";" & 'Zusammenfassung Allergene '!D2& ";" & 'Zusammenfassung Allergene '!E2& ";" & 'Zusammenfassung Allergene '!F2& ";" & 'Zusammenfassung Allergene '!G2

Danke für eure Hilfe.

 

Moin Anne,
kannst Du kurz beschreiben wie die Ausgabe Deiner Allergene aussehen soll? Und wie die Abfrage erstellt wird? M.E. ist das eine kleine VBA-Aufgabe, di z.B. so aussehen könnte:

Code:

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Integer, r As Integer
Dim sResult As String, sSep As String
Cancel = True

sSep = ";"
r = UsedRange.Columns.Count

For i = 1 To r
    If Cells(1, i) <> "" Then
        sResult = sResult & Cells(1, i) & sSep
    End If
Next
sResult = Left(sResult, Len(sResult) - 1)
MsgBox sResult
End Sub

Kopier den Code mal in eine leere Tabelle und trage in Zeile 1 Deine Alis ein, natürlich mit Lücken . Dann machst Du in der Tabelle einen Doppelklick und siehst ein Ergebnis.

Grüße

 

Hallo Bastler

Danke für deine Info. Leider hab ich keine Ahnung wie ich da vorgehen muss mit VBA, ich dachte ich kann eine einfache Formel einfügen Meine Ausgabe sieht ungefähr so aus im Feld, ich muss das später in ein Programm hochladen:

AW:CONTAINS;UW:CONTAINS;NR:CONTAINS;GB:CONTAINS;AE:MAY_CONTAIN;AP:MAY_CONTAIN;AY:CONTAINS;AM:MAY_CONTAIN;SH:MAY_CONTAIN;SA:MAY_CONTAIN;SW:MAY_CONTAIN;AS:CONTAINS

Hilft dir das ?
Grüsse
Anne

 

Moin Anne,
hier eine kleine Kurzanleitung für meinen VBA Schnipsel:

Öffne eine neue XL-Mappe, klicke mit der rechten Maustaste auf den Tabellenreiter Tabelle1 (unten links im Bildschirm) und wähle Code anzeigen. Dann öffnet sich ein großes weißes Fenster, in das Du meinen Code per Copy 'n Paste verfrachtest. Dieses Fenster schließt Du durch Klick auf das X oben rechts.

Nun trägst Du eine Liste Deiner Alis in Zeile 1 der Tabelle ein, natürlich mit Lücken . Ein Doppelklick in die Tabelle zeigt Dir das Ergebnis das dann in eine beliebige Zelle in einem beliebigen Arbeitsblatt geschrieben werden kann.
Grüße

 

Moin Anne,
was ich aus Deiner Antwort oben erkenne ist, dass Du Deinen Alis unterschiedliche Möglichkeiten zugeordnet hast: Kann enthalten, enthält. Mit VBA lässt sich eine solche Liste dann sortieren (erst enthält, dann kann enthalten und jeweils alphabetisch).
Grüße