Homepage mit Excel Suchfunktion mit Übereinstimmung einer Zahl

[dennis1793]

Hallo,

gibt es mit Excel die Möglichkeit eine Homepage mit Zahlen zu durchsuchen. So wie mit STRG + F.

es soll diese HP sein: http://www.lions-club-varel.de/Adventska...mmern.aspx

die die Nr. lautet 2333

Ist das auch mit einer Liste, die mehrere Zahlen enthält möglich?

Vielen Dank :)

[WillWissen]

Hi,

importiere die Seite über Daten==> externe Daten abrufen. Danach kannst du mit STRG-F suchen.

[Jockel]

Hallo, also ich finde diese Nummer nicht...:

Arbeitsblatt mit dem Namen 'Tabelle4'
	A	B	C	D	E
1	Nummer	Wert der Nummer
2	3270	P.S. Schuhe und Trends 1 Warengutschein im Wert von 20 Euro		2333	#NV
3	2767	P.S. Schuhe und Trends 1 Warengutschein im Wert von 20 Euro			0
4	529	P.S. Schuhe und Trends 1 Warengutschein im Wert von 20 Euro
5	4248	P.S. Schuhe und Trends 1 Warengutschein im Wert von 20 Euro
6	342	P.S. Schuhe und Trends 1 Warengutschein im Wert von 20 Euro
7	1067	P.S. Schuhe und Trends 1 Warengutschein im Wert von 20 Euro
8	5143	P.S. Schuhe und Trends 1 Warengutschein im Wert von 20 Euro
9	4365	Parfümerie Schuback 1 Präsent im Wert von 100 Euro
10	3943	Nordwest Zeitung 1 x 2 Karten für Phantom der Oper im Wert von 124 Euro
11	2019	Nordwest Zeitung 1 x 2 Karten für Die Nacht der Musicals im Wert von 124 Euro
12	1735	Nordwest Zeitung 1 x 2 Karten für Die Schöne und das Biest im Wert von 58 Euro
13	967	Malerfachbetrieb Padtberg 1 Gutschein Euronics im Wert von 20 Euro
14	834	Malerfachbetrieb Padtberg 1 Gutschein Euronics im Wert von 20 Euro
15	2640	Malerfachbetrieb Padtberg 1 Gutschein Euronics im Wert von 20 Euro
16	5157	Malerfachbetrieb Padtberg 1 Gutschein Euronics im Wert von 20 Euro
17	4009	Malerfachbetrieb Padtberg 1 Gutschein Euronics im Wert von 20 Euro
18	3168	Kochschule S-Kultur A. Lange 1 Gutschein Kochseminar im Wert von 98 Euro
19	1536	Kochschule S-Kultur A. Lange 1 Gutschein Kochseminar im Wert von 98 Euro
20	3273	Flott-Tex 1 Gutschein im Wert von 20 Euro
21	4417	Flott-Tex 1 Gutschein im Wert von 20 Euro
22	2403	Flott-Tex 1 Gutschein im Wert von 20 Euro

Zelle	Formel
E2	=SVERWEIS(D2;A:B;2;0)
E3	=ZÄHLENWENN(A:A;D2)

Verwendete Systemkomponenten: [Windows (32-bit) NT 6.01] MS Excel 2010

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

[00202]

Hallo, :19:

die Nummer "2333" ergibt kein Ergebnis - hier mal mit der Nummer "3236": :21:

Code:

Option Explicit
Public Sub Main()
    Dim strTMP() As String
    On Error GoTo Fin
    With CreateObject("MSXML2.XMLHTTP")
        .Open "Get", "http://www.lions-club-varel.de/Adventskalender/Gewinnnummern.aspx", False
        .Send
        Do While .ReadyState <> 4
            DoEvents
        Loop
        strTMP = Split(Split(.ResponseText, "3236")(1), "<")
        MsgBox strTMP(0)
    End With
Fin:
    If Err.Number <> 0 Then MsgBox "Error: " & _
        Err.Number & " " & Err.Description
End Sub