ich habe folgen Zeile:
TextBox23.Text = Format(ListBox1.List(ListBox1.ListIndex, 1), "000 00")
leider werden -Zahlen angezeigt anstatt Werte aus der ListBox,
Wieso ?
Gruß Walter
Private Sub UserForm_Initialize()" folgende Zeile:
TextBox23.Text = Format(ListBox1.List(ListBox1.ListIndex, 1), "### ##")
in dem Makro für das Button damit der geänderte Wert zurück geschrieben wird ebenfalls
Private Sub CommandButton19_Click()
ListBox1.List(ListBox1.ListIndex, 1) = Format(TextBox23.Text, "### ##")
End Sub
Das ist die TextBox:
Private Sub TextBox23_Change()
End Sub
Jetzt funktioniert es in der ListBox, aber in der TextBox23 wo ich z.b. 21808 wird nach dem auslösen des Button Richtig in die ListBox1 gesetzt: 218 08 aber nicht in der Textbox, da steht immer noch 21808.
Kann man das ändern, dass man beim anklicken und ändern dann auch in der TextBox23
der Wert dann direkt so steht ? 218 08
Gruß Walter
Private Sub TextBox23_Change()
If Len(TextBox23.Text) = 5 And IsNumeric(TextBox23.Text) Then
TextBox23.Text = Format(CVar(TextBox23.Text), "### ##")
End If
End Sub
Private Sub UserForm_Initialize()
Dim lzeile As Long
Dim i As Integer, j As Integer
lzeile = Sheets(strSh).Cells(Sheets(strSh).Rows.Count, ersteSpalte).End(xlUp).Row
With ListBox1
.ColumnCount = 3 'Anzahl der Spalten
.ColumnWidths = "2cm;1cm;5cm" ' ;3cm;4cm" '<weg
.Clear
'Listbox füllen
.List = Range(Sheets(strSh).Cells(intstartzeile, ersteSpalte), _
Sheets(strSh).Cells(lzeile, ersteSpalte + 2)).Value
ListBox1.List(i, 0) = Format(ListBox1.List(i + 2, "0000")) <<< habe ich reingesetzt,
ist die 2 Spalte !
End With
' ListBox1.List(i, 1) = Format("0000")
NummernAktualisieren 'muß stehen da das Format drin ist "00"
UpdateButtons
VK_UF.Label2 = ActiveSheet.Range("AF91").End(xlDown)
End Sub