Überprüfen ob Eingabe in Spalte
Ralf
Habe ein Problem will in Spalte (L9 bis soweiter ) überprüfen ob eine Eingabe gemacht wurde.
Eine Zelle überprüfen bekomme Ich hin . Dazu habe ich folgenden Code geschrieben. Problem wie stelle
ich fest welche Zelle betätigt wurde und ordne sie den anderen zu. . Können auch mal leere Zellen in Spallte L vorkommen.
Spalte A bis G sind generell gefüllt.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Range("L9") Then
Sonderzahlung
End If
End Sub
Sub Sonderzahlung()
With ActiveSheet
If .Range("L9") = Empty Then
.Range("P9") = Empty
ElseIf .Range("L9").Value = .Range("C2").Value Then
.Range("P9") = (.Range("R9").Value - 1) * .Range("H9").Value + .Range("G9").Value + .Range("M9").Value
ElseIf Isdate(.Range("L9")) Then
.Range("P9") = "Bezahlt am " & .Range("L9").Value
End If
End With
End Sub
mfg. Ralf
Anzeige