folgendes Problem:
Wenn in Zelle C1 irgendwas mit EHWG (*EHWG*)steht und Zelle F1 leer ist dann soll eine Meldung kommen sobald ich die Zeile verlasse. z.B. "Bitte Zahl in Spalte F eintragen"
Geht das?
Gruss Markus
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "C1" Then
If Target Like "*EHWG*" And Range("F1") = "" Then
MsgBox "Bitte Zahl in Spalte F eintragen"
Range("F1").Select
End If
End If
End Sub
VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C:C")) Is Nothing Then
If Target(1, 1) Like "*EHWG*" And Cells(Target(1, 1).Row, 6) = "" Then
MsgBox "Bitte Zahl in Spalte F eintragen"
Cells(Target(1, 1).Row, 6).Select
End If
End If
End Sub
VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0