VBA Nummer soll sich ändern, wenn sich Text ändert

[Ab.ab]

Hallo,

ich möchte das sich eine Nummer um 1 erhöht, sobald die Adresse geändert wird.

A6- A9 beenihaltet die Adresse
B13 beenihaltet die Nummer welche um 1 erhöht werden soll.

Die Startnummer ist 1000

Sobald ich ein Feld in A6- A9 ändere soll die Zahl um 1 erhöht werden.

Kann mir jemand helfen? Bin leider noch ein Anfänger im Programmieren

 

[Reowulf]

https://stackoverflow.com/questions...acro-automatically-whenever-a-cell-is-changed

Also etwa so:
Private Sub Worksheet_Change(ByVal Target As Range)
IF Target.Address = "$A$6" Then

Range("B13").Value = Range("B13").Value + 1

End If
End Sub

 

[Raijin]

Mal so aus dem Ärmel geschüttelt:

Private Sub WorkSheet_Change(ByVal Target As Range)

    'Geänderte Zelle liegt in A6:A9 ?
    If Not Intersect(Target, Range("A6", "A9")) Is Nothing Then
        'Zähler erhöhen
        Range("B13").Value = Range("B13").Value + 1
    End If

End Sub