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
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