Ich habe in Excel eine Zelle, in der ein Text steht (dieser Text ändert sich immer wieder).
Ich möchte diesen Text nun per Befehl auslesen und in eine fortlaufende liste schreiben lassen.
Wie kann ich das machen? geht das nur über VBA - wenn ja, wie?
Danke für eure Hilfe.
Hallo Bär,
Alt+F11, links Doppelklick auf „Tabelle1“, Code reinkopieren, ggfs die Zelle und den Blattnamen ändern, Editor schließen.
Private Sub Worksheet\_Change(ByVal Target As Range)
If Target.Address(0, 0) "A1" Then Exit Sub
With Worksheets("Tabelle2")
.Cells(.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).Value = Target.Value
End With
End Sub
Gruß
Reinhard
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
vielen Dank
leider läuft es noch nicht durch, ich bekomme die meldung „End sub“ erwartet
mein code sieht so aus
Sub Auslesen()
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) „A1“ Then Exit Sub
With Worksheets(„Tabelle2“)
.Cells(.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).Value = Target.Value
End With
End Sub
leider läuft es noch nicht durch, ich bekomme die meldung „End
sub“ erwartet
Hallo Bär,
mein Code war getestet (XL2000), da fehlt kein „End Sub“. Und er gehört dahin wo ich es beschrieb.
Gruß
Reinhard