Datenmaske
25.11.2004 07:27:27
iven_s
in Excel gibt es ja die integrierte Datenmaske. Leider kann man damit nur Tabellen mit 32 Spalten bearbeiten.
Ich hab deshalb mal versucht etwas ähnliches nachzubasteln. Leider scheint bei der Übertragung der Daten in die Tabelle das Format nicht so umgesetzt zu werden, wie es sein soll.
Das merkt man daran, dass beim Filtern (z.B. der Datum formatierten Spalte nach größer oder kleiner als irgendein Datum) nicht das gewünschte Ergebnis erzielt wird.
Hat jemand eine Ahnung, wie ich den in den Textboxen enthaltenen Wert so in die Tabelle kriege, dass das Format der Zelle beachtet wird?
Habs wie folgt versucht, aber funzt nicht?
'übertragen
Private Sub CommandButton1_Click()
Dim zeile As Integer, spalte As Integer
Dim mytb As Control
spalte = 1
zeile = SpinButton1.Value
For Each mytb In Controls
If Left(mytb.Name, 5) = "TextB" Then
Cells(zeile, spalte) = Format(mytb.Value, Cells(zeile, spalte).NumberFormat)
spalte = spalte + 1
End If
Next
End Sub
Die Datei hab ich auch noch mit hochgeladen:
https://www.herber.de/bbs/user/13900.xls
Gruß iven_s