AW: Makro aus Fremdmodul starten
19.08.2003 18:39:22
Thomas
Ganz unten möchte ich mit NachTechnik das Modul NachTechnik aufrufen!
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Arbeitsmappe vor dem Schließen speichern
ActiveWorkbook.Save
If Dir("S:\Persönliche Ordner\Severa\TECHNIK\" & Sheets("TECHNIK").Range("A1") & ".xls") _
<> "" Then Kill "S:\Persönliche Ordner\Severa\TECHNIK\" & Sheets("TECHNIK").Range("A1") & ".xls"
ActiveWorkbook.SaveCopyAs "S:\Persönliche Ordner\Severa\TECHNIK\" & Sheets("TECHNIK").Range("A1") & ".xls"
'| Datenexport Access |
Dim DB As Database
Dim RS As Recordset
Dim i As Long
'Aufruf der Löschfunktion
DeleteInAccess
Set DB = OpenDatabase("S:\Board\PANDA.mdb")
Set RS = DB.OpenRecordset("PLAN", dbOpenDynaset)
i = 0
Sheets("PLAN").Activate
ActiveWorkbook.Sheets("PLAN").Range("A2").Select
'On Error GoTo fehlerm
Do While ActiveCell.Value <> ""
RS.AddNew
RS!Konto = ActiveCell.Value
RS!Bezeichnung = ActiveCell.Offset(0, 1).Value
RS!Betrag = ActiveCell.Offset(0, 4).Value
RS!KST = ActiveCell.Offset(0, 5).Value
RS!IstDatum = ActiveCell.Offset(0, 7).Value
RS!Bank = ActiveCell.Offset(0, 15).Value
RS!Plz = ActiveCell.Offset(0, 16).Value
RS.Update
ActiveCell.Offset(1, 0).Select
i = i + 1
Loop
MsgBox "Datentransfer erfolgreich beendet! " & Chr(13) & _
"Es wurden " & i & "Sätze eingelesen!"
RS.Close
DB.Close
Exit Sub
NachTechnik
End Sub