Office: (Office 2010) Textboxeingabe mit dem Wert in der dazugehörigen Zelle addieren

Helfe beim Thema Textboxeingabe mit dem Wert in der dazugehörigen Zelle addieren in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Guten Abend, ich bin VBA Neuling und habe mir durch goggeln das ein oder andere Skript zusammengestellt. Jetzt komme ich aber an meine Grenzen. Ich... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von GerKi, 23. März 2018.

  1. GerKi Neuer User

    Textboxeingabe mit dem Wert in der dazugehörigen Zelle addieren


    Guten Abend,
    ich bin VBA Neuling und habe mir durch goggeln das ein oder andere Skript zusammengestellt. Jetzt komme ich aber an meine Grenzen.
    Ich habe in einer Userform eine Listbox, die aus der Tabell3 Ihre Daten erhält. In TextBox 1 steht Text, in den TextBoxen 2-6 stehen Zahlen.
    Die Eingabe und Speicherung der Zahlen in den Textboxen für den markierten ListBox - Eintrag funktioniert reibungslos. Ich möchte nun erreichen, dass der vorhandene Wert in der dazugehörigen Zelle der Tabelle, mit dem neuen Wert aus der TextBox 3-6 addiert wird. Kann mir bitte Jemand bei der Umsetzung helfen???
    Folgender Code führt durch Aufruf des Button1 zur Speicherung der Daten:
    Private Sub EINTRAG_SPEICHERN()
    Dim lZeile As Long
    Dim i As Integer

    'Wenn kein Datensatz in der ListBox markiert wurde, wird die Routine beendet
    If ListBox2.ListIndex = -1 Then Exit Sub

    'Zum Speichern benötigen wir die Zeilennummer des ausgewählten Datensatzes
    lZeile = ListBox2.List(ListBox2.ListIndex, 0)

    For i = 1 To iCONST_ANZAHL_EINGABEFELDER
    Select Case (i)
    Case 1: Tabelle3.Cells(lZeile, i) = Me.Controls("TextBox" & i)
    Case 2 To 4: Tabelle3.Cells(lZeile, i) = CLng(Me.Controls("TextBox" & i))
    Case 5 To 6: Tabelle3.Cells(lZeile, i) = CDbl(Format(Me.Controls("TextBox" & i), "#,##0.0"))

    End Select

    Next i

    'Der Benutzer könnte die angezeigten Werte in der Liste geändert haben,
    'daher aktualisieren wir den ausgewählten Eintrag entsprechend.
    ListBox2.List(ListBox2.ListIndex, 1) = TextBox1
    ListBox2.List(ListBox2.ListIndex, 2) = TextBox2
    ListBox2.List(ListBox2.ListIndex, 3) = TextBox3
    ListBox2.List(ListBox2.ListIndex, 4) = TextBox4
    ListBox2.List(ListBox2.ListIndex, 5) = TextBox5
    ListBox2.List(ListBox2.ListIndex, 6) = TextBox6

    'Und dem Benutzer direkt noch den Cursor in das erste Eingabefeld stellen und alles vorselektieren,
    'so kann der Benutzer direkt loslegen mit der Dateneingabe.
    TextBox1.SetFocus
    TextBox1.SelStart = 0
    TextBox1.SelLength = Len(TextBox1)

    End Sub
     
Thema:

Textboxeingabe mit dem Wert in der dazugehörigen Zelle addieren

Die Seite wird geladen...
  1. Textboxeingabe mit dem Wert in der dazugehörigen Zelle addieren - Similar Threads - Textboxeingabe Wert dazugehörigen

  2. Werte per VBA automatisch übertragen und fortlaufend speichern

    in Microsoft Excel Hilfe
    Werte per VBA automatisch übertragen und fortlaufend speichern: Moin, ich habe da mal eine bitte: wie kann ich diesen Code dazu bringen von einer bestimmten Datei automatische Werte in eine andere Datei kopiert? Ich kann zwar die Werte in derselben Tabelle...
  3. Häufigste Wert/Text aus einer Spalte ermitteln ohne leere oder 0

    in Microsoft Excel Hilfe
    Häufigste Wert/Text aus einer Spalte ermitteln ohne leere oder 0: Hallo zusammen, versuche verzweifelt ein Lösung zu finden, wie ich die 0 ignorieren kann bei der Auswertung. Ich möchte die häufigste Wert/Text einer Spalte angezeigt bekommen. Problem sind die 0...
  4. Wert Fehler

    in Microsoft Excel Hilfe
    Wert Fehler: Hallo zusammen, sicher gibt es schon diverse Beiträge, leider habe ich keinen gefunden, der mein Problem los. Ich habe mal einen Auszug meiner Tabelle angehängt. Leider kriege ich in einigen...
  5. Werte um zufälligen Faktor verändern

    in Microsoft Excel Hilfe
    Werte um zufälligen Faktor verändern: Ich muss mehrere Prozent- und absolute Werte z.B. in EUR in einer Spalte um einen zufälligen Faktor von +/- 5 % erhöhen/reduzieren. Wie mache ich das? Beispiel: 5,24 EUR - 0,51 % 1,57 %...
  6. Standard-Wert ändern bei optionalen Parametern in LAMBDA

    in Microsoft Excel Hilfe
    Standard-Wert ändern bei optionalen Parametern in LAMBDA: Hallo Community, die Überschrift sagt eigentlich alles. Ich suche die richtige Syntax, um den Standard-Wert eines optionalen Parameters in einer Lambda-Funktion anzupassen. [optWERT]=1;...
  7. In Zeile soll ein Wert abhängig von einem andere Wert erscheinen

    in Microsoft Excel Hilfe
    In Zeile soll ein Wert abhängig von einem andere Wert erscheinen: Folgendes Problem: Ich habe in einem Drop Down Menü Nummern angegeben. Jetzt möchte ich, dass wenn ich eine Nummer aus dem Dropdown Menü auswähle in einer andere Zeile automatisch ein Wert...
  8. Formel für gleiche Werte suchen und bei übereinstimmung einen andern Wert schreiben

    in Microsoft Excel Hilfe
    Formel für gleiche Werte suchen und bei übereinstimmung einen andern Wert schreiben: Hallo, sorry für den Thread Name aber wusste nicht wie ich es beschreiben soll. Ich suche eine Formel wo nach 2 gleichen Werten in Zelle A und C gesucht wird und bei Übereinstimmung der Wert der...
Schlagworte:
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden