Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1336to1340
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

    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

    Anzeige
    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

    Links zu Excel-Dialogen

    CommandButton TextBox

    Beliebteste Forumthreads (12 Monate)

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

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige