Private Sub JetztWählen_Click()
 
    Dim Antwort, Zielnummer, TelefonIP
    Zielnummer = TelNummernListBox.Value
    TelefonIP = SnomIP_Dropdown.Value
 
 
 
            '"URL;http://10.51.32.3/adr.htm?" &
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://" & SnomIP_Dropdown.Value & "/adr.htm?" & _
        "adrnumber=0" & TelNummernListBox.Value & "&outgoing=", _
        Destination:=Range("aa1"))
 
 
 
        .BackgroundQuery = True
        .TablesOnlyFromHTML = True
        .Refresh BackgroundQuery:=False
        .SaveData = False
 
        .WebFormatting = xlNone
        .WebSelectionType = xlSpecifiedTables
        .WebTables = "2"
 
 
        End With
 
 
 
End Sub