ich hatte einst dies Makro hier erhalten welches bisher sehr gut funktioniert.
Hier werden fortlaufende Nummern in den vorgegebenen Bereich per Doppelklick eingetragen.
Option Explicit ' Variablendefinition erforderlich
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim RaBereich As Range ' Variable für Bereich
Dim RaZelle As Range ' Variable für Zelle
Set RaBereich = Range("B5:B150") ' Bereich der Wirksamkeit
Set RaBereich = Intersect(RaBereich, Target)
If Not RaBereich Is Nothing Then
'ActiveSheet.Unprotect ("Passwort")
Target = WorksheetFunction.Max(Range("B5:B150")) + 1
Cancel = True
'ActiveSheet.protect ("Passwort")
End If
Set RaBereich = Nothing ' Variable leeren
End Sub
Inzwischen sollten jedoch nur die Ziffern ein und zwei eingetragen werden.
Das heist ich sollte vor dem Code noch eine Prüfung starten, welche den Bereich prüft und sollten die Ziffern 1 und 2 bereits bestehen, das Makro abbricht.
Vieleicht könnt ihr mir hier nochmal auf die Sprünge helfen.
MfG
Stefan