Makro
24.04.2004 21:36:25
jede029
kann man in der For x = 3 To 100 zeile die 100 in einen anderen wert durch eingabe in Tab.blatt1 zb A1 "eingabe 1000" ändern.
kann jemand helfen?
gruß jens
Set Datenbank = OpenDatabase(Dateiname)
Set Datensatz = Datenbank.OpenRecordset(Tabellenname)
With Datensatz
'Bereich B3:E100
For x = 3 To 100
.AddNew
For y = 2 To 5 'Spalte 2 bis 5
.Fields(Cells(2, y)).Value = Cells(x, y).Text
Next y
'Datensatz updaten
.Update
.Bookmark = .LastModified
Next x
End With