Excel VBA-Code nötig?
Wenn K1 geändert wird soll es in der Tabelle2 den vorherigen Wert auflisten. Zum Beispiel Zelle K1 ändert sich von 260 zu 300 dann soll der Wert 260 aufgelistet werden in der Tabelle2. Wenn nun 300 zu 290 geändert wird soll 300 gespeichert werden. Das ganze soll dann in Tabelle2 so in etwa aussehen bis jetzt A1 = 260 A2 = 300 A3 = 290.
Ich habe bereits nach einer Lösung gesucht und diese erfordert jedoch etwas mit VBA-Code von dem ich nicht so viel Ahnung habe. Ich weiss noch nicht einmal wie ich in Spalte A:A die Namen der Kunden zählen kann, dabei jedoch die doppelten ignoriere :`)
Ich danke bereits im voraus
1 Antwort
Diesen Code im Workbook hinterlegen:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim i
If Target.Row = 1 And Target.Column = 11 Then
i = WorksheetFunction.CountA(Worksheets("Tabelle2").Range("A1:A50000")) + 1
Application.EnableEvents = False
Worksheets("Tabelle2").Cells(i, 1).Value = Target.Value
Application.EnableEvents = True
End If
End SubPrivate Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim i
If Target.Row = 1 And Target.Column = 11 Then
i = WorksheetFunction.CountA(Worksheets("Tabelle2").Range("A1:A50000")) + 1
Application.EnableEvents = False
Worksheets("Tabelle2").Cells(i, 1).Value = Target.Value
Application.EnableEvents = True
End If
Ja. Worksheets("NameDeinesBlattes").
oder, wenn du weißt welche laufende Nummer dein Blatt hat
Worksheets(1).
Worksheets(2).
Der Code zeigt nur beispielhaft wie es funktioniert. Für deine spezifischen Zwecke sind Bereiche oder Benennungen anzupassen.
Danke vielmals für deine Antwort. Jedoch habe ich weitere Fragen diesbezüglich. Was wenn Tabelle2 bei mir z.B `Kosten` heisst? muss ich das bei deiner Formel dann auch anpassen? Wo passe ich die Felder an, jetzt in meinem Beispiel K1 (Den zu speichernden Wert) und A1 (Einfügeort)?