AW: zweite Mappe öffen und Makroende abwarten
22.01.2010 15:48:28
Joni
Hallo Sepp,
hier die vereinfachte Version.
Mappe 1:
Sub workbook_open()
Dim DATBZ1, DATEZ1, VBUNR, BBUNR As String
10 DATBZ1 = InputBox("Beginn Zeitraum (Format TT.MM.JJ)?", "Datum", Format(expression:=( _
DateSerial(Year(Date), 1, 1)), Format:="dd.mm.yy"))
If Not DATBZ1 Like "##.##.##" Then GoTo 10
Sheets("Objekte").Cells(4, 5) = DATBZ1
20 DATEZ1 = InputBox("Ende Zeitraum (Format TT.MM.JJ)?", "Datum", Format(expression:=( _
DateSerial(Year(Date), 12, 31)), Format:="dd.mm.yy"))
If Not DATEZ1 Like "##.##.##" Then GoTo 20
Sheets("Objekte").Cells(5, 5) = DATEZ1
28 VBUNR = "1" 'Beginn mit welcher Buchungsnummer?
Sheets("Objekte").Cells(6, 5) = VBUNR
29 BBUNR = "10" 'Ende mit welcher Buchungnummer?
Sheets("Objekte").Cells(7, 5) = BBUNR
Sheets("Objekte").Cells(9, 5) = 4 'Beginnzeile mit den Objektnummern
Call Kontoauszug_starten
End Sub
Sub Kontoauszug_starten()
Dim i As Variant
Dim k As Variant
Dim OBJ As Variant
Dim PFAD As String 'Pfad wo die Dateien gespeichert sind
Dim DATEI As String 'Dateiname der Kontoauszugsdatei
PFAD = ThisWorkbook.Path
DATEI = "Kontoauszug Personen Objekte.xls"
i = Sheets("Objekte").Cells(9, 5)
If Sheets("Objekte").Cells(i, 1) <> "" Then
OBJ = Sheets("Objekte").Cells(i, 1) 'Objekt auslesen
Sheets("Objekte").Cells(8, 5) = OBJ
Workbooks.Open Filename:=PFAD & "\" & DATEI
Else
GoTo Ende
End If
Ende:
End Sub
Mappe 2:
Sub workbook_open()
Application.Run ("'Kontoauszug Personen Objektliste.xls'" & "!Kontoauszug_schließen") 'Mappe 1 _
Marko aufrufen
End Sub
Mappe 1:
Sub Kontoauszug_schließen()
Dim DATEI As String 'Dateiname der Kontoauszugsdatei
Dim LISTE As String 'Dateiname der Abfrageliste
DATEI = "Kontoauszug Personen Objekte.xls" 'Mappe 2
LISTE = "Kontoauszug Personen Objektliste.xls" 'Mappe 1
Workbooks(LISTE).Activate
Workbooks(DATEI).Saved = True
Workbooks(DATEI).Close 'bis hierher klappt alles
MsgBox ("Test")
End Sub
Bis zur drittletzten Zeile funktioniert alles. Wenn dann die 2. Arbeitsmappe geschlossen wird, macht das Makro nicht mehr weiter. Wie kann ich dieses Problem löschen?
Ich hoffe auf deine Hilfe.
Gruß Joni