Hab wieder ein problem an dem ich nicht vorankomme
Ich würde gern mit der inputbox die entsprechende Zeile suchen und Werte ergänzen
Sub Auftrag_rückmelden()
Abruch = 0 ' Vorgabe für Abruch bei Input oder MsgBox
Sheets("Eingabe Daten Prod. Auftrag").Activate
ActiveSheet.Unprotect
Application.ScreenUpdating = False 'Bildschirm aktualisieren untedrückt
PA_NR = InputBox("Produktions-Nummer ?", "EINGABE Produktions-Nummer ") 'P-nummer"steht in _
der Spalte B" in den Daten suchen und vertikal dann von der InputBox KW,LM,ER, die werte in die entsprechende zeile reinschreiben
KW = InputBox("Lieferung in Kalenderwoche ?", "EINGABE Kalenderwoche ") ' KW soll er dann in _
die entsprechende Zeile und Zelle schreiben Spalte "P"
If PA_NR = "" Then Exit
LM = InputBox("Liefermenge ?", "EINGABE Liefermenge ") 'LM soll er dann in die gefundene _
Zeile und Zelle (nur wenn diese leer ist) schreiben Spalte "R"
ER = InputBox("Eingesteuerte Rohlinge ?", "EINGABE Eingesteuerte Rohlinge ") 'ER soll er _
dann in die gefundene Zeile und Zelle Spalte "S" (nur wenn diese leer ist) schreiben
With Worksheets("Eingabe Daten Prod. Auftrag").Range("B5:B9999")
ActiveSheet.Unprotect
Set Zeile = .Find(PA_NR, LookIn:=xlValues, Lookat:=xlWhole)
End Sub
Vielen Dank für eure Bemühungen