Datenbank Makro
11.10.2004 22:00:00
jede029
Ich habe einen code der daten in eine datenbank schreibt es geht auch wunderbar
aber durch neue auswertungsdateien bin ich mit den code am ende.
im moment werden die daten von B3:Gx in diedatenbank geschrieben.
wie kann man die For next schleife ändern sodas nur noch B3:Ex und
die spalte Hx eingelesen wird.
danke und gruß
jens
'Daten aus einem Bereich in die Datenbank schreiben
Sub Daten_schreiben()
'Prüfen, Tabelle existiert
If Not TableExists(Dateiname, Tabellenname) Then
MsgBox "Datenbank oder Tabelle ist nicht vorhanden !", vbExclamation
Exit Sub
End If
'Datenbank und Tabelle öffnen
Set Datenbank = OpenDatabase(Dateiname)
Set Datensatz = Datenbank.OpenRecordset(Tabellenname)
With Datensatz
For x = 3 To Sheets("werte").[f20]'letzte zeile x für zeile
.AddNew
For y = 2 To 6 'Spalte 2 bis 6
.Fields(Cells(2, y)).Value = Cells(x, y).Text
Next y
'Datensatz updaten
.Update
.Bookmark = .LastModified
Next x
End With
Datenbank.Close
End Sub