Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Automatische Nummerierung
#21
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
Gruß Atilla
[-] Folgende(r) 1 Nutzer sagt Danke an atilla für diesen Beitrag:
  • Chris-89
Antworten Top
#22
Perfekt, es funktioniert wunderbar.
Danke für deine schnelle Hilfe!
Antworten Top
#23
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
Antworten Top
#24
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
Gruß Atilla
[-] Folgende(r) 1 Nutzer sagt Danke an atilla für diesen Beitrag:
  • Chris-89
Antworten Top
#25
Dankesehr!
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste