VBA Zwei Ereignisse in Private Sub Worksheet_Chang
10.03.2019 16:30:20
Karsten
ich möchte 2 Abfragen in Private Sub Worksheet_Change durchführen:
Erstens bei Eingabe eines Wertes in Zelle B6 oder C6 eine Neue Zeile oberhalb einfügen.
Dies mache ich mit Code 1::
Private Sub Worksheet_Change(ByVal Target As Range)
'On Error GoTo ErrHdl
Application.EnableEvents = False
If Range("b6") "" Or Range("c6") "" Then
Range("a6").EntireRow.Insert
Rows("5:7").RowHeight = 14.4
Range("d7").Select
End If
Application.EnableEvents = True
End Sub
Nun möchte ich in der Zelle M7 überprüfen, ob der Werte bereits in der Spalte vorhanden ist.Hierfür habe ich den Code2 gefunden:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iRow As Integer
If Target.Address "$M$7" Then Exit Sub
If IsEmpty(Target) Then Exit Sub
If WorksheetFunction.CountIf(Columns(1), Target.Value) > 1 Then
MsgBox "Wert ist schon vorhanden!"
Else
Range("M7").Value = Target.Value
End If
End Sub
Mir gelingt es nicht diese beiden Abgfragen in einem Sub zu verbinden.
Wie kann ich dies bewerkstelligen?
Gruß Karsten
Anzeige