kann mir jemand helfen, diese beiden Formeln in eine zu bringen das die noch funktionieren.
bei mir läuft immer nur eine:(
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And Target.Row >= 12 Then _
Range("B12:B" & Target.Row).FormulaR1C1 = "=IF(RC[1]"""",COUNTA(R12C3:RC3),"""")"
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
' Code für Username
If Target.Count > 1 Then Exit Sub
If Target.Column = 2 And Target.Row > 10 Then
Application.EnableEvents = False
Cells(Target.Row, 8).Value = Application.username
Application.EnableEvents = True
End If
End Sub
mfg simon