Gruppe
Allgemein
Problem
Wie kann ich beim Öffnen einer Arbeitsmappe eine Nummer aus einer zweiten Arbeitsmappe abrufen, diese um 1 erhöhen, eintragen und die 2. Arbeitsmappe wieder speichern und schließen?
ClassModule: DieseArbeitsmappe
Private Sub Workbook_Open()
Dim rng As Range
Dim sFile As String
Application.ScreenUpdating = False
Set rng = Worksheets("Tabelle1").Range("B1")
sFile = ThisWorkbook.Path & "\test1.xls"
If Dir(sFile) = "" Then
Beep
MsgBox prompt:="Testarbeitsmappe " & _
sFile & " ist nicht vorhanden!"
Exit Sub
End If
Workbooks.Open sFile
Range("B2").Value = Range("B2").Value + 1
rng.Value = Range("B2").Value
ActiveWorkbook.Close savechanges:=True
Application.ScreenUpdating = True
End Sub