Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Nummer aus zweiter Datei abrufen

Gruppe

Interaktion

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?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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