Label-Wert anpassen

Forumthread: Label-Wert anpassen
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Label-Wert anpassen

Label-Wert anpassen

29.04.2009 13:33:02

Richhard

Hallo zusammen
ich möchte, dass wenn in LabErgebnis der Wert "Ergebnis: 0 km" steht, dass dann Label1 = "" ist.
Sonst soll Label1 = LabErgebnis sein.
was ist da an meinem Makro falsch?
Vielen Dank für eure Hilfe und einen schönen Mogen wünscht euch
Richhard


Private Sub Userform_Click()
If LabErgebnis.Caption = "Entfernung: 0 km" Then
Label2.Caption = ""
Else
Label2.Caption = CLng(LabErgebnis.Caption)
End If
End Sub

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Label-Wert anpassen

29.04.2009 16:50:38

fcs
AW: Label-Wert anpassen

29.04.2009 17:35:09

Olaf

AW: Label-Wert anpassen

29.04.2009 16:50:38

fcs

Hallo Richard,
irgendetwas in die folgende Richtung.
Gruß
Franz


Private Sub Userform_Click()
Dim strErg As String
strErg = LabErgebnis.Caption
If strErg = "Entfernung: 0 km" Then
Label2.Caption = ""
Else
'Textteile ersetzen
strErg = Replace(strErg, "Entfernung:", "", 1)
strErg = Replace(strErg, "km:", "", 1)
'Leerzeichen entfernen
strErg = Trim(strErg)
If IsNumeric(strErg) Then
Label2.Caption = CLng(strErg)
Else
Label2.Caption = strErg
End If
End Sub