Ich habe folgendes Makro für die Überwachung, ob in der ersten freien Zelle ein Eintrag gemacht wird:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim laR As Long
laR = Cells(Rows.Count, 1).End(xlUp).Row
If laR = 1 And Cells(1, 1).Value = "" Then laR = 0
If Target.Column 1 Then
If Cells(Target.Row, 1).Value = "" Then
Application.EnableEvents = False
Target.ClearContents
Application.EnableEvents = True
Cells(laR + 1, 1).Select
MsgBox "Erst eine Angebotsnummer eingeben!"
End If
Else
If Target.Row > 1 Then
If Target.Offset(-1, 0).Value = "" Then
Application.EnableEvents = False
Target.ClearContents
Application.EnableEvents = True
laR = Cells(Rows.Count, 1).End(xlUp).Row
Cells(laR + 1, 1).Select
MsgBox "Erst eine Angebotsnummer eingeben!"
End If
End If
End If
End Sub
Nun möchte ich dieses Makro erweitern, und zwar, wenn in der ersten freien Zelle ein "P" steht, soll 9 Zeilen weiter links die Zahl "20" automatisch eingetragen werden und die Schriftfarbe in der ganzen Zeile blau werden.
Kann mir jemand helfen?