Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
160to164
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
160to164
160to164
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Eingabemaske erstellen

Eingabemaske erstellen
18.09.2002 18:03:24
Peter
Hallo,
ich möchte mit Excel eine Eingabemaske realisieren. In der ersten Tabelle sollen einfache Eingabefelder zu sehen sein, in der der Anwender seine Daten einträget. Z.B. Länge: Höhe: Breite:
Weiterhin sollte ein Schaltknopf bestehen, nach dessen Auslösung die eingegebenen Daten im nächsten Tabellenblatt in tabellenform eingetragen werden, ohne das der Anwender etwas davon mitbekommt. Dieser Vorgang soll dann beliebig oft wiederholt werden.
Die Tabelle 1 soll nur als Eingabemaske fungieren, die Tabelle 2 für spätere Auswertungen als Datenlieferant dienen.
Ist soetwas mit Excel möglich, wie geht man am sinnvollsten vor?

Danke für die Hilfe!
Peter

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Eingabemaske erstellen
18.09.2002 18:26:09
PeterW
Hallo Peter,

möglich ist das in Excel schon. Die Frage ist, wie gut Du Dich mit Excel und VBA auskennst. Letzteres wirst Du zumindest benötigen, um die eingegebenen Daten in die Tabelle zu übertragen.

Gruß
Peter

Re: Eingabemaske erstellen
18.09.2002 19:41:43
lutz
Ist kein Problem, die Frage ist, was kannst du schon? Habe sowas ähnliches schon gemacht, läuft auch völlig o.K. Aber: wer gibt die Daten ein? Ist es ein Laie, so müßten einige Fehlerbehandlungs-geschichten eingebaut werden. Ansonsten müßtes du mal die Anzahl deiner Eingabefelder angeben, event. mit Datenformat (Text, Datum, Zahlen).

Ciao Lutz

Re: Eingabemaske erstellen
18.09.2002 19:51:17
Hajo_Zi
Hallo Peter

schaue mal ins FAQ

"Zitat FAQ Herber: Stelle bitte keine Fragen im Rundumschlag. Es kommt vor, dass Fragen im Spotlight-Forum, in der
Excel-NewsGroup, an mich persönlich und gleichzeit hier ins Forum gepostet werden. Damit steigen zwar die
Chancen des Fragestellers, eine Antwort zu bekommen, andererseites beschäftigt er ganze Völkerschaften mit
seinem Problem, was die Chance anderer Fragestellern auf eine Antwort wiederum verringert. Dieses
Verhalten ist nicht fair und wird nicht toleriert"

Mit dem doppelten Posting in den Foren ist das so ein Problem, wird der Beitrag in mehreren Foren gleichzeitig gepostet arbeiten mehrere Helfer gleichzeitig an der Lösung. Sollten nun mehrer Helfer sich mit der Beantwortung und Lösungssuche befassen arbeitet nur einer an der engültigen Lösung und die anderen für den Papierkorb. Bei Helfern kostet es Zeit und es machen alle diese Arbeit kostenlos. Und ich sehe es als nicht Achtung der Arbeit der Helfer an, wenn die Frage gleichzeitig in mehreren Foren gestellt wird. Sinn und Zweck des Forums ist es aber ein geben und nehmen. Wenn in einem gewissen Abstand nicht Minuten in anderen Foren gepostet wird hat kein was dagegen.
Dies ist nur meine Meinung zu dem Problem und mit diesen Beiträgen befasse ich mich nicht. Da löse ich lieber andere Probleme.


Gruß Hajo

Anzeige
Re: Eingabemaske erstellen
19.09.2002 08:45:56
Peter
Hallo Peter,
mit VBA kenne ich mich leider nicht so gut aus, habe jedoch schon einen Button hingekriegt, der mir die Daten aufs nächste Tabellenblatt einträgt. Ich denke so kann ich das lassen.

Trotzdem vielen Dank für Deine Antwort!

Peter

Re: Eingabemaske erstellen
19.09.2002 08:51:27
Peter
Moin Lutz,
ich habe schon eine kleine Routine herausgefunden, wie ich die Daten auf Knopfdruck in ein neues Tabellenblatt in der nächsten freien Zeile einfügen kann.
Aber die Idee mit den Fehlerbehandlungen ist gut. Wenn wir mal drei Felder betrachten:
Baunummer: Zahl
Bauteil: Text und Zahl
Linie: Zahl

So bekomme ich die Daten in mein Archiv:

Sub DatenInsArchiv()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Set ws1 = Worksheets("Eingabe")
Set ws2 = Worksheets("Archiv")

Dim letzteZeile As Long
letzteZeile = ws2.Range("A65536").End(xlUp).Row + 1

ws2.Cells(letzteZeile, 1) = Range("Baunummer").Value
Range("Baunummer").ClearContents

ws2.Cells(letzteZeile, 2) = Range("Bauteil").Value
Range("Bauteil").ClearContents

ws2.Cells(letzteZeile, 3) = Range("Linie").Value
Range("Linie").ClearContents

End Sub


Hast Du evtl eine Idee???

Gruß Peter

Anzeige
Re: Eingabemaske erstellen
19.09.2002 18:43:24
PeterW
Hallo Peter,

wenn Du schon den Code hast verstehe ich Deine Fragestellung nicht. Der oben gepostete Code erledigt doch genau das, was Du möchtest.

Gruß
Peter

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige