Zellenformatierung
16.03.2004 23:56:00
Jens
Habe ein Problem und brauche mal Eure Hilfe...
Habe eine Userform, in der über Textboxes Zahlen eingegeben werden und dann in bestimmte Zellen übernommen werden.
Durch diese Werte wird dann eine Tabelle sortiert. Die Tabelle erkennt diese Werte aber als Text, so dass ich die Tabelle nicht sortieren kann.
Wie kann ich die Zellen, in denen die Eingaben der Textboxes übernommen werden als Zahl formatieren???
Über die normale Zell-Formatierung funzt das nicht....
Vielen Dank.
Falls es hilft:
Private Sub CommandButton1_Click()
If CommandButton1 = False Then
If Msgbox("Alle Eingaben richtig???", vbYesNo + vbDefaultButton1, "ACHTUNG") = vbYes Then
For i = 1 To 34
k = 11
If TextBox55.Text = i Then
Worksheets("Liga1").Activate
Cells(3 + (i * k) - k, 4).Value = TextBox28
Cells(3 + (i * k) - k, 5).Value = TextBox37
Cells(4 + (i * k) - k, 4).Value = TextBox29
Cells(4 + (i * k) - k, 5).Value = TextBox38
Cells(5 + (i * k) - k, 4).Value = TextBox30
Cells(5 + (i * k) - k, 5).Value = TextBox39
Cells(6 + (i * k) - k, 4).Value = TextBox31
Cells(6 + (i * k) - k, 5).Value = TextBox40
Cells(7 + (i * k) - k, 4).Value = TextBox32
Cells(7 + (i * k) - k, 5).Value = TextBox41
Cells(8 + (i * k) - k, 4).Value = TextBox33
Cells(8 + (i * k) - k, 5).Value = TextBox42
Cells(9 + (i * k) - k, 4).Value = TextBox34
Cells(9 + (i * k) - k, 5).Value = TextBox43
Cells(10 + (i * k) - k, 4).Value = TextBox35
Cells(10 + (i * k) - k, 5).Value = TextBox44
Cells(11 + (i * k) - k, 4).Value = TextBox36
Cells(11 + (i * k) - k, 5).Value = TextBox45
End If
Unload UserForm1
Next i
End If
End If
End Sub