ich will bei nach Eingabe einer Zahl in Spalte B (Kundennummer) eine neue Rechnungsnummer in Spalte C daneben schreiben. Dazu müssen alle Blätter (Januar, Februar, März....) nach der höchsten Nummer in Spalte C durchsucht werden. Die neue Rechnummer ist dann Max + 1
Gruss
Uwe
'Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("b:b")) Is Nothing Then