Hallo zusammen,

immer wenn man meint, es ist als paletti, kommt wieder ein Umstand daher.

Habe ja kürzlich Hilfe zu der Message-Box bekommen, welche auch tadellos funktioniert:

Option Explicit
 
Private Sub bei_start_inputbox()
    Dim vntInput As Variant
    With ThisWorkbook.Worksheets("Kalkulation").Cells(1, 3)
        Do
            vntInput = InputBox(Prompt:="Eingabe-Pj.-NR", Title:="Abfrage Projekt-Nr.", Default:=.Value)
            If StrPtr(vntInput) = 0 Then
                Call MsgBox("Bitte bestätigen Sie Ihre Eingabe mit 'Ok'")
            ElseIf Trim$(vntInput) = "" Then
                Call MsgBox("Das Eingabefeld darf nicht leer sein!")
            ElseIf Not IsNumeric(vntInput) Then
                Call MsgBox("Bitte geben Sie eine Zahl ein..")
            ElseIf IsNumeric(vntInput) And (CLng(vntInput) \ 10000000 < 1 Or CLng(vntInput) \ 10000000 > 9) Then
                Call MsgBox("Die eingebene Zahl muß exakt fünf Ziffern enthalten...")
            Else
                Exit Do
            End If
        Loop
        .Value = vntInput
    End With
End Sub
 
Private Sub Workbook_Open()
Call bei_start_inputbox
End Sub

Jetzt ist es so, dass vom Anwender wieder diverse gespeicherte Dateien aufgerufen werden müssen, um daran Veränderungen zu machen. Nachdem auf dem System wo dies gemacht wird, per Dateibrowser nicht dorthin geclickt werden kann, suche ich einer praktikabeln Möglichkeit.

Mir fällt jetzt nur ein, man könnte in die Message Box einen weiteren Button hinzufügen, welcher nach Betätigung ein Eingabefenster öffnet, in welches man die bereits existente 8-stellige Ziffer eingeben kann (bestehende Datei). Es sind die dafür in Frage kommenden Dateien alle in einem festen Netzlaufwerks-Pfad abgespeichert (y:\Nachkalkulation\). Es würde quasi beim Start der tabelle sich dann 2 Wege ergeben:
a) neue Datei anlegen (Code wie bisher)
b) gespeicherte Datei wieder aufrufen über Eingabe der Pj.-Nr und Zugriff auf diese Datei auf Laufwerk (y:\Nachkalkulation\).

Wäre das möglich oder hätte jemand eine andere Idee?
Was aber ausscheidet ist, dass der User mittels Datei-Browser selbst die Datei erreicht.

Danke & Gruss,

Jürgen
Nach eintippen der Zahlen würde dann die betreits gespeicherte Tabelle geöffnet.