30.09.2020, 18:22
Hallo, ich habe wieder ein ungewöhnliches Thema.
Wenn ich mein gesetzten, selektierten Bereich verlasse ...
dann MsgBox "Sie haben den gesetzten Bereich verlassen"...
Springe in den selektierten Bereich zurück.
und erst wenn in aktiven Spalte, Zeile 4 ein Datum eingetragen wird dann darf man den selektierten Bereich wieder verlassen.
Danke schon mal im Voraus!
Das Makro fängt so an.
Wenn ich mein gesetzten, selektierten Bereich verlasse ...
dann MsgBox "Sie haben den gesetzten Bereich verlassen"...
Springe in den selektierten Bereich zurück.
und erst wenn in aktiven Spalte, Zeile 4 ein Datum eingetragen wird dann darf man den selektierten Bereich wieder verlassen.
Danke schon mal im Voraus!
Das Makro fängt so an.
Code:
Sub EingangBuchen()
'
msg = MsgBox("Sie Möchten ein EINGANG buchen?" & Chr(10) & Space$(8) & vbNewLine & "bitte auswählen:", vbYesNo)
If msg = vbYes Then
Range("F4").Select
Selection.End(xlToRight).Offset(0, 1).Select
'Inputbox Bestell Nr. eingeben
Dim LiefTxt As String
LiefTxt = InputBox("Bitte Lieferschein Nummer eingeben:")
'Wenn nichts steht oder wert in der DATB nicht gefunden wird
If LiefTxt = "" Then
MsgBox "Sie haben nichts eingegeben!" & Chr(10) & "Buchung wird abgebrochen!", 64, "FEHLER"
ActiveCell.Offset(-1, 0).ClearContents
ActiveCell.Offset(-2, 0).ClearContents
Sheets("WAWI").Protect password:="0", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True 'Blattschutz aktivieren
Exit Sub
Else
Sheets("WAWI").Unprotect password:="0"
ActiveCell.Value = LiefTxt
MsgBox "Zellen für Buchungswerte sind freigegeben." & Chr(10) & Space$(2), 64, "INFO"
Range(ActiveCell.Offset(3, 0), ActiveCell.Offset(100, 0)).Select 'Mein selektierter Bereich
Selection.Locked = False
Sheets("WAWI").Protect password:="0", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True 'Blattschutz aktivieren
End If
End Sub