Wie kann ich Daten von einer Internetseite automatisch in Excel importieren?

Hallo zusammen,

ich bin gerade dabei, eine Datenbank zu erstellen und würde dafür gerne Daten von einer Website automatisch auslesen lassen. Konkret geht es um die Arbeitslosenquoten aller Landkreise und Städte, die von der Bundesagentur für Arbeit monatlich veröffentlicht werden.

Hier ein Link zu einer Beispielstadt: https://statistik.arbeitsagentur.de/Navigation/Statistik/Statistik-nach-Regionen/Politische-Gebietsstruktur/Bayern/Amberg-Stadt-Nav.html

Im Beispiel sollte die Arbeitslosenquote insgesamt (5,9) und der Stand der Angabe (Mai 2016), der über der Tabelle steht, ausgelesen werden.

Im HTML-Code ist die Quote in folgender Zeile angegeben: 5,9 Beim Datum sieht es folgendermaßen aus: Arbeitsmarkt im Überblick - Berichtsmonat Mai 2016 - Amberg, Stadt

Dabei sollten die ausgelesenen Werte in zwei separaten Excel-Feldern ausgegeben werden. Das muss aber nicht zwingend alles in einem Makro geschehen. Zwei Makros für die unterschiedlichen Felder wären optimal, da ich den Code dann wahrscheinlich auch besser nachvollziehen kann.

Da die direkte Webabfrage über Excel nicht funktioniert, weil die Seite nicht korrekt geladen wird, denke ich, dass VBA hier unumgänglich ist, oder? Ich habe jedoch leider keine Programmierkenntnisse und bin aus den Einträgen in diversen Foren leider auch nicht schlau geworden.

Im Nachhinein müsste das Makro entsprechend anpassbar sein, sodass ich auch die Daten der anderen Städte auslesen kann (die Quellseite ist immer nach dem gleichem Prinzip aufgebaut).

Falls jemand eine Idee hat, wie das Problem zu lösen ist, würde ich mich sehr darüber freuen! Vielen Dank!

4 Antworten

eddi0102

11.06.2016, 14:28

Schau mal hier:

http://www.doerrhoefer-technik.de/vba_programme/uebersicht_vba.html

Evtl. reicht dies ja als Anregung

Nigglsback

10.06.2016, 18:01

Der Link wird nicht richtig übernommen, daher hier ein verkürzter Link:

https://statistik.arbeitsagentur.de/Navigation/Statistik/Statistik-nach-Regionen/Politische-Gebietsstruktur/Bayern/Amberg-Stadt-Nav.html

MrProcess

Nutzer, der sehr aktiv auf gutefrage ist

im Thema Microsoft Excel

11.06.2016, 11:44

Übrigens: auf die eigene Frage antworten ist ungünstig, weil es mich (schätze andere auch) davon abhält sich die Frage anzuschauen. Ist ja schon beantwortet :-)

Zur Frage. Die Daten werden per JavaScript geladen und angezeigt. Da ist kein HTML im Spiel, das man auslesen könnte (weder Excel noch VBA noch sonst was). Das einzige was ich im HTML sehe ist eine Datenreihe, von der ich ad hoc nicht wüsste was das bedeutet

data-eckwerte='{"201305":{"09361":6.2},"201306":{"09361":5.9},"201307":{"09361":5.7},"201308":{"09361":6.0},"201309":{"09361":5.7},"201310":{"09361":5.4},"201311":{"09361":5.2},"201312":{"09361":5.5},"201401":{"09361":6.5},"201402":{"09361":6.4},"201403":{"09361":6.4},"201404":{"09361":5.8},"201405":{"09361":5.8},"201406":{"09361":5.7},"201407":{"09361":5.8},"201408":{"09361":5.9},"201409":{"09361":5.8},"201410":{"09361":5.4},"201411":{"09361":5.3},"201412":{"09361":5.7},"201501":{"09361":6.5},"201502":{"09361":6.5},"201503":{"09361":6.5},"201504":{"09361":5.8},"201505":{"09361":5.6},"201506":{"09361":5.3},"201507":{"09361":5.3},"201508":{"09361":5.4},"201509":{"09361":5.5},"201510":{"09361":5.0},"201511":{"09361":5.0},"201512":{"09361":5.3},"201601":{"09361":6.4},"201602":{"09361":6.5},"201603":{"09361":6.4},"201604":{"09361":6.0},"201605":{"09361":5.9}}'

Die wollen einfach nicht, dass man mit ihren Daten was sinnvolles anfängt. Oder das wäre vielleicht ein Ansatz: die vom Arbeitsamt anschreiben ob sie die [Roh-]Daten nicht doch (evtl. über anderen Weg) bereitstellen wollen. Egal wie sie daher kommen (Text, CSV, XML, Datenbankformat) die kriegt man immer in Excel verwurschtet.

wotan38

11.06.2016, 12:49

Ich habe sowas schon mehrmals gemacht, aber automatisch geht das natürlich nicht. Da ist schon einiges an Arbeit dran.

Zunächst habe ich die Daten aus der jeweiligen Seite mit Kopieren (strg + c) und Einfügen (strg + v) den jeweiligen Seiten entnommen (Markieren geht mit strg + a) und in einem Text-Editor aneinandergereiht. Dann habe ich die Nahtstellen zwischen den Seiten von Hand korrigiert, sodass ich eine durchgehend einheitliche Datenstruktur bekommen habe. Nach einer genauen Analyse der vorhandenen Struktur (ggf. manueller Korrektur von Ausnahmeerscheinungen) habe ich ein Umsetzprogramm geschrieben, das mir diese Textdatei in das gewünschte Format gebracht hat. Ich habe das zum Laden einer Datenbanktabelle benötigt, für EXCEL wäre das aber genauso gut gegangen.

Der verwendete Editor sollte auch spaltenweise arbeiten können, z.B. der kostenlos im Internet herunterladbare XINT. Damit lassen sich die Spalten gut zurechtlegen.

Nebenbei: Es ging um ca 22000 Sätze, alle Orte in Deutschland mit PLZ, später mit anderen Daten, wie Zugehörigkeit zum Bundesland und zuständiges Amtsgericht, ergänzt.

Hallo liebe Leute,

ich habe mal wieder ein Problem. Ich möchte gerne Daten wie Anschrift, Firma, Ansprechpartner, Anrede usw. aus Emails auslesen und in Excel einfügen. Bisher habe ich das alles von Hand gemacht, aber es muss doch auch eine Möglichkeit geben um das zu vereinfachern.

Die Emails sehen nicht alle immer unbedingt gleich aus, was die Aufgabe meiner Meinung nach sehr viel schwieriger macht. Die Mails sind in keinem besonderen Format vorhanden, am coolsten wäre es, wenn man beim Start des Makros eine Email eingeben kann, und das Makro dann die passende Mail aus meinem Outlook Maileingang auswählt.

Am Liebsten wär mir ein Makro in Excel, dass dann diese Mail durchgeht und Adresse, Anrede, Firma, PLZ usw. raussucht und in Excel einfügt. Z.b. if ( untersuchtes wort = zahl zahl zahl zahl zahl ) dann soll das Makro darauf kommen, dass hier wahrscheinlich die PLz zu finden ist. Oder irgendwo steht mfg und das was danach kommt ist dann wahrscheinlich der Ansprechpartner.

Habe allerdings keinen Schimmer wie ich da ran gehen soll und ob das überhaupt geht.

Ich hoffe jemand kann mir da weiterhelfen :)

Beste Grüße

Chris

...zur Frage

Excel VBA - Nach kopieren anderen Zelleninhalt "zurückwerfen"?

Hallo,

ich habe eine Formularseite gebastelt, bei der eingegebene Daten in eine Liste eingefügt werden. Nun möchte ich, dass das Makro, welches die Daten in das andere Blatt in eine neue Zeile kopiert hat, auf der Formularseite die Zeilennummer in ein Feld einträgt.

Die Eingabeseite heißt "Eingaben" und das Blatt mit der Liste heißt "Liste"

Beispiel:

Ich gebe Daten ein, klicke den Button an auf dem das Makro liegt, und die Daten werden nach "Liste" in Zeile 10 kopiert (während Zeilen 5-9 schon Daten enthalten aus vorherigen Übertragungen).

In dem selben Makro soll nun am Ende die Nummer, die in A10 steht (In Zeile A stehen von mir eigens vergebene Nummern), auf der Eingabeseite in das Feld B10 kopiert werden.

Anders formuliert:

Spalte A (Lliste) enthält Reklamationsnummern, fortlaufend. Beginnend mit RK20220001.

Wenn ich jetzt in der "Eingaben"-Seite meine Daten erfasse und das Makro nutze, werden die eingegebenen Daten in die "Liste" kopiert. Es wird automatisch immer die letzte Zeile gefüllt, ab Spalte B.

Nun möchte ich, dass die Reklamationsnr., die neben den zuletzt eingefügten Daten steht, in das "Eingaben"-Blatt in das Feld B10 kopiert wird.

Denn die Eingabefelder sind bereits so formatiert, dass man ein Etikett drucken kann, das dann an die Ware kann. Damit man nicht immer manuell die Nummer raus suchen muss, soll sie halt automatisch dort rein.

...zur Frage

Excel Daten mit C++ auslesen, selektieren und ausgeben

Hallo :)

Ich habe folgendes Problem..

Wir haben Daten in einer Exceltabelle (Ueberschrift und darunter Zahlen). Diese Daten soll ich mit Hilfe von C++ auslesen, selektieren (Wenn das Feld A10 die Zahl 3 beinhaltet oder gleich mit der Zahl 3 ist, zeige Ueberschrift, wenn nicht tue nichts) und ausgeben.

Gibt es eine Variante das auf die Reihe zu bekommen ?

LG und danke schon einmal :)

...zur Frage

Excel VBA activesheet statt tabellenname?

Hallo,

ich habe ein Makro aufgezeichnet und ich möchte dass die Formeln welche ich geschrieben habe immer von der aktiven Tabelle genommen werden.

Dadurch, dass ich das Makro aufgezeichnet habe, ist mir erst später aufgefallen, dass in den Formeln in den Zellen immer der Tabellenname steht: =WENNFEHLER(SVERWEIS(30;'42297033'!A5:T5;3;);"")

Ich möchte aber, dass diese Formeln immer die Tabelle nehmen, in der das Makro ausgeführt wurde.

Im Makro steht z.B. folgendes:

ActiveCell.FormulaR1C1 = _

"=IFERROR(VLOOKUP(30,'42297033'!R[3]C[-2]:R[3]C[17],3,),"""")"

'42297033' ist in dem Fall der Tabellennamen.

Noch zur Info was das gesamte Makro macht:

Ich erstelle eine neue Tabelle -> übertrage gewisse Daten von der alten Tabelle in die neue und das mit Formeln wie SVerweis() oder Wenn()

Kann ich Makro den Tabellenname durch etwas ersetzen, damit es richtig funktioniert?

Wäre schön wenn mir jemand helfen könnte, ich muss das spontan machen und bin ganz neu bei VBA

LG Benni

...zur Frage

Excel VBA - Wert auslesen?

Mein Problem:

Mit dem ersten Makro wird ein Wert in Zelle A1 geschrieben.

In einem weiteren Makro will ich nun diesen Wert auslesen mit Worksheets("Blatt1").Cells(1, 1).Value = i. Wenn ich das mache steht danach in Zelle A1 aber eine 0 und nicht mehr der vorige Wert. Was ist falsch?

...zur Frage

CSV am Ende einer Exceltabelle einfügen?

Hi,

folgendes Szenario: Ich bekomme in unterschiedlichen Zeitabständen CSV Dateien die ich in Excel importieren möchte. An sich ist das ja kein Problem. Jedoch möchte ich den ganzen Schritt automatisieren und die Daten der CSV an das Ende einer formatierten Tabelle setzen. Hat folgenden Hintergrund: Ich möchte über die Daten der CSV Dateien mehrere Auswertungen laufen lassen. Diese müssen nur einmal angelegt werden und danach immer über alle Daten aus allen CSVs laufen. Die Daten aus den CSV Dateien werden einmalig Importiert, also sind keine Dateiverbindungen nötig. Mein erster Gedankengang war ein Excelsheet "Import" in welches ich die Daten lade und dann per Makro ans ende der Tabelle schiebe. Doch da war mein Problem ein VBA-Skript zu schreiben welches immer an die nächste freie Stelle die Daten kopiert. Eventuell gibt es ja auch eine einfachere Lösung und ich finde Sie nicht. Ich habe Excel2016 im Einsatz und keine Einschränkungen in Sachen Makros. Zudem ist es eine 64bit Version welches die Verarbeitung großer Makros relativ zügig funktioniert.

Vielen Dank im Voraus für alle Antworten

Grüße

...zur Frage

Excel: Mehrfach Daten automatisch aus Spalte kopieren und neue Zelle erstellen?

Liebe Community,

ich bräuchte erneut eure Hilfe. :)

Aktuell lade ich täglich eine Excel Tabelle in meine Excel Vorlage hoch. Dort wird diese verarbeitet, wie z.B. sortiert usw.

Leider gibt es in der Spalte D oft mehrere Werte. Kann man diese mit VBA und Makro herausfiltern und eine neue Zeile damit befüllen? Wie ich das genau meine, siehe Screenshot.

Ich habe mir gedacht, dass man Excel hier mitteilt, dass in der Spalte D, wenn nur ein Wert mit einer Zeichenlänge von 6 Buchstaben hat, dass er dann nichts macht.

Beispiel nur Lag14 oder Lag7

Ist die Zeichenlänge länger als 6, dann soll er prüfen ob diese 15 Zeichen beträgt. Wenn ja, dann soll er den Wert zwischen 6 und 15 abschneiden und kopieren und im Anschluss in eine neue Zeile kopieren. Die anderen Spalten bleiben identisch. Eine Art Kopie sozusagen.

Beispiel für Lag/22 - Lag/51

Und dann noch das Gleiche für das Beispiel Lag/22 - Lag/51 - Lag/71

...zur Frage

Excel VBA: Sverweis Formel - Makro einfügen!

Hi zusammen. Habe mir heute mein erstes Userform gebastelt (Google sei Dank...). Mein UF macht simpel nichts anderes, als Einträge aus der EIngabemaske in eine Tabelle zu füllen.

Dim emptyRow As Long

'Ermitteln der ersten leeren Zeile
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1

'Wohin werden die eingegebenen Datein eingefüllt?
Cells(emptyRow, 1).Value = ComboBox1.Value
Cells(emptyRow, 5).Value = TextBox1.Value
Cells(emptyRow, 2).Value = TextBox2.Value
Cells(emptyRow, 3).Value = TextBox3.Value
Cells(emptyRow, 7).Value = TextBox4.Value

If OptionButton1.Value = True Then
    Cells(emptyRow, 6).Value = "1. Halbjahr"
End If

If OptionButton2.Value = True Then
    Cells(emptyRow, 6).Value = "2. Halbjahr"
End If


Me.Label7 = "Speichern erfolgreich!"

End Sub

Ich muss auch sagen, es funktioniert prächtig. Die Einträge werden alle korrekt erstellt etc. Nur habe ich in Spalte "H" meiner Tabelle, wo die Daten eingefügt werden, eine Spalte für SVerweis. Diese Formel soll jedesmal, wenn ein neuer Eintrag gespeichert wird, angefügt werden. Wenn ich von anfang an alle Formeln runterziehe bis ans Ende der Tabelle braucht Excel 2Minuten zum das Dokument zu öffnen... Formel lautet: =SVERWEIS($A2;'Tabelle1'!$A$1:$C$31;2;FALSCH) Wobei der Bezug A2 natürlich mit jeder Zeile anders ist (A2, A3, A4 etc.) Wenn ich die Formel "aufzeichne", erscheint folgendes, womit ich absolut nix anfangen kann.

Sub SVerweis_HC()
'
' SVerweis_HC Makro
'

'
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC1,'Tabelle1'!R[-1317]C[-7]:R[-1289]C[-6],2,FALSE)"
    Range("H1319").Select
End Sub

Kann hier wer helfen?

...zur Frage

Hilfe bei Excel Makro das gefilterte Daten in eine andere Excel Datei kopieren soll?

Hallo, ich benötige ihre Hilfe bei der Erstellung eines VBA Makros für Excel. Das Makro soll folgendes leisten: Ich habe eine Excel Datei (Nr. 1) in der in einer Zelle ein Wert eingetragen wird. Nach diesem Wert soll dann in einer anderen Excel Datei (Nr. 2) gefiltert werden und anschließend sollen die gefilterten Daten aus Excel Datei Nr. 2 in die Excel Datei 1 kopiert werden. Ist das möglich?

Vielen Dank vorab für ihre Antworten.

...zur Frage

Makro-Datei in Excel lässt sich nicht mehr ausführen?

Ich habe eine Makrodatei auf meinem alten Pc in Excel 2010 erstellt. Wenn ich es jetzt auf dem Excel 2016 ausführen will, kommt am Schluss immer ein OLE Fehler."Wartet auf beendigung der OLE aktion". Keine Ahnung was falsch läuft. Add ins sind deaktiviert und auf 2010 läuft es reibungslos.

...zur Frage

Java Excel tabelle erstellen und auslesen?

Hey, ich möchte gerne ein Programm schreiben das Daten und Werte in einer Excel Tabelle speichert und sie dann später wieder aufrufen und verwenden kann!

LG Emanuel

...zur Frage

VBA - Daten in andere Datei schreiben

Ich habe ein Excel-sheet mit Daten und Makros. Nun möchte ich die Daten in eine neue Excel Tabelle schreiben, so das keine Makro-Sicherheits meldung beim öffnen der ausgegeben Datei kommt.

Wie geht das?

...zur Frage

Kann man mit Formel und Makro Schaltfläche arbeiten?

Hallo,

Ich kann in Excel auf ein Button ein Makro legen.

Kann man in Excel auch eine Formel mit dem Makro Button arbeiten.

z.B. (Bild)

ich möchte gerne dass wenn ich die Schaltfläche Stracciatella drücke, dass im Gelben Feld eine 1 steht, wenn ich diese Schaltfläche nochmals drücke, dann steht dort die Zahl 2 usw.

Geht dies überhaupt mit Bordmitteln? Ohne VBA?

Danke

...zur Frage

Excel Projektname aus anderer Excel zur jeweiligen Projektnummer auslesen - Wie geht das?

Guten Morgen Zusammen,

ich habe eine Tabelle wo jeweils in Spalten nur Projektnummern aufgelistet werden. Der Name zum jeweiligen Projekt soll aus einer fremden Datei ausgelesen werden und dann eben neben der jeweiligen Projektnummer aufgezeigt.

HILFE WÄRE SUPER !

DANKE VORAB

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen