Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen

Textlänge im Label - Makro ausführen


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


Beiträge aus dem Excel-Forum zum Thema "Textlänge im Label - Makro ausführen"