---

Hallo,
kann mir eine Beispieldatei geben/zeigen, in der in eine ExcelDatei externe Daten aus dem Internet abgerufen werden können.
Ich würde gerne die aktuelen Lottozahlen (bis 7 Wochen) in einer Exceldatei eintragen bzw. aktuallisieren.
Vielen Dank im Voraus, für eure Hilfe!!!

------------------
MFG
MM

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

lotto.xls.txt

Lottofieber?

temporäre Sheet erstellen und mit einer Webseite verbinden (Webabfage)

Makro aktualisiert die temp. Sheet,
schaut auf das Datum sofern vorhanden
und überträgt die Daten in die fortlaufende Liste.

Code:

---

Sub Webabfrage()
    Sheets("Webabfrage").Range("A1").QueryTable.Refresh BackgroundQuery:=False
    If Sheets("Webabfrage").Cells(4, 9) > Sheets("Lottozahlenliste").Cells(3, 1) Then
        Sheets("Lottozahlenliste").Range("A3:H3").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        Sheets("Lottozahlenliste").Cells(3, 1) = Sheets("Webabfrage").Cells(4, 9).Value
        Sheets("Lottozahlenliste").Range("B3:G3") = Sheets("Webabfrage").Range("H6:M6").Value
        Sheets("Lottozahlenliste").Cells(3, 8) = Sheets("Webabfrage").Cells(7, 8).Value
    Else
        MsgBox ("keine neueren Daten vorhanden")
    End If
End Sub

---

.txt bei lotto.xls.txt beim speichern entfernen.

vielleicht wäre ja auch das was für dich  http://www.dielottozahlen.de/service/auswertprog1.html

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Gallo Thomas,
erstmal vielen dank für deine Unterstützung.
Link ist sehr interessant.
Anhang Beispieldatei auch.
Ich habe sie geöffnet mit Excel 2000.
Beim Auktualisieren der Daten kommt eine Fehlermeldung "Laufzeitfehler 1004".

Es betrifft folgende Zeile:

      Sheets("Lottozahlenliste").Range("A3:H3").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Was könnte mein Fehler sein?

------------------
MFG
MM

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

lotto.xls.txt

kann sein, das XL2000 das CopyOrigin:=xlFormatFromLeftOrAbove nicht versteht :-( habe es im XL2003-format gespeichet, von Xl2007 herunter.

aber ich sehe gerade das die Webseite am Mittwochabend anders aussieht als am Donnerstag mittag 

werde mal eine andere Quelle nehmen (http://www.lotto.de/lotto_6aus49_aktuell.html) anstelle (http://www.lotto.de),
vielleicht ist die Layoutstabiler ;-)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Nochmal Danke,
..eine Frage noch, wie kann ich in einer Zelle eingetragene Zahlen durch komma getrennt, getrennt auf mehrere Zellen übertragen.
Ich möchte gerne über die Internetseite "http://www.lotto.de/lotto_6aus49_archiv.html" die Zahlen im Excel aktuallisieren, da ich nur die letzen 5-7 Wochen benötige.

------------------
MFG
MM

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hugoslottozahlen.xls.txt

Du möchtest einen Teil() aus einem Text finden(), mitunter muss man dabei ein wechseln() der schon verwendeter Suchkriterien anwenden - siehe auch die Xl-Funktionen unter Text ;-)

Zahlen stehen in C2
12, 21, 23, 29, 35, 41

für die erste Zahl =TEIL($C2;1;FINDEN(",";$C2;1)-1)
für die 2 Zahl =TEIL(WECHSELN(C2;",";".";1);FINDEN(".";WECHSELN(C2;",";".";1);1)+1;FINDEN(",";WECHSELN(C2;",";".";1);1)-FINDEN(".";WECHSELN(C2;",";".";1);1)-1)
zum finden der 3,4,5,6 Zahl die Anzahl der wechselungen von , in . erhöhen ...WECHSELN(C2;",";".";1);xx)

Alternativ greift man auf das Auswerten() zurück und definiert einen Namen. zz =AUSWERTEN("{"&WECHSELN(tabellexy!zelle ;",";".")&"}")
Und kann dann mittels =INDEX(Bereich;gewünschte Stelle) arbeiten. =INDEX(zz;1) ,..., =INDEX(zz;8)

und da man eh gerade bei der Komplexen Zerlegung ist und da man das vor kurzen selber mal erwähnen musste^^
(49 x 48 x 47 x 46 x 45 x 44) / (6 x 5 x 4 x 3 x 2 x 1) = 13.983.816 = 0,00000007151123842 % Wahrscheinlichkeit auf einen 6er,
viel Glück bei der fast homöopathischen Hoffnung ;-)

    *ebensoviel Glück an alle anderen Tipper/In*

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

...und nochmal Danke,

..falls ich irgendwann eine größere Summe gewinnen sollte, dann meld ich mich ganz best. bei dir ;-)

------------------
MFG
MM

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

;-) mir lang das was ich habe^^ und wenn,
würde ich ins Casino gehen, da sind die Gewinnchancen höher & ich bin bislang immer mit einem Plus rausgegangen
(aber etwas Glück gehört auch hier dazu)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP