Office: (Office 2010) Access Tabelle mit Excel bearbeiten

klappt doch noch nicht ganz,

Code:

[/sSQL = "UPDATE Test SET Vorname = " & Range("L" & c.Row) & " WHERE ID =" & Range("Y" & c.Row)CODE]

an sich alles top aber es geht NUR mit Zahlen nicht mit Buchstaben



Code:
[quote]Private Sub Worksheet_Change(ByVal Target As Range)
Dim SQLBack As String



Dim objDatabase As Object 'für SQL Update
Dim sSQL As String 'für SQL Update

Dim Rng As Range, c As Range 'für den Change
Set Rng = Intersect(Target, Range("L:L")) 'nur in B wird auf Chance überwacht
If Not Rng Is Nothing Then
For Each c In Rng
'Cells(c.Row, 1).Value = "Changed"



Dim strQuest As String
strQuest = MsgBox("Soll der Hausheer geändert werden? " & _
"Wählen Sie jetzt...", vbYesNo + vbQuestion, "Löschen bestätigen")
'Wenn die Abfrage mit "Nein" bestätigt wird,
'wird die Prozedur mit dem  Befehl "Exit Sub" abgebrochen.
If strQuest = vbNo Then
MsgBox ("Nix gemacht")
Exit Sub
End If
'Es wird geändert
'MsgBox ("Erkannt wurde Zeile: " & c.Row)
'MsgBox ("Aktualisiert wird: " & Range("B" & c.Row)) 'Wert aus Spalte B und Zeile c.Row

sSQL = "UPDATE Test SET Vorname = " & Range("L" & c.Row) & " WHERE ID =" & Range("Y" & c.Row)
'sSQL = "UPDATE Test SET Vorname = " & Range("A1") & " WHERE ID = 1"
Set objDatabase = CreateObject("DAO.DBEngine.120").OpenDatabase("D:XXXX.accdb")
objDatabase.Execute sSQL, 128
Next
'sSQL = "SELECT Vorname FROM Test WHERE ID = 1" ' & Range("A" & c.Row)
'Set objDatabase = CreateObject("DAO.DBEngine.120").OpenDatabase("D:XXXX.accdb")
'objDatabase.Execute sSQL, 128
'Set SQLBack = CurrentDb.OpenRecordset(sSQL)
'MsgBox (sSQL)
'If 1 = 1 Then
'MsgBox ("Geändert!!!")
'End If

End If


End Sub[/quote]