Clever-Excel-Forum

Clever-Excel-Forum > Office-Anwendungen > Excel > Automatische Nummerierung
Normale Version: Automatische Nummerierung
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Seiten: 1 2 3

atilla

01.04.2015, 13:09
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

01.04.2015, 15:51
Perfekt, es funktioniert wunderbar.
Danke für deine schnelle Hilfe!

Chris-89

02.04.2015, 12:00
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

02.04.2015, 12:38
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

02.04.2015, 12:58
Dankesehr!
Seiten: 1 2 3
Clever-Excel-Forum > Office-Anwendungen > Excel > Automatische Nummerierung