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

Command Button Eingabe Userformdaten

Forumthread: Command Button Eingabe Userformdaten

Command Button Eingabe Userformdaten
06.05.2021 16:05:23
Fuchss
Hallo,
Ich habe eine Excel Datei, in der ich eine Userform namens Verlorene_Angebote erstellt habe.
Kann mir jemand bei dem Code für den Einabebutton helfen?
Der CommandButton_Eingabe soll die eingetragenen Daten von der Userform in die Tabelle Datenbank eintragen. Ich habe bereits jedes Forum durchforstet und keine Lösung dafür gefunden. für Profis sicher eine Leichtigkeit.
Datei hänge ich an!
Vielen Dank!
LG Julian
https://www.herber.de/bbs/user/146037.xlsm
Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Command Button Eingabe Userformdaten
06.05.2021 16:13:15
Rudi
Hallo,
ändere x1Up in xlup und lösche last=
Gruß
Rudi
AW: Command Button Eingabe Userformdaten
06.05.2021 16:30:46
Fuchss
Vielen Dank!
Funktioniert!
ich habe den Befehl hinzugefügt, dass sich das Fenster nach der Eingabe schließt
Jetzt möchte ich noch, dass eine Meldung kommt, wenn die Felder Artikelnummer und Grund nicht ausgefüllt sind.

If TextBox_Artikelnummer = "" Then
MsgBox "Es sind nicht alle Pflichtfelder ausgefüllt!", vbCritical + vbRetryCancel
End If
If TextBox_Gund = "" Then
MsgBox "Es sind nicht alle Pflichtfelder ausgefüllt!", vbCritical + vbRetryCancel
Cancel = True
End If
Wenn ein Feld nicht ausgefülllt ist, sollen die in die Userform eingetragenen Daten nicht in die Tabelle "Datenbank" eingetragen werden und das Fenster sich wieder öffnen, sodass eine erneute Eintragung vorgenommen werden kann.
Welcher Befehl fehlt dafür?
Vielen Dank für die Superschnelle Hilfe!
ÖG Julian
Anzeige
AW: Command Button Eingabe Userformdaten
06.05.2021 16:15:16
Daniel
Hi
funktioniert schon.
mit zwei kleinen Änderungen:
1. du musst nur das "last = " am Anfang der Zeilen löschen, mit denen du die werte übertragen willst.
das gehört da nicht nicht hin, warum steht das da, wo hast du gelesen das man das so programmieren muss?
2. was auch häufig verwechselt wird, in VBA beginnen viele der Systemvariablen und -konstanten mit "xl" also "Xaver Ludwig"
da aber manche Zeichen sich sehr ähnlich sehen, schreiben viele hier statt dem "l" wie Ludwig eine 1, so auch du.
Mach also aus dem "x1up" ein "xlup"
um solche Fehler schneller zu finden, empfehle ich die Verwendung von Option Explicit.
https://online-excel.de/excel/singsel_vba.php?f=4
Gruß Daniel
Anzeige
AW: Command Button Eingabe Userformdaten
06.05.2021 16:44:51
Fuchss
Vielen Dank!
Funktioniert!
ich habe den Befehl hinzugefügt, dass sich das Fenster nach der Eingabe schließt
Jetzt möchte ich noch, dass eine Meldung kommt, wenn die Felder Artikelnummer und Grund nicht ausgefüllt sind.

If TextBox_Artikelnummer = "" Then
MsgBox "Es sind nicht alle Pflichtfelder ausgefüllt!", vbCritical + vbRetryCancel
End If
If TextBox_Gund = "" Then
MsgBox "Es sind nicht alle Pflichtfelder ausgefüllt!", vbCritical + vbRetryCancel
Cancel = True
End If
Wenn ein Feld nicht ausgefülllt ist, sollen die in die Userform eingetragenen Daten nicht in die Tabelle "Datenbank" eingetragen werden und das Fenster sich wieder öffnen, sodass eine erneute Eintragung vorgenommen werden kann.
Welcher Befehl fehlt dafür?
Vielen Dank für die Superschnelle Hilfe!
LG Julian
Anzeige
AW: Command Button Eingabe Userformdaten
06.05.2021 16:19:51
Hajo_Zi
Hallo Julian,
es sollte nicht geürü+ft werden ob schon vorhanden.

Option Explicit
Private Sub CommandButton_Eingabe_Click()
'Erste freie Zeile ausfindig machen
Dim last
With Worksheets("Datenbank")
Dim intErsteLeereZeile As Long
intErsteLeereZeile = IIf(IsEmpty(.Cells(Rows.Count, 1)), .Cells(Rows.Count, 1).End(xlUp).Row, .Rows.Count) + 1
.Cells(intErsteLeereZeile, 1).Value = Me.TextBox_Artikelnummer.Value
.Cells(intErsteLeereZeile, 2).Value = Me.ListBox_Grund.Value
.Cells(intErsteLeereZeile, 3).Value = Me.TextBox_Kundennummer.Value
.Cells(intErsteLeereZeile, 4).Value = Me.TextBox_Monat.Value
.Cells(intErsteLeereZeile, 5).Value = Me.TextBox_Bemerkung.Value
End With
End Sub
Private Sub UserForm_Initialize()
'Artikelnummer
'Grund
With ListBox_Grund
.AddItem "Preis"
.AddItem "Design"
.AddItem "Technik"
.AddItem "Lieferung"
.AddItem "Divers"
End With
'Monat
With Me
.TextBox_Monat = Date
.TextBox_Monat = Format(Now, "MMMM" & "/" & "YYYY")
End With
'Kundennummer
End Sub
GrußformelHomepage
Anzeige
AW: Command Button Eingabe Userformdaten
06.05.2021 17:49:29
Fuchss
Vielen Dank!
Funktioniert!
ich habe den Befehl hinzugefügt, dass sich das Fenster nach der Eingabe schließt
Jetzt möchte ich noch, dass eine Meldung kommt, wenn die Felder Artikelnummer und Grund nicht ausgefüllt sind.

If TextBox_Artikelnummer = "" Then
MsgBox "Es sind nicht alle Pflichtfelder ausgefüllt!", vbCritical + vbRetryCancel
End If
If TextBox_Gund = "" Then
MsgBox "Es sind nicht alle Pflichtfelder ausgefüllt!", vbCritical + vbRetryCancel
Cancel = True
End If
Wenn ein Feld nicht ausgefülllt ist, sollen die in die Userform eingetragenen Daten nicht in die Tabelle "Datenbank" eingetragen werden und das Fenster sich wieder öffnen, sodass eine erneute Eintragung vorgenommen werden kann.
Welcher Befehl fehlt dafür?
Vielen Dank für die Superschnelle Hilfe!
LG Julian
Anzeige
AW: Command Button Eingabe Userformdaten
06.05.2021 17:55:12
Hajo_Zi
If TextBox_Artikelnummer = "" Then
MsgBox "Es sind nicht alle Pflichtfelder ausgefüllt!", vbCritical + vbRetryCancel
Elseif TextBox_Gund = "" Then
MsgBox "Es sind nicht alle Pflichtfelder ausgefüllt!", vbCritical + vbRetryCancel
Else
Dim intErsteLeereZeile As Long
intErsteLeereZeile = IIf(IsEmpty(.Cells(Rows.Count, 1)), .Cells(Rows.Count, 1).End(xlUp).Row, .Rows.Count) + 1
.Cells(intErsteLeereZeile, 1).Value = Me.TextBox_Artikelnummer.Value
.Cells(intErsteLeereZeile, 2).Value = Me.ListBox_Grund.Value
.Cells(intErsteLeereZeile, 3).Value = Me.TextBox_Kundennummer.Value
.Cells(intErsteLeereZeile, 4).Value = Me.TextBox_Monat.Value
.Cells(intErsteLeereZeile, 5).Value = Me.TextBox_Bemerkung.Value
Endif
Gruß Hajo
Anzeige
AW: Command Button Eingabe Userformdaten
07.05.2021 11:02:20
Fuchss
Hallo Hajo,
Leider funktioniert der Code nicht.
Ich habe noch einen fehler behoben (Grund ist ListBox), aber er meckert trotzdem rum.
Hier nochmal der gesamte buttoncode:

Private Sub CommandButton_Eingabe_Click()
If TextBox_Artikelnummer = "" Then
MsgBox "Es sind nicht alle Pflichtfelder ausgefüllt!", vbCritical + vbRetryCancel
ElseIf ListBox_Gund = "" Then
MsgBox "Es sind nicht alle Pflichtfelder ausgefüllt!", vbCritical + vbRetryCancel
Else
Dim last
With Worksheets("Datenbank")
Dim intErsteLeereZeile As Long
intErsteLeereZeile = IIf(IsEmpty(.Cells(Rows.Count, 1)), .Cells(Rows.Count, 1).End(xlUp).Row, .Rows.Count) + 1
.Cells(intErsteLeereZeile, 1).Value = Me.TextBox_Artikelnummer.Value
.Cells(intErsteLeereZeile, 2).Value = Me.ListBox_Grund.Value
.Cells(intErsteLeereZeile, 3).Value = Me.TextBox_Kundennummer.Value
.Cells(intErsteLeereZeile, 4).Value = Me.TextBox_Monat.Value
.Cells(intErsteLeereZeile, 5).Value = Me.TextBox_Bemerkung.Value
End If
End Sub
Danke für deine Hilfe! :)
LG Julian
Anzeige
AW: Command Button Eingabe Userformdaten
07.05.2021 11:16:02
Hajo_Zi
Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue.Ich baue keine Datei nach.
Sollte die Datei verlinkt werden?
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/showthread.php?t=322895
ändern.
Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
Gruß Hajo
Anzeige
AW: Command Button Eingabe Userformdaten
07.05.2021 11:30:33
Fuchss
Verständlich. dann sende ich dir hier nochmal die gesamte Datei :)
und aus dem kleinen Durcheinander nochmal die Fragestellung ;)
Also. In die Useform Verlorene_Angebote sollen Daten eingetragen werden. Dabei sind Artikelnummer und Grund Pflichtfelder.
Wenn Artikelnummer und/oder Grund nicht ausgefüllt wurden, dann soll eine Messagebox erscheinen und die Userform soll für die Korrektur offen bleiben. Dabei sollen die Daten aber nicht in das Worksheet "Datenbank" eingetragen werden!!!
Ist Mindestens Artikelnummer und Grund ausgefüllt, so sollen die Daten in das Worksheet "Datenbank" eingetragen werden, einfach fortlaufend in die nächste freie Zeile.
Hier die Datei:
https://www.herber.de/bbs/user/146054.xlsm
Vielen Dank und LG
Julian
Anzeige
AW: Command Button Eingabe Userformdaten
07.05.2021 11:38:40
Hajo_Zi
Gut mein Vorschlag hat nicht gefallen. Ich schreibe nicht für den Papierkorb. Ich bin dann raus.
Gruß Hajo
AW: Command Button Eingabe Userformdaten
07.05.2021 13:31:22
Fuchss
Entschuldige wenn ich das falsche verstanden habe,
aber dann drück dich bitte klarer aus!
War ja nicht böse gemeint.
LG Julian
Anzeige
;

Forumthreads zu verwandten Themen

Commandbuttons einfärben
Wolfgang

Hallo Excel Experten.
Stehe vor einem Problem bei dem ich nicht mehr weiterkommen.
Ich habe in einer Userform 42 CommandButton, die je nach Programmablauf verschieden eingefärbt werden sollen.
Es will mir aber nicht gelingen, diese einzeln in einer Schleife anzusprechen, den momenta...
15.10.2008 08:56:10
Thread-ID: 1016475
3 Beiträge
Zelleninhalt mit CommandButton in Textbox anzeigen
Markus

Hallo an alle!
Mein Makro kann bisher folgendes:
Per Klick auf 1 von 300 Comandbuttons wird der entsprechende Inhalt aus einer von 300 Zellen in eine Textbox geladen.
"Das funktioniert"
Nun möchte ich , nachdem ich einen Button gedrückt habe und der Inhalt in Textbox angezeigt w...
21.11.2008 11:05:00
Thread-ID: 1026664
2 Beiträge
per Makro CommandButtons mit individuellem Code
Gerry83

Hallo zusammen
Ein externes Programm führt mit unterschiedlichen Parametern 20736 Berechnungen durch, die Ergebnisse werden in jeweils eine *.txt Datei geschrieben. Zusätzlich erhalte ich ein Flag, ob die Berechnung erfolgreich war oder nicht.
Ein Makro soll mir nun 20736 CommandButtons...
23.11.2008 16:29:00
Thread-ID: 1027102
6 Beiträge
Per Makro ein Makro unter CommandButton einfügen
Andi

Hallo liebe Excel Gemeinde,
Ich hoffe Ihr seid alle gut ins neue Jahr gekommen!
Ich benötige eine Lösung für folgendes Problem:
Ich möchte gerne versuchen per makro in einen eben erstellten Commandbutten ein Makro zu schreiben.
Den commandbutten zu erstellen und seine Eigenschaf...
05.01.2009 09:12:15
Thread-ID: 1036897
7 Beiträge
sämtliche Commandbutton ausblenden bei Bedingung
Wolfgang

Hallo Excelianer
Wie kann ich erreichen, daß wenn eine Bedingung nicht erreicht ist, daß beim Aufruf der Userform1 sämtliche darin enthaltenen Commandbuttons ausgeblendet sind.
Gruß
Wolfgang
14.03.2009 18:24:52
Thread-ID: 1060212
4 Beiträge
CommandButton -> Caption in Programm verwenden
Florian

Hallo,
ich habe nach langem mal wieder ein Problem auf dem Tisch liegen.
Ich habe eine Excel-Datei erstellt und 32 CommandButton's angelegt.
Klassisch lege ich jetzt für jeden CommandButton folgenden Private Sub an: Private Sub CommandButton01_Click() Workbooks.Open Filename:=Ar...
24.03.2009 09:55:53
Thread-ID: 1063177
7 Beiträge
Anzeige
CommandButton in UF via Array; nicht aktivierbar
Andreas

Hallo Herber Fans,
Ich habe heute entdeckt, OK, für die Profis unter Euch ist das sicherlich nicht neu, daß man UserForms mit Hilfe von Arrays erstellen kann. Es ist m.E. nach übersichtlicher und geht schneller. Gerade in der Verwendung von CheckBoxes und Optionbuttons.
Nun will ich auc...
03.06.2009 14:50:18
Thread-ID: 1078891
5 Beiträge
Commandbutton hyperverlinkung
Nikolai

Hallo zusammen,
ich bin neu in diesem Forum, drum erstmal "Hallo" an alle.
Ich bin ein ziemlicher VBA Newbie, aber ich möchte über den commandbutton eine verlinkung zu einem anderen Tabellenblatt erstellen. Wie mache ich dies?
Zum Beispiel sitz mein commandbutton in Tabellenblatt 1...
30.07.2009 15:04:31
Thread-ID: 1092552
5 Beiträge
Commandbutton hyperverlinkung
Nikolai

Hallo zusammen,
ich bin neu in diesem Forum, drum erstmal "Hallo" an alle.
Ich bin ein ziemlicher VBA Newbie, aber ich möchte über den commandbutton eine verlinkung zu einem anderen Tabellenblatt erstellen. Wie mache ich dies?
Zum Beispiel sitz mein commandbutton in Tabellenblatt 1...
30.07.2009 15:15:48
Thread-ID: 1092557
3 Beiträge
mehrere CommandButton umbenennen
Dirk

Hallo Excelgemeinde,
ich habe ein Problem, was ich einfach nicht gelöst bekomme.
Ich habe in einem Tabellenblatt 11 CommandButton. Ich brauche einen Code, der die CommandButton 1-10 umbenennt.
Kann mir jemand helfen?
Gruß
Dirk
29.08.2009 15:08:28
Thread-ID: 1099313
5 Beiträge
CommandButton nach Wert eingeben löschen
René

Hallo
Ich habe folgendes Problem. In einer Zelle D6 will ich einen beliebigen Zahlenwert eingeben sollte einen bestimmten CommandButton löschen. Leider funktioniert es nicht, wenn ich in der Zelle einen Wert z.b. 1234 eingebe.
Folgenden Code habe ich unter Arbeitsmappe hinterlegt.
P...
08.10.2009 13:18:31
Thread-ID: 1108177
8 Beiträge
CommandButton bedingt einfärben?
Frank

Hallo Ihr treuen Helfer!!!
Mein Wunsch ist es, dass wenn in einer UF, welche 48 CommandButton aufweist, jener Button die Farbe rot bekommt, wenn der Name des Button gleich dem Zellinhalt der Zelle AB54 im Blatt "Fixkosten" ist.
Reicht das schon um eine hilfreiche Antwort zu bekommen, an...
09.02.2010 21:51:30
Thread-ID: 1137180
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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