Private Sub JetztWählen_Click()
    ' Telefonnummer holen
    Dim Antwort, Zielnummer, TelefonIP
    Zielnummer = TelNummernListBox.Value
    TelefonIP = SnomIP_Dropdown.Value
 
    'Antwort = MsgBox("Zielnummer=" & Zielnummer, vbOKOnly)
    'Antwort = MsgBox("Telefon-IP=" & TelefonIP, vbOKOnly)
 
    'TelefonIP = Replace(TelefonIP, "[a-zA-Z]@", "")
    'TelefonIP = "10.51.32.3"
    'Antwort = MsgBox("Telefon-IP=" & TelefonIP, vbOKOnly)
 
 
    ' Wählanfrage ans Telefon schicken
        '"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"))
 
        'vorher: Destination:=Range("a200"))
 
        .BackgroundQuery = True
        .TablesOnlyFromHTML = True
        .Refresh BackgroundQuery:=False
        .SaveData = False
 
        .WebFormatting = xlNone
        .WebSelectionType = xlSpecifiedTables
        .WebTables = "2"
 
 
        End With