Ich stehe mal wieder vor einem Problem wo ich Eure Hilfe benötige.
Folgenden Code habe ich. Ich hole mir Daten aus Tabellenblatt "Erfassung_Bearbeitung" in eine UserForm ListBox1
das funktioniert auch bestens.
Wenn ich jetzt einen Datensatz in der ListBox1 selectiere werden mir die Daten entsprechend in die zugehörigen TexTBox und Label geschrieben.
Funktioniert auch bestens.
Jetzt zu meinem Problem:
Ich habe in meiner Tabelle ein Währungsformat (1.500.00 )
dieses Format möchte ich mir auch in meinem Label anzeigen lassen.
nur zeigt er mir nur (150000) an wie muss ich meinen Codezeile anpassen das er mir das Korrekte Format auch anzeigt.
Hier mein Code:
Private Sub TextBox10_Change() 'Datensatz Nummer
Dim varTMP As Variant
Dim strBild As String
'On Error GoTo Fin
If Not Trim(TextBox10.Text) = "" Then
With Sheets("Erfassung_Bearbeitung")
varTMP = Application.Match(CLng(TextBox10.Text), .Range("A:A"), 0)
If Not IsError(varTMP) Then
Me.Tag = varTMP
TextBox298.Value = .Cells(varTMP, 17).Value
ComboBox161.Value = .Cells(varTMP, 347).Value
Label860.Caption = .Cells(varTMP, 4).Value
Label861.Caption = .Cells(varTMP, 5).Value
Else
Me.Tag = ""
TextBox10.Text = ""
End If
End With
Else
TextBox10.Text = ""
End If
End Sub
Versucht habe ich das schon mit:
Label642.Caption = .Cells(varTMP, 21, "#,##0.00") & " Euro"
klappt aber leider nicht
Hat jemand für mich die Lösung?
Wäre echt Dankbar über Eure Hilfe
Gruß Andreas
Vorab schon mal Danke für Eure Bemühungen