Hallo,

Ich habe ein Makro was Daten aus einer SQL Datenbank Aktualisieren soll, so weit so gut. Problem ist wenn keine Verbindung zum Server besteht kommt die Frage der zugangsdaten.

Ich möchte das makro aller 5min ausführen, bekomme ich auch so weit hin.

Wenn ein Verbindungsfehler kommt bzw nicht verbinden kann soll nichts passieren und einfach 5 minuten später wie geplant das Makro neu ausgeführt werden

Sub SQL()
'
' SQL Makro
'

'
    
    Sheets.Add After:=ActiveSheet
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=""Messdaten (2)"";Extended Properties=""""" _
        , Destination:=Range("$A$1")).QueryTable
        .CommandType = xlCmdSql
        .CommandText = Array("SELECT * FROM [Messdaten (2)]")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        
        .Refresh BackgroundQuery:=False
    End With
    
End Sub

Alternativ währe doch bestimmt möglich die Abfrage direkt über das Makro zu machen, weis aber leider nicht wie ich die Verbindung zum SQL Server bekomme.

Danke