AW: Makrohilfe
02.04.2015 10:22:03
Klexy
Den Satz mit der Befehlsschaltfläche versteh ich nicht. Da fehlen zumindest ein paar Satzzeichen. Und: was ist eine Liste? Wann ist sie abgearbeitet? Worunter soll sie gespeichert werden? Aber ich denke, das wird besser händisch gemacht, nachdem ein kompetenter Mensch drübergeschaut hat. Zumal ich nicht glaube, dass das 10x pro Tag gemacht werden muss.
Makros können dem Nutzer viel Arbeit abnehmen, aber nicht das Denken.
Ob es möglich ist, das Speichern einer Datei zu verhindern, weiß ich nicht. Wenn es möglich wäre, müssten aber alle Felder der Tabelle abgeprüft werden, ob eines von den Paaren evtl. unvollständig ist. Das wäre programmiertechnisch ein immenser Aufwand.
Ich hab es jetzt so gemacht, dass das jeweils leere Feld grün eingefärbt wird. Als optische Denkhilfe quasi.
Ersetz den Code in der Datei:
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