Kann ich die Eingabeaufforderung nach bestätigen der MSbox wiederholen?
Der nächste Eintrag soll zwei Zeilen weiter erfolgen. Die Spalten bleiben gleich. Hab bis zu 40 Einträge.
hier der Code den ich z.Z. verwende: Irgendwie die 8 (für Zeile) hochzählen!?
Sub MsgBox_bestätigen()
If MsgBox("Neu Position?", vbYesNo, "Titel der MsgBox") = vbNo Then
Exit Sub
Else
eintrag
End If
End Sub
------------------------------------------------------
Sub eintrag()
Worksheets("Materialanforderung").Cells(8, 3).Value = InputBox("Menge:", "Eingabe Erforderlich")
Worksheets("Materialanforderung").Cells(8, 4).Value = InputBox("Materialnummer:", "Eingabe Erforderlich")
Worksheets("Materialanforderung").Cells(8, 7).Value = InputBox("Bezeichnung:", "Eingabe Erforderlich")
Worksheets("Materialanforderung").Cells(8, 10).Value = InputBox("Bemerkung:", "Eingabe Erforderlich")
End Sub
Gruß Marcel