Exel Textfelder in Access importieren
08.08.2003 19:15:34
Harald
Habe folgendes Problem: Habe in einer Tabelle einen Gesamtstand den ich mittels
Makro in ein Formular einlese. Dort werden Berechnugen durchgeführt und wiederum mittels Makro in eine andere Tabelle übertragen.
Das Problem dabei ist, daß ich Daten, die über das Makro in die andere Tabelle
geschoben werden, sich in Access nicht importieren lassen, obwohl alles Textfelder sind. Schreibe ich den Datensatz direkt in die Tabelle, so ist es kein Problem mit Access. In Access bekomme ich bei den kopierten Datensätzen, beim importieren, immer die Fehlermeldung "Datentypen in Kriterienausdruck unverträglich".
Mein Makro zum kopieren der Datensätze schaut folgendermaßen aus:
Dim a As String, b As String, c As String, d As String, e As String
Dim f As String, g As String, h As String, i As String, j As String, k As String
Dim l As String, m As String, n As String, o As String, p As String, q As String
Dim r As String, s As String, t As String, u As String, v As String, w As String
Dim x As String, y As String, z As String, aa As String
Range("K2").Select
a = ActiveCell.Value
ActiveCell.Next.Select
b = ActiveCell.Value
ActiveCell.Next.Select
c = ActiveCell.Value
ActiveCell.Next.Select
d = ActiveCell.Value
ActiveCell.Next.Select
e = ActiveCell.Value
ActiveCell.Next.Select
f = ActiveCell.Value
ActiveCell.Next.Select
g = ActiveCell.Value
ActiveCell.Next.Select
h = ActiveCell.Value
ActiveCell.Next.Select
i = ActiveCell.Value
ActiveCell.Next.Select
j = ActiveCell.Value
ActiveCell.Next.Select
k = ActiveCell.Value
ActiveCell.Next.Select
l = ActiveCell.Value
ActiveCell.Next.Select
m = ActiveCell.Value
ActiveCell.Next.Select
n = ActiveCell.Value
ActiveCell.Next.Select
o = ActiveCell.Value
ActiveCell.Next.Select
p = ActiveCell.Value
ActiveCell.Next.Select
q = ActiveCell.Value
ActiveCell.Next.Select
r = ActiveCell.Value
ActiveCell.Next.Select
s = ActiveCell.Value
ActiveCell.Next.Select
t = ActiveCell.Value
ActiveCell.Next.Select
u = ActiveCell.Value
ActiveCell.Next.Select
v = ActiveCell.Value
ActiveCell.Next.Select
w = ActiveCell.Value
ActiveCell.Next.Select
x = ActiveCell.Value
ActiveCell.Next.Select
y = ActiveCell.Value
ActiveCell.Next.Select
z = ActiveCell.Value
ActiveCell.Next.Select
aa = ActiveCell.Value
Sheets("Neu-File").Select
Rows("2:2").Select
Range("A2").Select
Selection.Value = a
Range("B2").Select
Selection.Value = b
Range("C2").Select
Selection.Value = c
Range("D2").Select
Selection.Value = d
Range("E2").Select
Selection.Value = e
Range("f2").Select
Selection.Value = r
Range("g2").Select
Selection.Value = g
Range("h2").Select
Selection.Value = h
Range("i2").Select
Selection.Value = i
Range("j2").Select
Selection.Value = j
Range("k2").Select
Selection.Value = k
Range("l2").Select
Selection.Value = l
Range("m2").Select
Selection.Value = m
Range("n2").Select
Selection.Value = n
Range("o2").Select
Selection.Value = o
Range("p2").Select
Selection.Value = p
Range("q2").Select
Selection.Value = q
Range("r2").Select
Selection.Value = r
Range("s2").Select
Selection.Value = s
Range("t2").Select
Selection.Value = t
Range("u2").Select
Selection.Value = u
Range("v2").Select
Selection.Value = v
Range("w2").Select
Selection.Value = w
Range("x2").Select
Selection.Value = x
Range("y2").Select
Selection.Value = y
Range("z2").Select
Selection.Value = z
Range("aa2").Select
Selection.Value = aa
Range("A2").Select
Sheets("Gesamttabelle").Select
Rows("2:2").Select
Selection.Insert shift:=xlDown
Range("A2").Select
Selection.Value = a
Range("B2").Select
Selection.Value = b
Range("C2").Select
Selection.Value = c
Range("D2").Select
Selection.Value = d
Range("E2").Select
Selection.Value = e
Range("f2").Select
Selection.Value = r
Range("g2").Select
Selection.Value = g
Range("h2").Select
Selection.Value = h
Range("i2").Select
Selection.Value = i
Range("j2").Select
Selection.Value = j
Range("k2").Select
Selection.Value = k
Range("l2").Select
Selection.Value = l
Range("m2").Select
Selection.Value = m
Range("n2").Select
Selection.Value = n
Range("o2").Select
Selection.Value = o
Range("p2").Select
Selection.Value = p
Range("q2").Select
Selection.Value = q
Range("r2").Select
Selection.Value = r
Range("s2").Select
Selection.Value = s
Range("t2").Select
Selection.Value = t
Range("u2").Select
Selection.Value = u
Range("v2").Select
Selection.Value = v
Range("w2").Select
Selection.Value = w
Range("x2").Select
Selection.Value = x
Range("y2").Select
Selection.Value = y
Range("z2").Select
Selection.Value = z
Range("aa2").Select
Selection.Value = aa
Range("A2").Select
Sheets("Eingabeformular").Select
ActiveWindow.ScrollColumn = 1
Range("B8").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("C8").Select
Selection.ClearContents
Range("D8").Select
Selection.ClearContents
Range("E8").Select
Selection.ClearContents
Range("F8").Select
Selection.ClearContents
Range("G8").Select
Selection.ClearContents
Range("C16").Select
Selection.ClearContents
Range("F15").Select
Selection.ClearContents
Range("H16").Select
Selection.ClearContents
Range("F28").Select
Selection.ClearContents
Range("F35").Select
Selection.ClearContents
Range("B8").Select
End Sub
Ich weiß sehr kompliziert und nicht übersichtlich, aber diese geht.
Bitte um dringende Hilfe, ist wirklich wichtig!!!!!!!!!!!!!!
Danke Harry