ich bräuchte mal wieder eure Hilfe. In einer Datei habe ich den nachfolgenden Code geschrieben.
Nachdem die Variablen gesetzt sind, soll eine Datei geöffnet werden. Das klappt auch wunderbar. Allerdings nur, wenn die geöffnete Datei vorher mit einem bestimmten Reiter gespeichert wurde (Reiter "Daten"). Wenn ich bspw. auf dem Reiter "Aktuell" bin kommt eine Fehlermeldung. Ich habe schon viele Varianten ausprobiert - Worksheets.("Daten").Select, .Active, ...
Irgendwo ist mein Fehler, welchen ich aber gerade nicht sehe :)
' Variablen
Public VER As Long
Public VER_STD As Long
Public MIX_RE As Long
Public MIX_RE_STD As Long
Public LANE_RE As Long
Public LANE_RE_STD As Long
Public DATUM As Date
Public APP_PASSWORD As String
Public DEBUG_ME As Boolean
' die Hauptprozedur
'
Sub KPI_Dashboard()
Application.ScreenUpdating = DEBUG_ME
Application.DisplayAlerts = DEBUG_ME
If DEBUG_ME Then
On Error GoTo ErrHandler
End If
InitGlobals
OpenDatei
Application.DisplayAlerts = Not DEBUG_ME
Application.ScreenUpdating = Not DEBUG_ME
Exit Sub
ErrHandler:
Debug.Print Err.Description
Stop
Resume
End Sub
'' InitGlobals
'
' Alle globalen Variablen initialisieren
'
Sub InitGlobals()
With Worksheets("Basis")
DEBUG_ME = False
VER = Range("E5").Value
VER_STD = Range("D5").Value
MIX_RE = Range("E9").Value
MIX_RE_STD = Range("D9").Value
LANE_RE = Range("E13").Value
LANE_RE_STD = Range("D13").Value
APP_PASSWORD = "Test"
DATUM = Range("F4").Value
End With
End Sub
Sub OpenDatei()
Dim Treffer As Range
Workbooks.Open "\\Dsv.com\corp\Userdocs\Dennis.Kublanck\Dennis Kublanck\Heidenau\Excel\ _
Tagesmeldung\Tagesmeldung_2020_V1.0.xlsx"
'Sheets("Daten").Select
Set Treffer = Range("D3:D500").Find(What:=DATUM, LookIn:=xlValues, LookAt:=xlWhole)
x = Treffer.Row
Range("I" & x).Value = VER
Range("J" & x).Value = VER_STD
Range("K" & x).Value = MIX_RE
Range("L" & x).Value = MIX_RE_STD
Range("M" & x).Value = LANE_RE
Range("N" & x).Value = LANE_RE_STD
Range("D1").Value = DATUM
End Sub