VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Nummer aus zweiter Datei abrufen

Gruppe

Allgemein

Bereich

Interaktion

Thema

Nummer aus zweiter Datei abrufen

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Interaktion