Automatische Nummerierung

[atilla]

Hallo Chris,

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
        If Target.Count = 1 Then
          If Target.Column = 3 Then
            If Target <> "" Then
              If Target.Offset(, 1) = "" Then
                Target.Offset(, 1) = WorksheetFunction.Max(Columns(4)) + 1
              End If
            End If
          End If
        End If
      End Sub

[Chris-89]

Perfekt, es funktioniert wunderbar.
Danke für deine schnelle Hilfe!

[Chris-89]

Hallo Atilla,

Vielleicht kannst du mir doch noch schnell helfen,
Die Nummerierung funktioniert, aber wie du sagtest werden die Zahlen nicht gelöscht sobald ich einen Eintrag in Spalte C lösche..
Ich möchte das die Nummern auch wieder verschwinden sobald ich einen Eintrag entferne...

Kann man das irgendwie umgehen?

LG

[atilla]

Hallo Chris,

hier eine billige Variante:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Count = 1 Then
   If Target.Column = 3 Then
     If Target <> "" Then
       If Target.Offset(, 1) = "" Then
         Target.Offset(, 1) = WorksheetFunction.Max(Columns(4)) + 1
       End If
     Else
       Target.Offset(, 1).ClearContents
     End If
   End If
 End If
End Sub

[Chris-89]

Dankesehr!