Mit Excel können Sie Visual Basic verwenden, um Ihren Tabellenkalkulationen eine Reihe verschiedener Funktionen hinzuzufügen, einschließlich „UserForms“. Über UserForms können Sie dem Benutzer ein vom Hauptarbeitsblatt getrenntes Eingabeformular anzeigen, das zum Erfassen von Daten von Personen nützlich ist, die mit Tabellenkalkulationen möglicherweise nicht vertraut sind. Mit ein wenig Visual Basic-Code können Sie all diese Daten in neuen Zeilen zu Ihrer Tabelle hinzufügen.
Definieren Sie Ihre Felder
Starten Sie Excel. Geben Sie die Namen aller Felder, die Sie erfassen möchten, in die obere Zeile ein, beginnend mit „A1“ und arbeiten Sie sich nach rechts. Klicken Sie auf „Entwickler“ und dann auf „Visual Basic“. Das Visual Basic-Fenster wird angezeigt. Klicken Sie in der Toolbox auf das Symbol "A" und ziehen Sie es in das Fenster "UserForm1" an die Stelle, an der Ihr erstes Formularfeld erscheinen soll. Bearbeiten Sie die Beschriftung, indem Sie die Eigenschaft "Beschriftung" in etwas aussagekräftigeres ändern, z.
Fügen Sie Ihre Textfelder hinzu
Wählen Sie das Symbol "TextBox" aus der Toolbox und ziehen Sie ein Textfeld direkt rechts neben Ihrem ersten Etikett auf. Wenn Sie nur wenige Felder verwenden, können Sie die Eigenschaft „(Name)“ als Standard „TextBox1“ belassen. Wenn Sie jedoch eine große Anzahl von Feldern benötigen, kann dies verwirrend werden. Sie sollten diese daher so bearbeiten, dass sie den bereits erstellten Labels entsprechen. Stellen Sie sicher, dass jedes Etikett ein entsprechendes Textfeld hat.
Schaltfläche zum Senden hinzufügen
Klicken Sie in der Toolbox auf das Symbol "Befehlsschaltfläche", das wie eine Standardschaltfläche im Windows-Stil aussieht. Klicken und ziehen Sie es an die gewünschte Größe und Position in UserForm1. Normalerweise wird dies unterhalb oder in der Nähe des letzten Textfelds in Ihrem Formular angezeigt. Ändern Sie die Eigenschaft "Beschriftung" der Schaltfläche in "Daten senden" oder etwas Ähnliches, um dem Benutzer anzuzeigen, dass er auf diese Schaltfläche klicken muss, um seine Daten zu übermitteln.
Visual Basic-Code hinzufügen
Doppelklicken Sie auf die Schaltfläche. Geben Sie den folgenden Code zwischen „Private Sub“ und „End Sub“ ein:
eRow=Sheet1.Cells(Rows.Count,1).End(xlUp).Offset(1,0).Row
Beginnen Sie dann eine neue Zeile darunter und geben Sie dann Folgendes ein:
Zellen(erow, 1) = TextBox1.Text
Wenn Sie Ihre Textfelder umbenannt haben, ändern Sie „TextBox1“ in den Namen, den Sie dem ersten Textfeld gegeben haben. Führen Sie dies für jedes von Ihnen erstellte Eingabefeld aus, beginnen Sie eine neue Zeile und geben Sie die richtigen Textfeldnamen ein. Erhöhen Sie außerdem für jede neue Zeile die Zahl in den Klammern um eins. Die nächste Zeile könnte zum Beispiel so aussehen:
Zellen(erow, 2) = TextBox2.Text
Klicken Sie oben im Fenster auf die Schaltfläche „Wiedergabe“, um mit der Datenerfassung zu beginnen.
