Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1336to1340
1336to1340
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

UF Textbox rechnen

Forumthread: UF Textbox rechnen

UF Textbox rechnen
21.11.2013 20:02:19
Heinz

Hallo Leute im Forum
Ich Habe eine UserForm in TextBox1 wird der Wert von B2 eingelesen.
Nun möchte ich einen Wert in der UF vorgeben zum multiplizieren,zB x1,3
Der Wert sollte in der TextBox2 angezeigt werden, und mit Private Sub CommandButton2_Click() in B2 zurückgeschrieben werden.
B2 ist als Zahl mit 2 Kommastellen formatiert.
Könnte mir bitte jemand weiterhelfen.
Danke Heinz
Private Sub CommandButton1_Click()
Sheets("Vorlage").Range("B2") = TextBox1

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gelöst
21.11.2013 20:38:29
Heinz
Hallo Leute
Habe es auf diesen Wege lösen können.
Gruß Heinz
  • 
Private Sub UserForm_Activate()
Me.TextBox1 = Sheets("Vorlage").Range("E14")
End Sub


    Private Sub CommandButton1_Click()
Sheets("Vorlage").Range("E14") = TextBox1 * 0.03937
End Sub


  • Option Explicit
    Sub rechne()
    Dim i As Integer, arr As Variant
    Dim x As Variant
    ReDim arr(1 To 1)
    For i = 1 To 1
    x = UserForm1.Controls("TextBox" & i).Value
    If IsNumeric(x) Then
    arr(i) = x * 0
    End If
    Next i
    End Sub

    • Anzeige
    AW: UF Textbox rechnen
    21.11.2013 20:38:37
    Matthias
    Hallo
    Als Beispiel in Textbox 3 steht 1,3 als Multiplikator
    TextBox2 = CDbl(TextBox3) * TextBox1
    Sheets("Vorlage").Range("B2") = TextBox2
    also
    Option Explicit
Private Sub CommandButton1_Click()
TextBox2 = CDbl(TextBox3) * TextBox1
Sheets("Vorlage").Range("B2") = TextBox2
End Sub
Private Sub UserForm_Activate()
TextBox1 = Sheets("Vorlage").Range("A2")
End Sub
    Userbild
    Gruß Matthias

    Anzeige
    AW: UF Textbox rechnen
    21.11.2013 20:40:16
    Heinz
    Hallo Matthias
    Deine Lösung ist natürlich wieder einmal unschlagbar.
    Recht herzlichen Dank
    Gruß Heinz

    Hinweis ...
    21.11.2013 21:57:35
    Matthias
    Hallo Heinz
    Du musst natürlich noch dafür sorgen das nur Zahlen in die Textbox-Objekte eingegeben werden.
    Sonst läufts mal auf einen VBA-Fehler!
    Das hatte ich aus Zeitmangel vorhin vernachlässigt.
    Ebenso würde ich eine Gültigkeitsregel für die Zellen in der Tabelle festlegen.
    Gruß Matthias
    Anzeige
    ;

    Beliebteste Forumthreads (12 Monate)

    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
    Anzeige
    Anzeige
    Entdecke mehr
    Finde genau, was du suchst

    Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

    Suche nach den besten Antworten
    Unsere beliebtesten Threads

    Entdecke unsere meistgeklickten Beiträge in der Google Suche

    Top 100 Threads jetzt ansehen
    Anzeige