Text anzeigen, je nach Zellinhalt

[Rabe]

Hi,

ich habe im "Deckblatt" in Spalte A 6 Zellen, die mit Doppelklick-Makro mit einem "X" gefüllt werden können.
Diese 6 Zellen sind unabhängig voneinander, es können also von 0 bis 6 Zellen "angekreuzt" werden.

Nun will ich abhängig von den angekreuzten Zellen im Blatt "Änderung" in der Zelle A9 den jeweiligen Text, der in der Spalte B steht, mit ", " verkettet haben.

Mir fehlt momentan die Idee, wie bekomme ich das hin?

Arbeitsblatt mit dem Namen 'Deckblatt'
	A	B
10		interne Qualifikation
11		Kunden-Qualifikation
12		EMV
13		CE
14		UL
15		DNV GL

Verwendete Systemkomponenten: [Windows (32-bit) NT 6.01] MS Excel 2013

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

[MisterBurns]

Hallo Rabe,

eine sicher nicht sehr feine, aber funktionierende Lösung:

Code:

=WENN(A10="x";B10;"")&WENN(A11="x";", "&B11;"")&WENN(A12="x";", "&B12;"")...

Und falls du Excel2016 hast, dann über eine Hilfsspalte mit TEXTVERKETTEN, das ist noch schöner.

[Kuwer]

Hallo Rabe,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

  Dim i As Long

  Dim rngB As Range

  Dim strB As String

  Dim varB As Variant

  

  Set rngB = Me.Range("A10:A15")

  If Not Application.Intersect(rngB, Target) Is Nothing Then

    If Target.Value = "" Then

      Target.Value = "X"

    Else

      Target.Value = ""

    End If

    varB = rngB.Resize(, 2).Value

    For i = 1 To UBound(varB)

      strB = strB & Replace(varB(i, 1), "X", ", " & varB(i, 2))

    Next i

    Worksheets("Änderung").Range("A9").Value = Mid(strB, 3)

  End If

End Sub

Gruß Uwe

[MisterBurns]

Jetzt hab ich noch eine etwas schönere Lösung gefunden, die kein VBA benötigt und sogar die Beistriche richtig anzeigt.

In einer Hilfszelle (zB B9), unsichtbar:

Code:

=WENN(A10="x";B10&", ";"")&WENN(A11="x";B11&", ";"")&WENN(A12="x";B12&", ";"")&WENN(A13="x";B13&", ";"")&WENN(A14="x";B14&", ";"")&WENN(A15="x";B15&", ";"")

In A9

Code:

=LINKS(B9;LÄNGE(B9)-2)

[Kuwer]

Jetzt hab ich noch eine etwas schönere Lösung gefunden, die kein VBA benötigt und sogar die Beistriche richtig anzeigt.

Hallo Berni,

VBA ist doch ohnehin bereits im Einsatz.

Gruß Uwe

[Jockel]

Hallo Ralf, von mir käme eine Hilfsspaltenlösung, bei Interesse poste ich sie...

[MisterBurns]

@Uwe: auch wieder wahr, da hab ich nicht mitgedacht.

[Rabe]

Hallo ihr drei,

danke, sowohl die Formel-, als auch die VBA-Lösung funktionieren einwandfrei.

Ich habe mich für die VBA-Lösung entschieden, da ja, wie Uwe schrieb, sowieso VBA in Benutzung ist. Falls sich rausstellt, daß die Benutzer die X doch per Hand eingeben wollen, muß ich dann halt auf die Formellösung zurückgreifen oder das Worksheet_Change-Event zusätzlich verwenden.