Stehe vor folgendem Problem: Ich lasse über ein Formular Personendaten (Name, Straße, Tel...) erfassen und in eine Tabelle eintragen. Bei der Telefonnummer habe ich das Problem, dass mir Excel die voranstehende 0 nicht anzeigt. Eine formatierung der Zelle als Text schafft keine Abhilfe...
Habt Ihr eventuell eine Idee?
Gruß Jens
Hier das Makro, das die Textboxen aus dem Formular in die Tabelle einträgt:
Private Sub Speichern_Click()
Dim liZeile, liSpalte As Integer
Dim lcTXTbox As Control
liZeile = 5
liSpalte = 65
Do Until Range("A" & liZeile) = ""
liZeile = liZeile + 1
Loop
For Each lcTXTbox In Controls
If TypeName(lcTXTbox) = "TextBox" Then
If IsNumeric(lcTXTbox) = True And Not IsDate(lcTXTbox) = True Then
Range(Chr(liSpalte) & liZeile).Value = Str(lcTXTbox)
Else
Range(Chr(liSpalte) & liZeile).Value = lcTXTbox
End If
lcTXTbox = ""
liSpalte = liSpalte + 1
End If
Next
Unload Me
End Sub