Vielleicht kann mir hier ja jemand weiterhelfen?!
ich benötige einen Code der mir die jeweilige Zeile ausblendet wo ich unter der Spalte "N" ein "x" stehen hab.
Das Ganze müsste noch mit diesem Code korrespondieren... :-/
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
'Code der die Nummerierung wiedergibt
If Target.Column = 2 And Target.Row >= 5 Then
'Code der die Nummerierung berechnet
Range("A5:A" & Target.Row).FormulaR1C1 = "=IF(RC[1]"""",COUNTA(R5C2:RC2),"""")"
'Code der den Username wiedergibt
Application.EnableEvents = False
Cells(Target.Row, 13).Value = Application.UserName
Application.EnableEvents = True
End If
End Sub
mfg simon