Office: (Office 2019) VBA Kopieren von Zelleninhalte in Textbox

Hallo zusammen,

ich habe diesen VBA Code aus diesen Forum genommen und hätte ein paar Fragen dazu.
Der Code wurde von Beverly zur verfügung gestellt.

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target <> "" Then
        Application.DisplayAlerts = False
        If ActiveSheet.OLEObjects("TextBox1").Object.Text <> "" Then
            ActiveSheet.OLEObjects("TextBox1").Object.Text = _
                ActiveSheet.OLEObjects("TextBox1").Object.Text & vbLf & Target.Value
        Else
            ActiveSheet.OLEObjects("TextBox1").Object.Text = Target.Value
        End If
        Cancel = True
        Application.DisplayAlerts = False
    End If
End Sub

Wie kann ich Zellen anwählen die verbunden sind ? es kommt immer eine Fehlermeldung.
Zellen die nicht verbunden sind (Einzelzellen) funktionieren ohne Probleme.
Ich habe den Code "& vbLf" herausgenommen damit der Zelleninhalt nicht untereinander sondern nebeneinander aufgelistet werden kann, nur macht er es ohne Trennung zum ersten Auswahl, so das die Texte ohne Leerzeichen nebeneinander aufgelistet werden. Wie kann ich diesen Problem lösen ?

Danke & Grüße

 

Hallo Suphi,

verbundene Zellen sind der größte Murks, seit der Entdeckung Amerikas. Verzichte darauf und alles ist gut. Im übrigen sind die Zellbereiche nicht wirklich verbunden, es wird nur die linke obere Zelle des "Verbundbereichs" soweit aufgeblasen, dass die darunter liegenden Zellen nicht mehr sichtbar sind.
Ohne deine Datei zu kennen, lassen sich leider keine alternativen Vorschläge machen.

 

Moin!
Zur letzten Frage:
Dann musst Du statt vbLf halt " " oder Chr(32) oder auch Chr(160) nehmen.

Gruß Ralf

 

Probleme wurden gelöst.

Danke & Grüße

 

Mit der Verwendung von Chr(32) oder Chr(160) ist aber nicht das Problem der Fehlermeldung bei verbundenen Zellen gelöst - das lässt sich lösen indem man anstelle Target dieses schreibt: Target.Cells(1). Das löst auch keinen Fehler aus, wenn man nur Einzelzellen verwendet.

Aber generell stimme ich natürlich Klaus-Diater zu - verbundene Zellen sollte man besser komplett meiden: 1. machen sie nur Probleme (in Verbindung mit VBA und wenn man den Tabellenaufbau später ändern muss) und 2. gibt es andere Gestaltungsmöglichkeiten (Spaltenbreite, Zeilenhöhe).

---