Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1068to1072
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Label-Wert anpassen

Label-Wert anpassen
29.04.2009 11: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
Anzeige
AW: Label-Wert anpassen
29.04.2009 14: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


AW: Label-Wert anpassen
29.04.2009 15:35:09
Olaf
Aus
"Entfernung: 0 km" ist ein String, daraus
kannst du kei Clng() ableiten.
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige