Exel VBA Berechnung im Userform/Textfeld?

Hallo

Heute habe ich mal wieder Zeit mich mit Excel / VBA zu beschäftigen. Und komme leider nicht wirklich weiter

Kurze Erläuterung:

Ich kann per DropDawn Liste in einem Userform, Daten aus einer Tabelle integrieren. Beispiel: Nahrungsmittel1 auf 100g mit jeweils 10g Eiweiß, 18g Kohlenhydrate usw. werden in Userform/Textfelder eingetragen

Jetzt möchte ich, wenn ich im Userform die Menge z.B. auf 200g ändere, dass die Zahlenwerte für Kohlenhydrate, Eiweiß etc. automatisch aktualisiert werden.

Code zuzeit

Private Sub txtMenge1_Change() 
    If CDbl(txtMenge1) <> 100 Then
               txtKohlenhydrate1.Value = CDbl(txtKohlenhydrate1) * CDbl(txtMenge1) / 100
        End If
    End Sub

Problem ist jetzt folgendes

Er aktualisiert zwar z.B. im Textfeld Kohlenhydrate was sobald eine Eingabe erfolgt, rechnet aber nicht mit dem Ursprungswert von zb. 10g oder 18g. Sobald ich anfange die Zahl in Menge auf 200g zu ändern passiert jetzt folgendes. Wenn ich jetzt anfange die Zahl auf 2 ändere, stimmt das Ergebnis noch. Möchte ich aber jetzt eine 0 hinzufügen, geht er nicht mehr von 10g bzw 18g aus, sondern von denm Wert der bei einer 2 berechnet wurde. Somit stimmt das Ergebnis nicht mehr. Bei 2 kommen bei 10g ja erst mal 0.2g aus, füge jetzt jetzt aber ne 0 hinzu, sollen eigentlich 2 rauskommen. Es kommt dann aber 0,04 raus.

Da ich in VBA noch Neuling bin,möchte ich bitten mir das verständlich zu erklären. Danke im Vorraus

2 Antworten

PWolff

13.04.2017, 16:10

 txtKohlenhydrate1.Value = CDbl(txtKohlenhydrate1) * CDbl(txtMenge1) / 100

tut folgendes:

Der Inhalt von txtKohlenhydrate1 wird ausgewertet

Der Inhalt von txtMenge1 wird ausgewertet

Hieraus wird das Produkt gebildet und dies durch 100 geteilt

Das Ergebnis wird wieder in txtKohlenhydrate1 geschrieben

Wenn dieselbe Funktion noch mal ausgeführt wird, wird der jetzt aktuelle Wert von txtKohlenhydrate1 genommen, nicht der originale Wert

Du könntest auf das LostFocus- Ereignis reagieren, aber dann
sind nachträgliche Korrekturen in txtKohlenhydrate1 auch nicht mehr so
ohne weiteres möglich.

Aber das Problem dürfte am einfachsten und besten zu umgehen sein, indem du ein eigenes Textfeld für txtKohlenhydratePro100g einführst und dann

 txtKohlenhydrate1.Value = CDbl(txtKohlenhydratePro100g) * CDbl(txtMenge1) / 100

Das hat außerdem den Vorteil, dass du auch sofort auf Änderungen in txtKohlenhydratePro100g reagieren kannst.

Ahcas

Beitragsersteller

19.04.2017, 16:03

Hallo

Erst mal Danke für deine Antwort. Mein Problem ist, wenn ich das so machen würde, hätte ich auf meinem UserForm später das doppelte an Textfeldern.

Ich erkläre mal kurz was ich vor habe. Ich bin dabei, mir ein Art Ernährungsplan zu erstellen.

Unter anderem habe ich erstens, eine weitere Eingabemaske (Userform) mit der ich Lebenmittel mit Angaben zu den Nährwerten in eine Tabelle (Lebensmitteltabelle) eintragen kann.

Um das Userform, um das es geht soll jetzt folgendes passieren.

Als erstes kann man die Lebensmittel aus Lebensmitteltabelle per DropDawn auswählen und es werden dann automatisch die Nährwerte mit ins Userform übernommen.

Insgesamt gibt es 6 Reihen die wie folgt aussehen

Lebensmittel1 - Kategorie1 - Menge1 - Kohlenhydrate1 - Fett1 - Eiweiß1 - Ballastoffe1 - Kalorien1

Lebensmittel2 - Kategorie2 - Menge2 - Kohlenhydrate2 - Fett2 - Eiweiß2 - Ballastoffe2 - Kalorien2

usw. bis 6

Dann kommt eine weitere Reihe wo die gesamten Nähewerte zusammen gerechnet werden sollen.

GESAMT - Menge7 - Kohlenhydrate7 - Fett7 - Eiweiß7 - Ballastoffe7 - Kalorien7

Und jetzt kommt noch eine Reihe in der man jetzt aus den 6 ausgewählten Lebenmittel ein Rezept erstellen kann.Es soll ein Rezeptname in ein Textfeld geschrieben werden und das dann auf 100g automatisch berechnet werden.

Rezeptname - Kategorie8 - Menge8 - Kohlenhydrate8 - Fett8 - Eiweiß8 - Ballastoffe8 - Kalorien8

Danach soll durch klicken eines Buttons, der gesamte Inhalt vom Userform in eine Tabelle (Rezepttabelle) einfügt werden.(Damit man auch nach einem halben Jahr noch nachvollziehen kann, woraus das Rezept ursprünglich bestand).Und nur das Rezept (letzte Reihe des Userform) mit Namen und Nährwerten soll dann in die Lebensmitteltabelle einfügt werden.

Die Lebenmittel soll man später in einer weiteren Tabelle als DropDawn auswählen können.

Und jetzt glaube ich sieht man auch wo rauf das hinauslaufen würde. Das Userform wurde dann doppelt so groß werden und auch unübersichtlicher.Deswegen wäre es schön, sobald man die Menge ändert, dass automatisch die Daten geändert werden, aber von den Ursprungswerten aus gesehen. Bin mir nur nicht sicher ob dieses in dieser Form mit Excel überhaupt möglich ist.

Danke im Vorraus und ich hoffe man versteht jetzt, worauf ich hinaus möchte.

PWolff

19.04.2017, 17:56

@Ahcas

Dafür wäre eine Verweistabelle sinnvoller. Ich dachte, es wäre eine Übung zum Thema UserForms und DropDown-Listen.

Wenn du keine Verweistabelle haben willst, kannst du die Werte für 100 g je Lebensmittel auch in eine eigene Datei auslagern, am einfachsten Excel - dann kannst du mit Excel-Funktionen darauf zugreifen -, ansonsten eine Textdatei o. ä., die du mit der UserForm einlesen kannst.

Natürlich ist auch das programmgesteuerte Ändern eines vorher eingetragenen Wertes möglich - am besten, wenn das Eingabefeld verlassen wird, also im LostFocus- oder (besser) Validate-Ereignis -, aber wenn es sich um Stammdaten handelt, widerspricht das meiner Auffassung von Benutzerfreundlichkeit so sehr, dass ich es einfach nicht empfehlen kann.

Iamiam

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

13.04.2017, 18:06

sowas macht man mit einer Verweistabelle, nicht mit Makros.

Such Dir zum Lernen ein besseres Beispiel, wo Makros nötig sind (ich gebe zu, sinnvolle einfache sind durch den gewachsenen Umfang der Fähigkeiten von xl stark geschrumpft, meine frühen Makros sind von xl größtenteils überholt worden)

Ähnliche Beiträge

Ich möchte eine Userform mit einem VBA Code ausdrucken, wer weis wie es geht?

Private Sub btn3_Click() frmMengenrechner_Obi.PrintForm End Sub

Der Befehl druckt die Userform aus, aber leider nur einen kleinen Teil. Ich möchte einen Code, der mir ohne viel aufwand für den Anwender, die UserForm ausdruckt. Vielen Dank schon mal!!

...zum Beitrag

VBA userform textbox inhalt ändern?

Ich bin am verzweifeln. seit längerer zeit verzweifle ich an einem absoluten basic.

ich habe eine userform angelegt. auf dieser eine textbox gezeichnet.

in einem anderen modul schreibe ich, dass der wert/Value geändert werden soll. aber es passiert nichts.....

in modul3:

sub test()

UserForm1.Show

UserForm1.TextBox1.Value= "test"

end sub

der inhalt bleibt gleich und wird nicht auf "test" geändert...

...zum Beitrag

Excel VBA Userform: Textbox abhängig von Combobox machen?

Hallo,ich bin aktuell an einem Excel Projekt, in dem ich per VBA eine Userform erstellen möchte. Nun komme ich an folgender Prozedur nicht weiter.Ausgangssituation: Ich habe eine Userform mit Combobox (Combobox1) und Textbox (Textbox1) erstellt. Ich möchte nun, dass sobald in der Combobox ein bestimmter Wert ausgewählt wird, in der Textbox ebenso ein bestimmter Wert erscheint, der nur auf den einen Wert der Combobox passt. Die Combobox funktioniert einwandfrei, die Textbox macht nur nicht was sie soll. Bitte um Hilfe.Hier mein aktueller Code:

Private Sub UserForm_Initialize()

Me.ComboBox1.AddItem Range("A2")

Me.ComboBox1.AddItem Range("A3")

Me.ComboBox1.AddItem Range("A4")

Me.ComboBox1.AddItem Range("A5")

Me.ComboBox1.AddItem Range("A6")

If ComboBox1.Value = Range("A2") Then

TextBox1.Text = "5"

End If

End Sub

...zum Beitrag

Wie kann man in Excel-VBA mehrere If-bedingungen, die die selbse Reaktion auslösen sollen, zusammenfassen?

Ich habe in VBA eine Userform erstellt. Es handelt sich hierbei um eine Eingabemaske, die mehrere Textboxen enthält, die mit Werten ausgefüllt werden müssen. Das funktioniert soweit recht gut, aber ich möchte noch folgende Funktionalität ergänzen. Un zwar: Wird eines der Felder ausgelassen, soll die MsgBox erscheinen mit dem Hinweis, dass alle Felder ausgewählt werden müssen. Das ist bei einem Feld kein Problem:

If TextBox1.Value = "" Then MsgBox "Alle Felder müssen ausgefüllt werden" Exit Sub End If

Ich suche jetzt aber nach der Möglichkeit, wie ich die If-Then Struktur so umändern kann, dass die MsgBox erscheint, sobald eine oder mehrere der 10 Textboxen der Userform leergelassen werden.

...zum Beitrag

VBA label caption ändern?

Ich bin am verzweifeln. seit längerer zeit verzweifle ich an einem absoluten basic.

ich habe eine userform angelegt. auf dieser eine textbox gezeichnet.

in einem anderen modul schreibe ich, dass der caption geändert werden soll. aber es passiert nichts.....

in modul3:

sub test()

UserForm1.Show

UserForm1.Label1.Caption = ""

end sub

der caption bleibt...

...zum Beitrag

Excel VBA UserForm schließt sich unabsichtlich?

Hallo,

ich habe in einer UserForm eine Button

Private Sub CommandButton1_Click()


Tabelle2.Range("A1") = "1"


End Sub

Wenn ich diesen Button drücke, schließt sich auch die UserForm.
Schreibe ich etwas unter:

 Tabelle2.Range("A1") = "1"

wird dieses nicht mehr ausgeführt.
Warum schließt sich die UserForm?

Zu aller Verwirrung schließt sich die UF nicht immer (wäre ja auch zu einfach...) wenn ich den Wert in A1 lösche und dann die UF öffne, den Button drücke, schließt sich die UserForm "meistens" nicht, trägt aber die "1" ein.

Wenn ich die UF wieder öffne und den Button drücke, während die "1" schon in A1 steht, schließt sich die UF jedesmal...

Öffnen tu ich die UF ebenfalls mit einem Button von einem Tabellenblatt

Private Sub CommandButton1_Click()
  UserForm1.Show
End Sub

Mein eigentliches Ziel:

Ich wollte lediglich die Spalte A in Tabelle2 clearen um dann aus einer ListBox die Werte in Spalte A einzutragen...nur schloss sich die UF jedesmal und teilweise wurde nicht mal Spalte A leer gemacht.

Wieso schließt sich die UserForm und wie kann ich es beheben?

...zum Beitrag

VBA Währungsrechner?

Ich dachte nicht, dass mir VBA Probleme machen würde, doch anscheinend doch. Ich programmiere seit gut drei Jahren und das, was am einfachsten ist, bringt mich gerade zum Verzweifeln. Es liegt aber auch daran, dass ich mich in VBA nicht gut auskenne.

Hier mein Problem:

Ich habe eine Userform mit zwei Textboxen. In die Textbox1 schreibe ich einen Wert hinein. Dieser Wert multipliziert sich dann mit dem Wert 61,7 aus der Spalte G2. Das Resultat erscheint anschließend in der Textbox2 mit der Währung CHF hintendran.

Das ist mein Code:

Private Sub CommandButton1_Click()
  Unload Me
End Sub

Private Sub TextBox1_Change()
  On Error Resume Next
  TextBox2.Value = TextBox1.Value * Tabelle1.Range("g2").Value
End Sub

Private Sub TextBox2_Change()
  On Error Resume Next
  If TextBox2 <> "" Then
    TextBox2 = Format(TextBox2, "##,##0.00 Fr.")
End Sub

Private Sub UserForm_Click()
End Sub

Nach meinen Erfahrungen her stimmt der Code. Es scheitert jedoch beim multiplizieren, denn für mein Programm ist 1 x 64,7 = 22’463.00 CHF.

...zum Beitrag

VBA für Excel Verknüpfungen aktualisieren?

Hallo alle zusammen,

ich bin am verzweifeln.. :-(

Ich möchte über VBA Verknüpfungen in einem aktiven Tabellenblatt ändern. Ich finde aber immer nur Antworten wie man Verknüpfungen der gesamten Arbeitsmappe ändert.

Die Verknüpfungen beziehen sich auf ein anderes (nicht aktives) Tabellenblatt in der selben Arbeitsmappe.

In der Zelle steht zum Beispiel =WENN(ISTFEHLER('04.2016'!$C8);"";'04.2016'!$C8) und VBA soll mir aus '04.2016' nun '06.2016' machen.

Bei meiner VBA Idee kommt immer der Fehler 438 (Objekt unterstützt diese Eigenschaft oder Methode nicht) und kennzeichnet Vardat = ActiveSheet.LinkSources(Type:=xlLinkTypeExcelLinks) an

Hier meine VBA Idee. Wer kann mir helfen? Dank Euch im Voraus.... :-)

Sub Verknüpfungenaktualisieren()

Dim Vardat As Variant Dim strNeuerLink As String

strNeuerLink = "'06.2016'" strAlterLink = "'04.2016'"

Vardat = ActiveSheet.LinkSources(Type:=xlLinkTypeExcelLinks)

If IsEmpty(Vardat) Then

MsgBox "Keine Verknüpfungen enthalten!"

Exit Sub

End If

For intz = 1 To UBound(Vardat)

If Vardat(intz) = ActiveSheet.Path & "(" & strAlterLink Then ActiveSheet.ChangeLink ActiveSheet.Path & "(" & strAlterLink, _ ActiveSheet.Path & "(" & strNeuerLink, xlExcelLinks

Exit For

End If

Next intz

End Sub

...zum Beitrag

UserForm durch CommandButton schließen

Hallo zusammen,

ich habe eine UserForm mit verschiedenen OptionButtos. Durch klicken auf einen CommandButton soll zum einen je nach ausgewähltem OptionButton eine neue UserForm geöffnet werden, dass ist kein Problem, und zum anderen die aktuelle UserForm geschloßen werden. Wie bekomme ich das hin?

Hier der Code, den ich bisher habe:

Private Sub CommandButton1_Click()

If OptionButton1 = True Then
    UserForm2.Show
ElseIf OptionButton2 = True Then
    UserForm3.Show
ElseIf OptionButton3 = True Then
    UserForm4.Show
ElseIf OptionButton4 = True Then
    UserForm5.Show
ElseIf OptionButton5 = True Then
    UserForm6.Show
ElseIf OptionButton6 = True Then
    UserForm7.Show
ElseIf OptionButton7 = True Then
    UserForm8.Show
ElseIf OptionButton8 = True Then
    UserForm9.Show
ElseIf OptionButton9 = True Then
    UserForm10.Show
ElseIf OptionButton10 = True Then
    UserForm11.Show
ElseIf OptionButton11 = True Then
    UserForm12.Show
End If

End Sub

...zum Beitrag

VBA userform Passwort Abfrage?

Hallo, ich möchte in excel eine Passwortsbfrage machen mit userform.

In Tabelle 1 stehen in Spalte A2 bis A30 Mitarbeiter usernamen.

in Spalte B2 bis B30 die dazugehörigen Passwörter.

userform mit Textfeldern wurde bereits erstellt.

wie kann ich jetzt die Zellen vergleichen wenn ich auf Einloggen gehen z.b A2 und B2 und wenn übereinstimmend, dann userform schließen ansonsten msg Box falsch

...zum Beitrag

VBA | UserForm öffnen, sobald Excel-Zelle (die eine Formel enthält) = 2?

Hallo,

Excel-VBA....

ich benötige Hilfe beim Thema UserForm öffnen und ständige Abfrage.

Ich habe eine Zelle mit einer Formel, der Wert, welcher raus kommt soll verglichen werden und bei z.b höher als 2 soll eine User Form geöffnet werden.

Kann mir da wer helfen? Ich bin komplett auf dem Holzweg..

Der Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$T$6" Then
If UCase(Target.Value) > 2 Then NewUserForm.Show
End If

End Sub

Devo

...zum Beitrag

Excel VBA: Wie mach ich aus einem Textfeld ein Suchfeld?

Hallo zusammen,

ich versuche gerade eine Datenbank in Excel anzulegen.

Jetzt möchte ich, dass egal in welchem Textfeld ich einen Suchbegriff eingebe, die entsprechende Spalte in Excel durchsucht wird und mir die Ergebnisse in einer Listbox angezeigt werden. Idealerweise soll man dann auf die Zeile in der Listbox klicken können und die Textfelder in meiner Userform Maske werden automatisch ausgefüllt. Ich bin ein totaler Neuling in Excel VBA und freue mich wenn mir jemand weiterhelfen kann!

Liebe Grüße

...zum Beitrag

Excel VBA Druckvorschau?

Hallo, wie kann ich eine benutzerdefinierte Seite (Tabellenblatt) über einen Button in der Userform in der Druckvorschau anzeigen lassen?

Einen Weg habe ich bereits gefunden, Problem ist nur, dass die Userform selbst auf der Druckvorschau erscheint und ich die Maske (Userform) nicht beenden kann.

Der weg ist folgender:

Private Sub btndruckvorschau_Click()

Worksheets("Beispiel").PrintPreview

End sub

...zum Beitrag

Beim ändern einer bestimmten Zelle Makro erneut ausführen?

Hallo,

ich habe folgendes Anliegen: Ich möchte in Excel mit VBA etwas machen. Hier einmal der Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("j10")) Is Nothing Then
    Select Case Range("j10").Value
        Case "manuell"
            Range("s7:u7").ClearContents
        Case "Anfang & Ende"
            Range("s7").Value = Worksheets("PEPStauchung").Range("d2").Value
    End Select
End If
End Sub

Ich möchte, dass, wenn ich in Zelle S6 einen Wert ändere, das ganze erneut durchgeführt wird.

Wie binde ich das ein? Vielen Dank!!!

Syrena

...zum Beitrag

Was möchtest Du wissen?

Deinen Beitrag erstellen