Thema Datum  Von Nutzer Rating
Antwort
03.05.2021 10:42:30 Sebastian
NotSolved
03.05.2021 11:46:33 Gast1464
NotSolved
Rot Textkette wenn nicht leer
 03.05.2021 12:14:36 GraFri
NotSolved
03.05.2021 19:18:44 Gast84093
NotSolved
03.05.2021 12:05:21 Gast81808
NotSolved
03.05.2021 19:19:10 Gast61340
NotSolved

Ansicht des Beitrags:
Von:
GraFri		 Datum:
03.05.2021 12:14:36		 Views:
486		 Rating:
     
Antwort:
  Ja
Thema:
Textkette wenn nicht leer
Hallo Eine Möglichkeit:

Option Explicit

Sub TextString()
Dim zellAdr() As Variant
Dim Tmp As String
Dim n As Long

zellAdr = Array("G11", "K12", "G13", "G14", "G15", "G16", "K17", "G18", "G19", "G20", "K21")

For n = LBound(zellAdr) To UBound(zellAdr)
    If Range(zellAdr(n)).Value <> "" Then
        Tmp = Tmp & Range(zellAdr(n)).Value & "-"
    End If
Next n

Tmp = Left(Tmp, Len(Tmp) - 1)

MsgBox Tmp

End Sub

 

mfg GraFri

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
03.05.2021 10:42:30 Sebastian
NotSolved
03.05.2021 11:46:33 Gast1464
NotSolved
Rot Textkette wenn nicht leer
 03.05.2021 12:14:36 GraFri
NotSolved
03.05.2021 19:18:44 Gast84093
NotSolved
03.05.2021 12:05:21 Gast81808
NotSolved
03.05.2021 19:19:10 Gast61340
NotSolved