Webdaten auslesen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Rainer,
vielen Dank für deinen netten Crash-Kurs - er hat mir wirklich sehr geholfen !
Bisher scheiterte ich schon bei dem 1. Schritt.
Nachdem ich den Link zu der HP in die Eingabemaske für "Daten - Externe Daten - Neue Webabfrage" kopiert hatte, erschien lediglich ein Fenster mit dem Inhalt: Webseite nicht erreichbar... (IE 7)
Nach mehreren Fehlversuchen stellte ich daher diese Frage ins Forum...
Zwar bin ich mir nicht sicher, warum es nun funktioniert, so bin ich aber doch einige Schritte vorwärts gekommen. Hier mal mein aktueller Stand.
Große Probleme hatte ich bei der "Trennung des Zellinhaltes" in Spalte E des Blattes 'Webabfrage' - wurde aber im Archiv fündig (evtl. "laienhaft" eingearbeitet in den CommandButton)...
Zwar gefällt es mir so schon ganz gut - denn es scheint zu funktionieren - , aber vllt. entdeckst du noch irgendwelche Fehler od. würdest es gar vollkommen anders lösen...?
(z.B. meine Variante der dauerhaften Speicherung der Daten im Blatt 'Fidelity')
Eines stört mich allerdings noch immer:
Bisher wird die Aktualisierung der externen Daten beim Öffnen der Mappe automatisch von EXCEL vorgenommen.
Gibt es eine Möglichkeit, diesen Vorgang erst per Makro auszulösen, welches man dann idealerweise in den Code zu dem CommandButton integrieren sollte ?
Wenn du also noch Lust u. Zeit hast, so schau dir doch bitte die aktuelle Beispielmappe mal genauer an...
MfG Dirk

Hallo
"...daß wir uns weiterhin die Köpfe-heiss-reden ..."
Wieso ?
Ich verstehe es nur nicht. Wenn du den Code schon in deinen Button eingebaut hast, wozu dann noch die Frage ?
Wenn du mit neuen Daten arbeiten willst, dann musst du vorher aktualisieren

Private Sub CommandButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) 'Statistik erfassen
    Dim wks As Worksheet
    Dim rng As Range


    Selection.QueryTable.Refresh BackgroundQuery:=False



    Set rng = Sheets("Fidelity").Range("AE41:AE300").Find("x", LookIn:=xlValues)
    If rng Is Nothing Then
        MsgBox ("Im Blatt 'Fidelity' wurde kein x in Spalte AE gefunden - Statistik ist also bereits erfasst.")
        Exit Sub
    End If
    Set wks = Worksheets("Fidelity")
    With wks
        .Activate
        ' .Unprotect
        rng.Select
        If MsgBox("Formeln unwiderruflich in Werte umwandeln?", 292, "Frage") = 6 Then
            rng.ClearContents
            Range(rng.Offset(0, -10), rng.Offset(0, 0)).Select 'so werden nur die Formeln in den Spalten U bis AE ersetzt
            Selection = Selection.Value
        End If
        ' .Protect
    End With
    Set wks = Nothing: Set rng = Nothing

    Set wks = Worksheets("Webabfrage")
    With wks
        .Activate
        ' .Unprotect
        .Range("e4:e110").Select
        Daten_auf_Spalten_verteilen
        ' .Protect
    End With
    Set wks = Nothing: Set rng = Nothing

    Worksheets("Fidelity").Activate
    [AD35].Select

End Sub

Gruss Rainer

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Webdaten auslesen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread