
Da ich hier bei der Arbeit kein Formular mit VB oder ACCESS erstellen kann, versuche ich herauszufinden, ob ich eine Zelle als provisorisches Formular verwenden kann. Ich möchte eine Zelle mit „Neue Bestellmenge eingeben“ beschriften. Daneben (nächste Zelle) soll der Benutzer eine Zahl eingeben können, diese Zahl soll zwei andere Zellen aktualisieren und diese Änderung dann beibehalten, sodass eine weitere Zahl eingegeben und über die vorherige Zahl in den oben genannten Zellen hinzugefügt werden kann. Ist das möglich?
Antwort1
Fügen Sie ein ActiveX-Textfeld hinzu (Registerkarte „Entwickler“, Abschnitt „Steuerelemente“, Schaltfläche „Einfügen“. Der Standardname lautet „TextBox1“).
Fügen Sie eine grundlegende Formular-Steuerelementschaltfläche hinzu (der Standardname sollte Button1 sein)
Wählen Sie die Schaltfläche aus und klicken Sie im selben Abschnitt „Steuerelemente“ in der Symbolleiste auf „Code anzeigen“.
Dann sollte das Sub ungefähr so aussehen
Sub Button1_Click()
Sheet1.Range("C1").Value = Sheet1.Range("C1").Value + Sheet1.TextBox1.Text
Sheet1.Range("D1").Value = Sheet1.Range("D1").Value + Sheet1.TextBox1.Text
Sheet1.TextBox1.Text = ""
End Sub
C1 und D1 wären die Zellen, in die Sie die Menge kopieren möchten
Bearbeiten: Ich habe vergessen, das Textfeld zu leeren. Und nebenbei bemerkt: Mit Alt+F11 gelangt man schnell zurück zum Codefenster.