Thema Datum  Von Nutzer Rating
Antwort
07.01.2020 17:36:40 Dominik
NotSolved
07.01.2020 18:22:41 Werner
NotSolved
08.01.2020 06:04:48 RPP63
NotSolved
08.01.2020 12:39:03 Gast3333
NotSolved
08.01.2020 12:59:19 Gast22432
NotSolved
08.01.2020 18:45:03 Mase
NotSolved
08.01.2020 20:16:37 Gast3333
NotSolved
08.01.2020 21:03:40 Mase
NotSolved
08.01.2020 21:53:51 Gast3333
NotSolved
09.02.2020 19:07:06 Mase
NotSolved
Rot Zu einem Wort eine Zahl zuorndnen
 08.01.2020 12:13:24 tscharl
NotSolved

Ansicht des Beitrags:
Von:
tscharl		 Datum:
08.01.2020 12:13:24		 Views:
622		 Rating:
     
Antwort:
  Ja
Thema:
Zu einem Wort eine Zahl zuorndnen

Ein Versuch:

Option Explicit
'
' Dieses Modul setzt voraus:
' - Eine Combobox mit Namen "Combobox"
'   * mit 3 Spalten wie das Blatt mit # Lebensmittel # Kcal/g # Eiweiß/g #
'   * Rowsource in Spalten A2:C(beliebiglang)
'   * und ColumnHeads = True
' - Eine Textbox namens "txtGramm", in der die gewünschten Gramm eingegeben werden können.
' - Zwei Textboxen "txtKcal" und "txtEiweiß", in denen das Ergebnis dargestellt wird.
'
' Bei Änderungen in der ComboBox bzw. der txtGramm wird die Berechnung ausgeführt.
'
' Die Fehlerbehandlung reagiert auf eine Löschung der Zahl in txtGramm und setz dort
' eine direkt überschreibbare "0" ein.
'
' Buttons sind nicht implementiert.

Private Sub ComboBox_Change()
    Call Berechnen
End Sub

Private Sub txtGramm_Change()
    Call Berechnen
End Sub

Private Sub Berechnen()
    Dim lngIndex As Long
    Dim txtLebensmittel As String
    Dim lngLetzteZeile As Long
    ' Letzte Zeile bestimmen.
    lngLetzteZeile = Cells(Rows.Count, 1).End(xlUp).Row
    ' ComboBox auslesen.
    txtLebensmittel = Cells(ComboBox.ListIndex + 2, 1)
    On Error GoTo ZahlReset
    Me.txtEiweiß = Me.txtGramm.Value * Application.VLookup(txtLebensmittel, Range("A2:C" & lngLetzteZeile), 3, False)
    Me.txtKcal = Me.txtGramm.Value * Application.VLookup(txtLebensmittel, Range("A2:C" & lngLetzteZeile), 2, False)
    On Error GoTo 0
    Exit Sub
ZahlReset:
    Me.txtGramm.Value = 0
    Me.txtGramm.SelStart = 0
    Me.txtGramm.SelLength = Len(Me.txtGramm)
    Resume
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
07.01.2020 17:36:40 Dominik
NotSolved
07.01.2020 18:22:41 Werner
NotSolved
08.01.2020 06:04:48 RPP63
NotSolved
08.01.2020 12:39:03 Gast3333
NotSolved
08.01.2020 12:59:19 Gast22432
NotSolved
08.01.2020 18:45:03 Mase
NotSolved
08.01.2020 20:16:37 Gast3333
NotSolved
08.01.2020 21:03:40 Mase
NotSolved
08.01.2020 21:53:51 Gast3333
NotSolved
09.02.2020 19:07:06 Mase
NotSolved
Rot Zu einem Wort eine Zahl zuorndnen
 08.01.2020 12:13:24 tscharl
NotSolved