Automatische Zelle auslesen

  • Excel

    Automatische Zelle auslesen

    Hallo zusammen,
    ich habe eine Tabelle, wo Daten automatisch aus dem Internet abgerufen werden.
    Diese werden in die Zellen D2, E2, F2, geschrieben und eine weitere Liste,
    die auch ständig über das Internet aktualisiert wird, woraus ich aber nur die Zelle B6 benötige.

    Jetzt möchte ich eine weitere Tabelle, mit den Werten aus
    D2(Datum), B6(Währung) und F2(Dezimalwert),
    erstellen die immer dann eine neue Zeile bekommt, wenn sich die Zelle E2 ändert.

    Da ich leider keine Ahnung von VBA habe, hoffe ich dass ihr mir helfen könnt.

    Ich habe schon aus verschiedenen Quellen einen Makro zusammen gebastelt,
    aber leider tut sich nichts, wenn die Zelle E2 sich automatisch ändert.
    Wenn ich die allerdings händisch ändere, wird genau gemacht, was ich möchte....!



    Private Sub Worksheet_Change(ByVal Target As Excel.Range)

    If Target.Address = "$E$2" Then 'wenn Zelle E2 sich ändert, dann
    Rows("104").Select 'Zeile 104 markieren
    Selection.Insert Shift:=xlUp 'über Marierung Zeile einfügen
    Selection.ClearContents 'markierte Zeile leeren
    End If

    If Target.Address = "$E$2" Then 'wenn Zelle E2 sich ändert, dann
    Cells(104, 1) = Cells(2, 4) 'Zelle D2 in A104 kopieren
    Cells(104, 2) = Cells(2, 6) 'Zelle F2 in B104 kopieren
    Cells(104, 3) = Cells(6, 2) 'Zelle B6 in C104 kopieren
    End If

    End Sub