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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen