Ich habe ein Arbeitsblatt mit dem Namen "Ausprägungen".
Nachdem ich in der Spalte "H" in der nächsten freien Zelle einen Eintrag mit return oder mit der Tab Taste verlasse, möchte ich nun erreichen, dass eine MSG Box mit einem "JA" und "NEIN" Button sich öffnet, mit der Frage: "Ist der Eintrag korrekt?". Ist der Eintrag korrekt, sollte sich die MSG Box schliessen, ist der Eintrag jedoch nicht korrekt, dann soll ein Makro gestartet werden, die MSG Box sollte sich wieder schliessen und die Zelle mit der fehlerhaften Eingabe sollte für eine Korrektur markiert werden.
Mit dem Code
If Target.Column = 8 And Target.Row > 1 Then
Sheets("tabelle1").Cells(Rows.Count, 28).End(xlUp).Offset(1, 0) = Target
End If
wird in einem Worksheet_Change Ereignis der Eintrag in der letzten Zelle in der Spalte H in das Tabellenblatt "Tabelle 1" in die Spalte "AB" in die nächste freie Zelle kopiert.
mit dem Makro
Sub Del_Ausprägung_Kurztext()
On Error GoTo WEITER:
Dim mldg, stil, titel, grc
Dim wks As Worksheet
Set wks = Workbooks("Masterfile.xls").Worksheets("Tabelle1")
'hier wird meldung erzeugt ob daten geändert werden sollen
mldg = "Wert wirklich löschen ?"
stil = vbYesNo + vbCritical + vbDefaultButton2
titel = "Frage ?"
grc = MsgBox(mldg, stil, titel)
If grc = vbYes Then
Else
Exit Sub
End If
With wks
If IsEmpty(.Cells(.Cells(.Rows.Count, 28).End(xlUp).Row, 1)) Then _
.Cells(.Cells(.Rows.Count, 28).End(xlUp).Row, 28).ClearContents
End With
WEITER:
End Sub
sollte bei einer "NEIN" Bestätigung in der MSG Box der fehlerhafte Wert in der "Tabelle 1" wieder gelöscht werden.
Wie würde hier bitte eine VBA Lösung für das Öffnen der MSG Box und den Makrostart lauten?
Danke
Josef