Private Sub optLeer_Click()
Dim Leer As String
Leer = ""
TBZ = " & Leer & "
SpaltenanzahlErmitteln
TabelleNachSpaltenErstellen
End Sub

Private Sub optTab_Click()
TBZ = "    "
SpaltenanzahlErmitteln
TabelleNachSpaltenErstellen
End Sub

Public Sub TabelleNachSpaltenErstellen()
Dim FieldEnt
Dim Db As New ADODB.Connection
Db.Provider = "Microsoft.Jet.OLEDB.4.0"
Db.ConnectionString = IDBPfad
Db.Open
 
Db.Execute ("CREATE TABLE ImpData2S(Feld1 VARCHAR(255));")
For i = 2 To SPAz
    FieldEnt = "Feld" & i
    Db.Execute ("ALTER TABLE ImpData2S ADD [" & FieldEnt & "] VARCHAR(255);")
Next
End Sub