Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Beim Öffnen der Arbeitsmappe Bestellnummer eintragen

Gruppe

Open

Problem

Beim Öffnen der Arbeitsmappe soll in Zelle B1 die nächste Bestellnummer eingetragen werden.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.

ClassModule: DieseArbeitsmappe

Private Sub Workbook_Open()
   Dim vNo As Variant
   Dim iCounter As Integer
   Dim sPath As String
   On Error GoTo ERRORHANDLER
   sPath = "c:\temp"
   With Application.FileSearch
      .Filename = "*.xls"
      .SearchSubFolders = False
      .LookIn = sPath
      .Execute msoSortByFileName
      If .FoundFiles.Count > 0 Then
         vNo = Dir(.FoundFiles(.FoundFiles.Count))
      Else
         vNo = 0
      End If
   End With
   With Range("B1")
      .NumberFormat = "@"
      .Value = Format(CInt(Left(vNo, 4)) + 1, "0000")
   End With
   Exit Sub
ERRORHANDLER:
   MsgBox "Sie müssen das Verzeichnis anpassen!"
End Sub