Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1548to1552
1548to1552
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Code für Eingabemaske

Forumthread: VBA Code für Eingabemaske

VBA Code für Eingabemaske
06.04.2017 23:00:18
Kristian
Hallo liebe Excel Communtiy,
Ich baue für meine Freundin so eine Art Verwaltungsprogramm für ihre Arbeit mittels Excel soweit so gut. Als letztes Puzzelteil möchte ich eine Eingabemaske erstellen mit der man Bestellungen in eine Liste überträgt bzw. archiviert.
Meine VBA-Kenntnisse sind da einfach zu bescheiden denn Code so zusammenzustellen
das er auch funktioniert.
Ist vielleicht jemand unter euch der mir unter die Arme greifen könnte und einen Code-vorschlag oder Lösungsvorschlag posten kann?
Bin schon seit ein paar Tagen dran aber es funkt einfach nicht...
So hier kurz eine Beschreibung im Anhang wäre die Datei mit fertiger Userform ohne Code... (grrr)
Also die Maske sollte jenes tun :
1. Textbox1 eine laufende ID generieren
2. Textbox2 für das Datum (cdate) überschreibar
3. Habe die Combobox1 für die Kundenliste (weis nicht ob ne Listbox sinnvoller wäre)
die Kundendaten sollten aus der Kundenliste in Tabelle2 eingelesen werden.
4. Wenn in Combobox1 ein Kunde ausgewählt ist sollte in
Textbox3 Name
Textbox4 Adresse
Textbox5 PLZ/Ort
Textbox6 Telefon
Textbox7 Account Nr. erscheinen.
5. 2 Optionsfelder zum Auswählen ( Gesamtzahlung / Teilzahlung )
6. Combobox2 Produkt auswählen, in Combobox3 Anzahl 1-10 auswählen
7. Textbox8 (Preis) und Textbox9 (Punkte) sollten anhand des ausgewählten Produktes und der Anzahl
automatisch ausgerechnet werden. ( Produkt,Preis und Punkte hab ich in der Liste
Tabelle1.
Soo die Daten sollten dann mittels der Schaltfläche "Bestellung speichern" in die Tabelle3 geschrieben werden. Der zweite Button für einen neuen Eintrag und die 3 Schaltfläche zum schließen der Userform.
Ich wäre über jede Hilfe sehr sehr dankbar!!
https://www.herber.de/bbs/user/112707.xlsm
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: erster Versuch ...
07.04.2017 13:05:18
Kristian
Hallo Matthias,
1000 Dank zuerst das du mir hilft!! :-)
Bin da allein wahrheitshalber gesagt aufgeschmissen...
Das schaut schon mal sehr gut aus werd mich gleich Abends daran machen und versuchen
mit deinen Ansätzen weiter zu arbeiten und vielleicht was funktionierendes zusammenzubringen.
Vielen Dank nochmal fürs erste und wünsche ein schönes WE!
Gruß Kristian
Anzeige
AW: VBA Code für Eingabemaske
10.04.2017 15:20:43
Kristian
Hallo nochmal,
Bekomm den Code einfach nicht hin hab ausreichend Material auf der Seite und im Netz gefunden mit
denen ich die Eingabemaske fertig schreiben könnte. Ich verstehe auch was die einzelnen Prozeduren machen die du geschreiben hast aber die Syntax bereitet mir viel zu große Probleme.
Hab ständig Laufzeitfehler, Typen unverträglich usw..
Lehrmaterial hab ich zu genüge heruntergeladen aber das wird wohl eine Weile dauern bis ich da mal durchsteige.
Wäre echt sehr dankbar wennd ma den Code fertig schreiben könntest sonst muss ich es über ein Tabellenblatt machen.
Ich sag mal Danke voraus
und nochmals Danke Matthias das du dir überhaupt die Zeit genommen hast!
Gruß Kristian
Anzeige
nächste Version ...
10.04.2017 20:29:23
Matthias
Hallo
https://www.herber.de/bbs/user/112790.xlsm
Mit dem Feld fürs Datum war ich mir nicht ganz sicher welches da rein soll.
Also wird bei der Auswahl eines Kunden das Datum aus dieser Tabelle gezogen.
Wird eine neue Bestellung ausgelöst wird das akt. Datum eingeschrieben.
Ansonsten spiel einfach mal mi der Datei ein bisschen rum.
Sollten Fehler auftreten, einfach wieder melden.
Gruß Matthias
Anzeige
AW: nächste Version ...
10.04.2017 23:27:12
Kristian
Hallo,
Wow Danke..!
Die Maske funktioniert prima und bin voll im Code echt Hammer!!
Das bringt mir voll viel
Den Preis und Waps hätte ich noch gern berechnet gehabt hab folgende prozedur versucht
Private Sub Combobox3_change()
TextBox8.Value = CDbl(TextBox8) * CDbl(ComboBox3.Value) & " €"
TextBox9.Value = CDbl(TextBox9) * CDbl(ComboBox3.Value) & " P"
End Sub
Bei Auswahl wird das Ergebnis berechnet aber wenn ich wieder die Anzahl änderen will sind die Typen unverträglich.
Was passt nicht?
Gruß Kristian
Anzeige
weil Du Text multiplizieren willst ...
11.04.2017 04:00:31
Matthias
Hallo
Du schreibst ja explizit & " €"
Wenn Du mit der Maus die Fehlerzeile überfährst siehst Du es.
Userbild
hier die neueste Version.
https://www.herber.de/bbs/user/112794.xlsm
Gruß Matthias
Anzeige
kleine Änderung ...
11.04.2017 17:24:32
Matthias
Hallo
Ersetze mal in dieser Prozedur bitte die fette Zeile
Private Sub CommandButton1_Click()
'MsgBox "Bestellung speichern ..."
Dim Loletzte&
With Tabelle3
Loletzte = .Cells(.Rows.CountLarge, 1).End(xlUp).Row + 1 'letzteZeile ermitteln + 1
.Cells(Loletzte, 1) = CLng(TextBox1)  'Bestell-ID
If IsDate(TextBox2) Then .Cells(Loletzte, 2) = CDate(TextBox2) 'Datum
.Cells(Loletzte, 3) = ComboBox1 'Name
.Cells(Loletzte, 4) = IIf(OptionButton1, "Gesamt", "Teilzahlung") 'Zahlart
.Cells(Loletzte, 5) = ComboBox2 'Produkt
.Cells(Loletzte, 6) = CLng(ComboBox3) 'Anzahl
.Cells(Loletzte, 7) = CDbl(TextBox8)  'Preis
.Cells(Loletzte, 8) = CDbl(TextBox9)  'WAP
.Cells(Loletzte, 9) = CLng(TextBox7)  'Account Nr.
End With
Unload UserForm1
End Sub
Dadurch kannst Du Fehler bei der Eingabe von Datum eher ausschließen.
Ohne die Abfrage auf IsDate(DeineTextbox) kommt es zu einem VBA-Fehler wenn es kein Datum ist.
Gruß Matthias
Anzeige
AW: kleine Änderung ...
13.04.2017 11:40:53
Kristian
Hallo,
Aha ich verstehe.. hab die Tage leider keine Zeit gehabt weiter zu tüfteln
das Datum funktioniert aber tadellos.
Was mir aufgefallen ist wenn man die Anzahl vom ausgewählten Produkt verändert
multipliziert sich der Betrag immer weiter rauf. Versteh auch warum..
Das lässt sich wieder zurücksetzen wenn man ein anderes Produkt auswählt.
Bin überfroh das die Maske so super funktioniert und das man neue Kunden auch gleich mit anlegen kann ist einfach nur geil!
Du bist ein wahrer Meister! Ich hätte das niemals zusammengebracht haha
Gruß Kristian
Anzeige
;

Forumthreads zu verwandten Themen

Datenbank mit externer Eingabemaske (Userform) +Fi
Paulo

Hallo an Alle,
Wer kann mir Helfen,
diese Datenbank noch weiter zu entwickeln oder zu verbessern ?
Ich möchte bei der Eingabemaske für jeden Eintrag ein Bild Einfügen oder Löschen über einen Button. Habe es schon versucht aber vergebens.
Dann würde ich noch gerne um den Filt...
24.10.2010 23:26:46
Thread-ID: 1183297
2 Beiträge
Datenbank mit externer Eingabemaske (Userform) +Fi
Paulo

Hallo Franz,
Erstmal Vielen dank für deine Hilfe, hast mir wirklich sehr geholfen.
Werde erst mal deine Lösung einbauen und noch ein paar Sachen ergänzen, danach wende ich mich wieder an dich wegen den Filtern.
Herzlichen Dank
Paulo
25.10.2010 22:20:54
Thread-ID: 1183793
2 Beiträge
Datenbank mit externer Eingabemaske (Userform)
Paulo

Hallo Franz,
Das einfügen von Bildern klappt jetzt einwandfrei, danke dir nochmals, habe jetzt auch die Möglichkeit hinzugefügt die Daten als Formular auszudrucken.
Mein Anliegen ist jetzt nun bei der Eingabemaske:
- Ich will, das wenn mann die Nr eingibt er sofort den zugehörigen D...
19.11.2010 11:58:12
Thread-ID: 1187763
2 Beiträge
Anzeige
LEERE E-Mail per VBA OHNE Dateianhang erstellen?
der Rudiator

Guten Abend zusammen,tut mir leid, dass ich hier noch mal posten muss, aber auf das andere Posting hat leider noch keiner reagiert - und in der Recherche bin ich auch nicht fuendig geworden.Wie kann ich per VBA (Klick oder Doppelklick auf ein Label) eine leere E-Mail OHNE Anhang generieren?
...
22.05.2003 23:03:53
Thread-ID: 260553
4 Beiträge
Anzeige
Datenbank mit Eingabemaske
Marquez

Habe folgende Tabelle
https://www.herber.de/bbs/user/28214.xls
Weiß jemand wie ich eine Eingabemaske erstelle, die die Daten automatisch in ein zweites Blatt Schreibt und sich dann leert. (Durch einen Button vielleicht)
Wäre schön wenn ich das auch ohne VBA-Kenntnisse machen kann. D...
08.11.2005 14:04:35
Thread-ID: 693054
4 Beiträge
Excel als Datenbank mit Eingabemaske
Carsten

Hallo Excel und VB-Spezialisten,
vielleicht könnt ihr mir weiter helfen, da ich mit VB keine Ahnung habe.
Das ist meine Aktuelle Excel-Datenbank, die ich mit hilfe von anderen aus diesem Forum zusammen gestellt habe: https://www.herber.de/bbs/user/32387.xls.
Hier sind die Punkte, di...
29.03.2006 11:27:15
Thread-ID: 749911
9 Beiträge
Anzeige
eigene Eingabemaske erstellen
Fechter

Hallo Leute,
kann mir jemand mit meinem Problem helfen? Ich möchte selbst eine Eingabemaske mit Madro erstellen und ich bekomme es nicht hin, dass Werte durch die Maske auf dem Bildschirm erscheinen.
Der erste Wert sollte in Zelle A5 erscheinen
Private Sub CommandButton2_Click() '...
17.11.2006 10:57:32
Thread-ID: 820798
8 Beiträge
Anzeige
Liste erstellen ohne VBA
Falk

Hallo alle zusammen,
ich habe folgendes Problem, untenstehende Tabelle beinhaltet in Spalte A eine Anzahl von Elementen (Anzahl ist variable), in Spalte B stehen den Elementen gewisse Attribute gegenüber, aber nicht immer.
Jetzt benötige ich eine Formel in Spalte E, die mir nur die in S...
19.07.2007 13:46:04
Thread-ID: 888769
2 Beiträge
Liste erstellen ohne VBA
Falk

Hallo alle zusammen,
ich habe folgendes Problem, untenstehende Tabelle beinhaltet in Spalte A eine Anzahl von Elementen (Anzahl ist variable), in Spalte B stehen den Elementen gewisse Attribute gegenüber, aber nicht immer.
Jetzt benötige ich eine Formel in Spalte E, die mir nur die in S...
19.07.2007 13:46:00
Thread-ID: 888770
5 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

VBA Code für Deine Eingabemaske in Excel

Schritt-für-Schritt-Anleitung

Um eine Excel Eingabemaske zu erstellen, die Bestellungen in eine Datenbank überträgt, kannst Du die folgenden Schritte befolgen:

  1. UserForm erstellen:

    • Öffne den VBA-Editor (Alt + F11).
    • Füge eine neue UserForm hinzu (Rechtsklick auf "VBAProject" -> Einfügen -> UserForm).

  2. Steuerelemente hinzufügen:

    • Füge TextBoxen, ComboBoxen und OptionButton hinzu, um die benötigten Informationen zu erfassen (z.B. ID, Datum, Kundenname, Produkt, Preis).

  3. VBA Code implementieren:

    • Verwende den folgenden Code als Basis für Deine Eingabemaske:
    Private Sub CommandButton1_Click()
   Dim Loletzte As Long
   With Tabelle3
       Loletzte = .Cells(.Rows.CountLarge, 1).End(xlUp).Row + 1
       .Cells(Loletzte, 1) = CLng(TextBox1)  'Bestell-ID
       If IsDate(TextBox2) Then .Cells(Loletzte, 2) = CDate(TextBox2) 'Datum
       .Cells(Loletzte, 3) = ComboBox1 'Kundenname
       .Cells(Loletzte, 4) = IIf(OptionButton1, "Gesamt", "Teilzahlung") 'Zahlart
       .Cells(Loletzte, 5) = ComboBox2 'Produkt
       .Cells(Loletzte, 6) = CLng(ComboBox3) 'Anzahl
       .Cells(Loletzte, 7) = CDbl(TextBox8)  'Preis
       .Cells(Loletzte, 8) = CDbl(TextBox9)  'WAP
       .Cells(Loletzte, 9) = CLng(TextBox7)  'Account Nr.
   End With
   Unload UserForm1
End Sub

  4. Datenquelle einrichten:

    • Stelle sicher, dass Du eine Excel-Datenbank hast, in der die Kunden- und Produktinformationen gespeichert sind. Diese Daten werden für die Auswahl in den ComboBoxen verwendet.

  5. UserForm testen:

    • Starte die UserForm und teste, ob die Eingaben korrekt in die Datenbank übertragen werden.

Häufige Fehler und Lösungen

  • Laufzeitfehler:

    • Überprüfe, dass alle ComboBoxen und TextBoxen korrekt benannt sind und die richtigen Daten enthalten.

  • Typen unverträglich:

    • Achte darauf, dass die Eingaben in TextBoxen den erwarteten Datentypen entsprechen (z.B. Zahl für die ID).

  • Datum nicht erkannt:

    • Stelle sicher, dass die Eingabe in TextBox2 tatsächlich ein Datum ist, indem Du die IsDate-Funktion verwendest.

Alternative Methoden

Wenn Du keine VBA Eingabemaske verwenden möchtest, kannst Du auch eine Excel Eingabemaske erstellen ohne VBA:

  • Nutze Excel-Formulare oder Datenübertragungs-Tools, die ohne Programmierung auskommen.
  • Verwende die Funktion "Datenüberprüfung" in Excel, um Dropdown-Listen für die Eingaben zu erstellen.

Praktische Beispiele

Ein einfaches Beispiel für eine Excel Eingabemaske könnte so aussehen:

  • Textbox1: Bestell-ID (automatisch generiert)
  • Textbox2: Datum (mit gültiger Dateneingabe)
  • ComboBox1: Auswahl aus einer Kundenliste
  • Button: "Bestellung speichern" (überträgt die Daten in Tabelle3)

Du kannst die Dateien von Matthias aus dem Forum nutzen, um eine Excel VBA Eingabemaske für umfangreiche Datenbank-Anwendungen zu erstellen.

Tipps für Profis

  • Verwende Excel Makro Eingabemaske, um den Prozess der Dateneingabe zu automatisieren und Fehler zu minimieren.
  • Halte Deinen VBA-Code sauber und gut kommentiert, damit Du und andere ihn später leicht verstehen können.
  • Nutze Vorlagen für Excel Eingabemaske VBA, die Du an Deine Bedürfnisse anpassen kannst, um Zeit zu sparen.

FAQ: Häufige Fragen

1. Wie kann ich eine eigene Eingabemaske in Excel erstellen?
Du kannst eine UserForm im VBA-Editor erstellen und die benötigten Steuerelemente hinzufügen. Dann implementierst Du den VBA-Code, um die Daten zu verarbeiten.

2. Welche Excel-Version benötige ich für die VBA Eingabemaske?
Die meisten modernen Excel-Versionen (z.B. Excel 2016, 2019, 365) unterstützen VBA und UserForms. Stelle sicher, dass Du die Entwicklertools aktiviert hast.

3. Wie kann ich Fehler in meinem VBA-Code finden?
Nutze die Debugging-Tools im VBA-Editor, um Fehler zu identifizieren. Setze Haltepunkte und prüfe die Werte von Variablen während der Ausführung.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige