Wert aus Eingabebox in anderer Tabelle
04.05.2020 10:51:45
J.
ich habe mir da mal ein VBA zusammengeschnipselt, hierbei aber ein Problem / eine Frage;
Ich möchte die Eingabe aus der Box in Tabellenblatt 2 aufgeführt haben.
Das funktioniert nur, wenn Tabellenblatt 2 aktiv / offen ist.
Falls Tabellenblatt 2 nicht offen ist, passiert einfach nichts.
Wo liegt mein Fehler, bzw. was muss ich ergänzen?
Sub MSG_Box()
Dim MSGbezeichnung As String
MSGbezeichnung = InputBox("Artikelbezeichnung / Nummer", "Fertigmeldung bei Produktionsende" _
_
_
)
'Eingabefeld für Rückmeldung - Bezeichnung
If MSGbezeichnung = "" Then
MsgBox "Fehler - Artikelbezeichnung erforderlich"
Exit Sub
End If
'Wenn Eingabe leer - abbrechen
Dim MSGstückzahl As String
MSGstückzahl = InputBox("Stückzahl", "Fertigmeldung bei Produktionsende")
'Eingabefeld für Rückmeldung - Stückzahl
Sheets("Tabelle2").Cells(Cells(Rows.Count, "A").End(xlUp).Row + 1, "A").Value = MSGbezeichnung
Sheets("Tabelle2").Cells(Cells(Rows.Count, "B").End(xlUp).Row + 1, "B").Value = MSGbezeichnung
Sheets("Tabelle2").Cells(Cells(Rows.Count, "C").End(xlUp).Row + 1, "C").Value = Date
End Sub
Anzeige