Hi,
ich möchte beim Öffnen einer Exceldatei, dass eine andere Exceldatei „Mappe2“ geöffnet wird, dort z.B. das Tabellenblatt „DH_BRD“ gewählt wird und in der Zelle „A1“ der Wert um 1 erhöht wird.
Ich möchte mir so einen automatischen Zähler für die Ausgangsdatei ertsellen.
Ich benötige denk ich diese zusätzliche Exceldatei (Mappe2) da die Ausgangsdatei nur geöffnet wird aber NICHT gespeichert wird!!!
Mappe2 und Ausgangsdatei liegen bei uns auf unserem Server „O“. Beide Dateien beinhalten mehrere Tabellenblätter.
Excel meckert mit dieser Fehlermeldung:
„Laufzeitfehler 9“
und markiertGELB die Zeile:
Sheets(„DH_BRD“).Activate
Code:
Private Sub Workbook_Open()
Workbooks.Open Filename:=„O:\LC\Mappe2.xls“
Workbooks(„Mappe2.xls“).Activate
Sheets(„DH_BRD“).Activate
Range(„A1“).Value = Range(„A1“).Value + 1
ActiveWorkbook.Save
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
„O:\LC\Mappe2.xls“, FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWorkbook.Close
End Sub
Grüße
Lombe