Wer mit VBA arbeitet, kommt heute kaum noch daran vorbei: Fast jeder interessante Online-Dienst – von Wetter- und Geo-Daten über Projektmanagement-Tools bis hin zu KI-Diensten – bietet eine Rest-API an. Dabei ist das Prinzip immer dasselbe: Du schickst eine HTTP-Anfrage an eine bestimmte URL, und der Dienst antwortet mit strukturierten Daten – in der Regel im JSON-Format. Ob Du Kundenadressen mit einem CRM abgleichen, Versandetiketten bei DHL anfordern, Aufgaben in Trello anlegen oder Texte mit DeepL übersetzen willst – hinter all diesen Integrationen steckt dieselbe Technik. VBA bringt dafür alle nötigen Werkzeuge von Haus aus mit: Ein einziger Verweis auf eine Windows-Systembibliothek genügt, um HTTP-Anfragen abzusetzen und die Antworten auszuwerten. Dieser Artikel erklärt, was eine Rest-API überhaupt ist, welche Grundbegriffe Du kennen musst, um jede beliebige API-Dokumentation selbstständig zu lesen, und wie Du eine wiederverwendbare Funktion baust, die Du als solide Basis für jeden weiteren API-Aufruf einsetzen kannst.<\/b><\/p>\n
Was ist eine Rest-API?<\/h2>\n
REST<\/b> steht für Representational State Transfer und bezeichnet einen Architekturstil für verteilte Systeme, der auf dem HTTP-Protokoll basiert. Eine Rest-API (Application Programming Interface) stellt Ressourcen – zum Beispiel Kundendatensätze, Wetterdaten oder Projektaufgaben – über eindeutige URLs bereit. Der Zugriff darauf erfolgt mit den bekannten HTTP-Methoden:<\/p>\n Im Unterschied zu älteren SOAP-Webservices – die einen aufwendigen XML-Umschlag benötigen – verwendet REST<\/b> meist das leichtgewichtige JSON-Format für Anfragen und Antworten. Das macht Rest-APIs deutlich einfacher konsumierbar.<\/p>\n Jede Rest-API-URL besteht aus mehreren Teilen, die wir kennen müssen, bevor wir den ersten VBA-Aufruf absetzen. Nehmen wir als Beispiel eine fiktive Aufgaben-API:<\/p>\n Der erste Teil, https:\/\/api.beispiel.de<\/b>, ist die Basis-URL des Dienstes. Das Segment \/v1\/<\/b> bezeichnet die API-Version – viele Anbieter versionieren ihre API, damit bestehender Code nicht bricht, wenn neue Funktionen hinzukommen. Der Pfad \/aufgaben<\/b> benennt die Ressource. Ab dem Fragezeichen folgen optionale URL-Parameter (auch “Query-String” genannt), die mit dem &<\/b>-Zeichen voneinander getrennt werden.<\/p>\n Manche APIs ergänzen die URL um eine Ressourcen-ID, wenn ein einzelner Datensatz angesprochen wird:<\/p>\n Das Prinzip ist immer gleich – und genau das macht Rest-APIs so gut erlernbar.<\/p>\n Neben der URL trägt jede HTTP-Anfrage einen Satz von Headern, also Name-Wert-Paaren, die Metainformationen über den Aufruf übermitteln. Die häufigsten Header, die wir in VBA selbst setzen, sind:<\/p>\n Wie genau das Authentifizierungs-Token aussieht und wie man es beschafft, ist von Dienst zu Dienst unterschiedlich und Gegenstand eigener Artikel.<\/p>\n Die Antwort des Servers enthält immer einen dreistelligen Statuscode, der uns sofort sagt, ob der Aufruf erfolgreich war.<\/p>\n Folgende Auflistung zeigt die wichtigsten Codes im Überblick:<\/p>\n Die Codes lassen sich grob in Gruppen einteilen: 2xx steht generell für Erfolg, 4xx<\/b> für einen Fehler auf der Client-Seite (zum Beispiel falscher API-Key oder ungültige URL) und 5xx<\/b> für einen Fehler auf der Server-Seite. Der Code 401<\/b> bedeutet “nicht autorisiert” und weist meist auf ein fehlendes oder abgelaufenes Token hin. 404<\/b> kennst Du vielleicht schon vom Surfen im Web und bedeutet hier, dass die angeforderte Ressource unter dieser URL nicht existiert.<\/p>\n VBA bringt von Haus aus kein eigenes HTTP-Objekt mit. Wir greifen stattdessen auf die Bibliothek Microsoft XML, v6.0<\/b> zurück, die Windows standardmäßig mitliefert. Diese enthält das Objekt MSXML2.XMLHTTP60<\/b>, das uns alle nötigen Methoden und Eigenschaften für HTTP-Aufrufe bereitstellt.<\/p>\n Alternativ steht MSXML2.ServerXMLHTTP60<\/b> zur Verfügung. Der Unterschied: XMLHTTP60<\/b> nutzt die Proxy-Einstellungen des angemeldeten Windows-Benutzers, während ServerXMLHTTP60<\/b> eine eigene Verbindung ohne Benutzerkontext aufbaut und sich deshalb besser für serverseitige Szenarien oder Situationen eignet, in denen kein Benutzerprofil vorliegt.<\/p>\n Für typische Aufgaben am Entwickler-PC sind beide gleichwertig. In diesem Artikel verwenden wir XMLHTTP60<\/b>.<\/p>\n Damit wir das Objekt mit früher Bindung, also mit voller IntelliSense-Unterstützung, nutzen können, müssen wir dem VBA-Projekt einen Verweis auf die XML-Bibliothek hinzufügen.<\/p>\n Dazu öffnen wir im VBA-Editor den Dialog über den Befehl Extras|Verweise<\/b> und aktivieren den Eintrag Microsoft XML, v6.0<\/b> (siehe Bild 1).<\/p>\n Bild 1: Den Verweis auf Microsoft XML, v6.0 im Verweise-Dialog aktivieren<\/span><\/b><\/p>\n Ab sofort können wir Variablen als MSXML2.XMLHTTP60<\/b> deklarieren und profitieren von der Typprüfung beim Kompilieren.<\/p>\n Das Objekt arbeitet nach einem festen Ablauf, den wir uns merken sollten:<\/p>\n Der dritte Parameter von Open<\/b> legt fest, ob der Aufruf asynchron erfolgen soll.<\/p>\n Wir übergeben hier immer False<\/b>, damit der Code solange wartet, bis die Antwort eingetroffen ist.<\/p>\n Anstatt in jedem Modul das XMLHTTP60<\/b>-Objekt neu aufzubauen, lohnt es sich, eine zentrale Funktion anzulegen, die alle API-Aufrufe kapselt.<\/p>\n Listing 1 zeigt diese Funktion namens HTTPRequest<\/b>.<\/p>\n Listing 1: Die Funktion HTTPRequest kapselt alle HTTP-Aufrufe an Rest-APIs.<\/span><\/b><\/p>\n Die Funktion nimmt folgende Parameter entgegen:<\/p>\n Als Rückgabewert liefert die Funktion den HTTP-Statuscode als Integer<\/b>. Die aufrufende Prozedur kann diesen Wert auswerten und entsprechend reagieren.<\/p>\n Eine typische Auswertung des Statuscodes sieht wie folgt aus. Der Select Case<\/b>-Block behandelt die häufigsten Fälle.<\/p>\n Beachte, dass die Codes 200<\/b> und 201 <\/b>beide Erfolg bedeuten: 200 <\/b>steht für einen allgemeinen Erfolg, 201 <\/b>für das erfolgreiche Anlegen einer neuen Ressource per POST. Viele APIs verwenden beide.<\/p>\n Für das folgende Praxisbeispiel benötigen wir keine eigene Datenbank. Wir nutzen den öffentlich zugänglichen Dienst JSONPlaceholder<\/b> unter https:\/\/jsonplaceholder.typicode.com<\/b>. Dieser bietet eine kostenlos nutzbare Testumgebung, die REST-Aufrufe entgegennimmt und mit realistischen JSON-Daten antwortet – ohne Anmeldung und ohne API-Key. Das macht ihn ideal als ersten Testpartner.<\/p>\n Der Dienst stellt unter anderem diese Ressourcen bereit: posts<\/b> (Blogbeiträge), users<\/b> (Benutzerdaten) und todos<\/b> (Aufgaben). Wir verwenden in den folgenden Beispielen die Ressource posts<\/b>. <\/p>\n Aber Achtung: Auch wenn das Anlegen neuer Elemente, das Ändern oder Löschen bestehender Elemente als erfolgreich gemeldet wird, werden die Änderungen nicht tatsächlich durchgeführt.<\/p>\n Mit der Prozedur PostsLesen<\/b> aus Listing 2 lesen wir den ersten Beitrag aus dem Dienst aus. Die URL lautet https:\/\/jsonplaceholder.typicode.com\/posts\/1<\/b> – die 1<\/b> am Ende ist die ID des Datensatzes.<\/p>\n Listing 2: Abrufen eines einzelnen Datensatzes per GET<\/span><\/b><\/p>\n Wenn wir diese Prozedur starten, erscheint im Direktbereich des VBA-Editors ein JSON-Dokument wie das folgende:<\/p>\n Das ist die rohe JSON-Antwort des Servers. Wie wir dieses Dokument in VBA auswerten, zeigen wir im Abschnitt “JSON-Antworten verarbeiten”.<\/p>\n Ein POST<\/b>-Aufruf unterscheidet sich von einem GET<\/b>-Aufruf dadurch, dass wir einen Body mitschicken – also ein JSON-Dokument, das die Daten des neuen Datensatzes enthält. Listing 3 zeigt, wie wir einen neuen Beitrag anlegen.<\/p>\n Listing 3: Anlegen eines neuen Datensatzes per POST<\/span><\/b><\/p>\n Das JSON-Dokument in strData<\/b> stellen wir als String direkt im Code zusammen. Dabei verdoppeln wir innere Anführungszeichen, weil VBA Anführungszeichen innerhalb von String-Literalen so maskiert. Im fertigen String liefert das gültiges JSON.<\/p>\n Der Dienst antwortet mit dem Statuscode 201 und gibt das angelegte Objekt inklusive der neu vergebenen ID zurück.<\/p>\n Ein PUT<\/b>-Aufruf ersetzt einen vorhandenen Datensatz vollständig. Wir übergeben die ID in der URL und schicken das vollständige, aktualisierte Objekt als Body mit. Listing 4 zeigt, wie wir den Beitrag mit der ID 1 ersetzen.<\/p>\n Listing 4: Ersetzen eines vorhandenen Datensatzes per PUT<\/span><\/b><\/p>\n Das Löschen ist der einfachste Aufruf: Wir senden ein DELETE<\/b> an die URL des Datensatzes, ohne einen Body mitzuschicken. Der Dienst antwortet mit dem Statuscode 200 und einem leeren JSON-Objekt, was den erfolgreichen Löschvorgang bestätigt. Listing 5 zeigt die zugehörige Prozedur.<\/p>\n Listing 5: Löschen eines Datensatzes per DELETE.<\/span><\/b><\/p>\n Nachdem wir die rohe JSON-Antwort in strResponse<\/b> haben, müssen wir sie auslesen. VBA bietet dafür keine eingebaute Unterstützung. In der VBE-Artikelreihe haben wir dafür die Module mdlJSON<\/b> und mdlJSONDOM<\/b> vorgestellt, die alle nötigen Werkzeuge bereitstellen.<\/p>\n Diese haben wir im Detail in den Artikeln Mit JSON arbeiten<\/b> (www.vbentwickler.de\/361<\/b>) und JSON-Dokumente per Objektmodell zusammenstellen<\/b> (www.vbentwickler.de\/412<\/b>) beschrieben.<\/p>\n Fügen wir dem Projekt die beiden Module hinzu, können wir mit der Funktion ParseJson<\/b> die JSON-Zeichenkette in ein VBA-Objekt umwandeln und danach einzelne Felder über ihren Namen ansprechen. Listing 6 zeigt, wie wir die Antwort aus dem GET<\/b>-Beispiel auswerten.<\/p>\n Listing 6: Auswerten der JSON-Antwort mit ParseJson.<\/span><\/b><\/p>\n Die Methode Item<\/b> des zurückgegebenen Objekts nimmt den Namen des JSON-Felds entgegen und gibt dessen Wert zurück.<\/p>\n Wie wir mit Arrays und verschachtelten Objekten in JSON umgehen, beschreibt der oben genannte Artikel im Detail.<\/p>\n Für GET<\/b>-Aufrufe, bei denen wir Filterkriterien übergeben wollen, müssen wir die URL-Parameter als Teil der URL zusammenstellen. Das ist einfache String-Manipulation. Der erste Parameter beginnt nach einem Fragezeichen, alle weiteren werden mit dem Et-Zeichen angehängt:<\/p>\n Wenn die Parameterwerte Sonderzeichen oder Leerzeichen enthalten, müssen sie URL-kodiert werden. Leerzeichen werden zum Beispiel als %20<\/b> übertragen. Für einfache numerische oder alphanumerische Werte ist das in der Regel kein Thema.<\/p>\n In produktivem Code solltest Du den HTTPRequest<\/b>-Aufruf in einem On Error GoTo<\/b>-Block absichern. Netzwerkfehler – zum Beispiel kein Internetzugang, ein Timeout oder ein ungültiges SSL-Zertifikat – werfen keine HTTP-Statuscodes, sondern VBA-Laufzeitfehler.<\/p>\n Ohne Fehlerbehandlung bricht die Prozedur mit einer Fehlermeldung ab. Eine robuste Lösung prüft deshalb sowohl den Statuscode als auch Laufzeitfehler, bevor sie die Antwort weiterverarbeitet.<\/p>\n Dieser Artikel hat die Grundlagen für den Zugriff auf Rest-APIs mit VBA gelegt. Wir wissen nun, wie REST funktioniert, welche HTTP-Methoden es gibt, wie wir das XMLHTTP60<\/b>-Objekt einsetzen und wie eine wiederverwendbare HTTPRequest<\/b>-Funktion aussieht.<\/p>\n Mit den vier Beispielen für GET<\/b>, POST<\/b>, PUT <\/b>und DELETE <\/b>haben wir alle grundlegenden Operationen einmal praktisch durchgespielt.<\/p>\n Im nächsten Artikel zeigen wir, wie wir auf eine echte Rest-API mit Authentifizierung zugreifen – am Beispiel eines konkreten Dienstes.<\/p>\n Dort kommt dann auch die Verwaltung von API-Keys und Bearer-Tokens zum Einsatz, und wir zeigen, wie wir die Zugangsdaten sicher in der Windows-Registry ablegen.<\/p>\n","protected":false},"excerpt":{"rendered":" Wer mit VBA arbeitet, kommt heute kaum noch daran vorbei: Fast jeder interessante Online-Dienst – von Wetter- und Geo-Daten über Projektmanagement-Tools bis hin zu KI-Diensten – bietet eine Rest-API an. Dabei ist das Prinzip immer dasselbe: Du schickst eine HTTP-Anfrage an eine bestimmte URL, und der Dienst antwortet mit strukturierten Daten – in der Regel im JSON-Format. Ob Du Kundenadressen mit einem CRM abgleichen, Versandetiketten bei DHL anfordern, Aufgaben in Trello anlegen oder Texte mit DeepL übersetzen willst – hinter all diesen Integrationen steckt dieselbe Technik. VBA bringt dafür alle nötigen Werkzeuge von Haus aus mit: Ein einziger Verweis auf eine Windows-Systembibliothek genügt, um HTTP-Anfragen abzusetzen und die Antworten auszuwerten. Dieser Artikel erklärt, was eine Rest-API überhaupt ist, welche Grundbegriffe Du kennen musst, um jede beliebige API-Dokumentation selbstständig zu lesen, und wie Du eine wiederverwendbare Funktion baust, die Du als solide Basis für jeden weiteren API-Aufruf einsetzen kannst.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":""},"categories":[66022026,662026,44000012,44000028],"tags":[],"yst_prominent_words":[],"class_list":["post-55000502","post","type-post","status-publish","format-standard","hentry","category-66022026","category-662026","category-Interaktiv","category-Word_programmieren"],"aioseo_notices":[],"aioseo_head":"\n\t\t\n\t\n\t\n\t\n\t\n\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n
Aufbau einer Rest-API-URL<\/h2>\n
https:\/\/api.beispiel.de\/v1\/aufgaben?status=offen&limit=10<\/pre>\n
https:\/\/api.beispiel.de\/v1\/aufgaben\/42<\/pre>\n
HTTP-Header<\/h2>\n
\n
HTTP-Statuscodes<\/h2>\n
\n
Das XMLHTTP-Objekt in VBA<\/h2>\n
Verweis hinzufügen<\/h2>\n
![\"Den](\"..\/fileadmin\/_temp_\/2026_02\/pic_502_001.png\")
<\/p>\nDie Kernmethoden von XMLHTTP60<\/h2>\n
\n
Eine wiederverwendbare HTTPRequest-Funktion<\/h2>\n
Public Function <\/span>HTTPRequest(strURL As String<\/span>, strMethod As String<\/span>, strResponse As String<\/span>, Optional<\/span> strData As String<\/span>, _\r\n Optional<\/span> strAuthorization As String<\/span>, Optional<\/span> strContentType As String<\/span> = \"application\/json\") As Integer<\/span>\r\n Dim <\/span>objHTTP As <\/span>MSXML2.XMLHTTP60\r\n Set<\/span> objHTTP = New<\/span> MSXML2.XMLHTTP60\r\n With<\/span> objHTTP\r\n .Open strMethod, strURL, False<\/span>\r\n .setRequestHeader \"Accept\", strContentType\r\n .setRequestHeader \"Content-Type\", strContentType\r\n If <\/span>Not<\/span> Len<\/span>(strAuthorization) = 0 Then<\/span>\r\n .setRequestHeader \"Authorization\", strAuthorization\r\n End If<\/span>\r\n .send strData\r\n strResponse = .responseText\r\n HTTPRequest = .status\r\n End With<\/span>\r\nEnd Function<\/span><\/pre>\n\n
Statuscodes auswerten<\/h2>\n
Dim <\/span>intStatus As Integer<\/span>\r\nDim <\/span>strResponse As String<\/span>\r\nintStatus = HTTPRequest( _\r\n \"https:\/\/api.beispiel.de\/v1\/daten\", _\r\n \"GET\", strResponse)\r\nSelect Case intStatus\r\n Case <\/span>200, 201\r\n 'Erfolg: Antwort verarbeiten\r\n Debug.Print<\/span> strResponse\r\n Case <\/span>401\r\n MsgBox<\/span> \"Authentifizierung fehlgeschlagen.\" _\r\n & \" Token prüfen.\"\r\n Case <\/span>404\r\n MsgBox<\/span> \"Endpunkt nicht gefunden.\"\r\n Case Else<\/span>\r\n MsgBox<\/span> \"Fehler: \" & intStatus _\r\n & vbCrLf<\/span> & strResponse\r\nEnd Select<\/span><\/pre>\nBeispieldatenbank<\/h2>\n
GET: Daten lesen<\/h2>\n
Public Sub <\/span>PostsLesen()\r\n Dim <\/span>intStatus As Integer<\/span>\r\n Dim <\/span>strURL As String<\/span>\r\n Dim <\/span>strResponse As String<\/span>\r\n strURL = \"https:\/\/jsonplaceholder.typicode.com\/posts\/1\"\r\n intStatus = HTTPRequest(strURL, \"GET\", strResponse)\r\n Select Case intStatus\r\n Case <\/span>200\r\n Debug.Print<\/span> strResponse\r\n Case Else<\/span>\r\n MsgBox<\/span> \"Fehler: \" & intStatus\r\n End Select<\/span>\r\nEnd Sub<\/span><\/pre>\n{\r\n \"userId\": 1,\r\n \"id\": 1,\r\n \"title\": \"sunt aut facere repellat...\",\r\n \"body\": \"quia et suscipit...\"\r\n}<\/pre>\nPOST: Einen neuen Datensatz anlegen<\/h2>\n
Public Sub <\/span>PostAnlegen()\r\n Dim <\/span>intStatus As Integer<\/span>\r\n Dim <\/span>strURL As String<\/span>\r\n Dim <\/span>strData As String<\/span>\r\n Dim <\/span>strResponse As String<\/span>\r\n strURL = \"https:\/\/jsonplaceholder.typicode.com\/posts\"\r\n strData = \"{\"\"title\"\":\"\"Mein Titel\"\",\"\"body\"\":\"\"Inhalt des Beitrags\"\",\"\"userId\"\":1}\"\r\n intStatus = HTTPRequest(strURL, \"POST\", strResponse, strData)\r\n Select Case intStatus\r\n Case <\/span>201\r\n Debug.Print<\/span> \"Angelegt: \" & strResponse\r\n Case Else<\/span>\r\n MsgBox<\/span> \"Fehler: \" & intStatus\r\n End Select<\/span>\r\nEnd Sub<\/span><\/pre>\nPUT: Einen Datensatz ersetzen<\/h2>\n
Public Sub <\/span>PostErsetzen()\r\n Dim <\/span>intStatus As Integer<\/span>\r\n Dim <\/span>strURL As String<\/span>\r\n Dim <\/span>strData As String<\/span>\r\n Dim <\/span>strResponse As String<\/span>\r\n strURL = \"https:\/\/jsonplaceholder.typicode.com\/posts\/1\"\r\n strData = \"{\"\"id\"\":1,\"\"title\"\":\"\"Neuer Titel\"\",\"\"body\"\":\"\"Neuer Inhalt\"\",\"\"userId\"\":1}\"\r\n intStatus = HTTPRequest(strURL, \"PUT\", strResponse, strData)\r\n Select Case intStatus\r\n Case <\/span>200\r\n Debug.Print<\/span> \"Ersetzt: \" & strResponse\r\n Case Else<\/span>\r\n MsgBox<\/span> \"Fehler: \" & intStatus\r\n End Select<\/span>\r\nEnd Sub<\/span><\/pre>\nDELETE: Einen Datensatz löschen<\/h2>\n
Public Sub <\/span>PostLoeschen()\r\n Dim <\/span>intStatus As Integer<\/span>\r\n Dim <\/span>strURL As String<\/span>\r\n Dim <\/span>strResponse As String<\/span>\r\n strURL = \"https:\/\/jsonplaceholder.typicode.com\/posts\/1\"\r\n intStatus = HTTPRequest(strURL, \"DELETE\", strResponse)\r\n Select Case intStatus\r\n Case <\/span>200\r\n MsgBox<\/span> \"Datensatz gelöscht.\"\r\n Case Else<\/span>\r\n MsgBox<\/span> \"Fehler: \" & intStatus\r\n End Select<\/span>\r\nEnd Sub<\/span><\/pre>\nJSON-Antworten verarbeiten<\/h2>\n
Public Sub <\/span>PostAuswerten()\r\n Dim <\/span>intStatus As Integer<\/span>\r\n Dim <\/span>strURL As String<\/span>\r\n Dim <\/span>strResponse As String<\/span>\r\n Dim <\/span>objJSON As Object<\/span>\r\n strURL = \"https:\/\/jsonplaceholder.typicode.com\/posts\/1\"\r\n intStatus = HTTPRequest(strURL, \"GET\", strResponse)\r\n If <\/span>intStatus = 200 Then<\/span>\r\n Set<\/span> objJSON = ParseJson(strResponse)\r\n Debug.Print<\/span> \"id: \" & objJSON.Item(\"id\")\r\n Debug.Print<\/span> \"title: \" & objJSON.Item(\"title\")\r\n Debug.Print<\/span> \"body: \" & objJSON.Item(\"body\")\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nURL-Parameter zusammenstellen<\/h2>\n
strURL = \"https:\/\/jsonplaceholder\" _\r\n & \".typicode.com\/posts\" _\r\n & \"?userId=1\"<\/pre>\n
Hinweis zur Fehlerbehandlung<\/h2>\n
Zusammenfassung und Ausblick<\/h2>\n