ein Forumsmitglied war so freundlich und hat mir folgendes Makro erstellt das auch sehr gut funktioniert ich bräuchte es aber so abgeändert das es nur in den Spalten
"B bis O" wirksam ist und nicht über die ganze Tabelle !
Auf alle anderen Spalten sollte es keinen Einfluss haben.
Wäre für Lösungsvorschlag dankbar !
lg.
Dim Ding As Integer
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column > 1 And Target.Column "" Then
'prüft, ob die zugehörige Nummernzelle befüllt ist
Target.Interior.ColorIndex = xlNone 'entfärben wenn befüllt
ActiveWorkbook.Save
Else
Target.Offset(2, 0).Select
Target.Offset(2, 0).Interior.Color = RGB(153, 255, 51) 'grün wenn leer
End If
Else
End If
Ding = 0
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Ding = 1 Then
Exit Sub
End If
If Target.Column > 1 And Target.Column "" And Target.Offset(-2, 0) "" Then
'prüft, ob die Nummernzelle und die Datumszelle befüllt sind
Target.Interior.ColorIndex = xlNone
ActiveWorkbook.Save
Else
Target.Offset(-2, 0).Select
Target.Offset(-2, 0).Interior.Color = RGB(153, 255, 51)
End If
Else
If Target.Offset(-1, 0) = "Datum" And Target "" And Target.Offset(2, 0) "" Then
'prüft, ob das Datum normal reingeschrieben wurde und nicht per Doppelklick
Target.Interior.ColorIndex = xlNone
ActiveWorkbook.Save
Else
Target.Offset(2, 0).Select
Target.Offset(2, 0).Interior.Color = RGB(153, 255, 51)
End If
End If
End Sub