Problem mit "Application.Visible = False"
26.01.2018 14:15:41
Bernd
Habe folgendes Problem seit zwei Tagen. Es wird "Application.Visible=False" im Code ignoriert und Excel Tabelle wird sichtbar. Habe "Application.Visible=False" schon mehrfach im Code an andere Stelle gesetzt, leider ohne Erfolg.
Folgender Code bei Workbook Open
Private Sub Workbook_Open()
Application.Visible = False
Dim DatumStart As Date
Dim DatumEnde As Date
If Sheets("Order").Range("M2").Value = "" Then
frm_Startkapital.Show vbModeless
End If
TabellenNameEinlesen
DatumStart = Sheets("Abfragen").Range("G1")
DatumEnde = Sheets("Abfragen").Range("H1")
MsgBox "Die letzte Aktualisierung der historischen " & vbCrLf & vbCrLf & _
"Kurs-Tabellen war vor " & DateDiff("d", DatumStart, DatumEnde) & " Tag(en) !" & vbCrLf & _
vbCrLf & _
"Der letzte Import der Kurs-Tabellen war am " & (DatumStart)
frm_Start.Show vbModeless
End Sub
Office Version 2016 Pro 32bit - Windows10 Pro 64 bit
"Wenn du jemanden ohne Lächeln triffst, schenke ihm dein's!"