Textlänge im Label - Makro ausführen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Label MsgBox


Betrifft: Textlänge im Label - Makro ausführen
von: Marvin
Geschrieben am: 12.03.2018 14:05:34

Hallo zusammen,
ich bräuchte erneut eure Unterstützung!
Folgendes Stelle ich mir vor:
Wenn die Textlänge des Textes im LabelX mehr als 24 Zeichen enthält
dann führe Makro X1 aus,
sonst
führe Makro X2 aus.
Zweite Variante:
Wenn im Text des Labels ein Sonderzeichen vorkommt, bspw. ein "\"
dann führe Makro X1 aus,
sonst
führe Makro X2 aus.
Vielen Dank und beste Grüße

Betrifft: AW: Textlänge im Label - Makro ausführen
von: UweD
Geschrieben am: 12.03.2018 14:31:06
Hallo
so???

Option Explicit

Sub Labelx1()
    Dim LabelX As String
    LabelX = Sheets("Tabelle1").Label21.Caption
    
    If Len(LabelX) >= 24 Then
        Call x1
    Else
        Call x2
    End If
End Sub


Sub Labelxx()
    Dim LabelX As String
    LabelX = Sheets("Tabelle1").Label21.Caption
    
    If InStr(LabelX, "\") > 0 Then
        Call x1
    Else
        Call x2
    End If
End Sub

    
    
Private Sub x1()

    MsgBox "X1"

End Sub

Private Sub x2()

    MsgBox "X2"
    
End Sub

LG UweD

Betrifft: AW: Textlänge im Label - Makro ausführen
von: Marvin
Geschrieben am: 12.03.2018 15:08:11
Hey Uwe,
auch hier wieder, vielen Dank. Genauso!
Beste Grüße,
Marvin

Excel-Beispiele zum Thema "Textlänge im Label - Makro ausführen"