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...

2 Antworten

Flachsenker

22.05.2019, 22:39

UserForm1.TextBox1.Text= "test"

Liest du auch deine Antworten?

https://www.gutefrage.net/frage/vba-label-caption-aendern

wenn es nicht ändert, entweder umbenannt oder du hast keinen Zugriff auf die Textbox

jumbo125

Beitragsersteller

22.05.2019, 22:45

UserForm1.Show

UserForm1.TextBox1.text = "test"

erzeugt nichts

Flachsenker

22.05.2019, 22:48

@jumbo125

kannst du deine datei evtl. wo hochladen?

jumbo125

Beitragsersteller

22.05.2019, 22:51

@Flachsenker

wo hochladen?

Flachsenker

22.05.2019, 22:52

@jumbo125

z.B. https://www.file-upload.net/

jumbo125

Beitragsersteller

22.05.2019, 22:54

@Flachsenker

https://www.file-upload.net/download-13611855/test.xlsm.html

jumbo125

Beitragsersteller

22.05.2019, 22:58

@jumbo125

danke. verzeihung, sämtlichen code aus den tabellenblätter kannst du löschen

Flachsenker

22.05.2019, 23:02

@jumbo125

also bei mir schreibt er wenn ich drucken drücke text rein..^^

jumbo125

Beitragsersteller

22.05.2019, 23:03

@Flachsenker

bei mir nicht...

jumbo125

Beitragsersteller

22.05.2019, 22:44

hab ich nicht. geht trotzdem nicht

LtLTSmash

Nutzer, der sehr aktiv auf gutefrage ist

im Thema Microsoft Excel

22.05.2019, 23:07

Das Problem ist, das der Code an der Stelle

UserForm1.Show

anhalt bis die Userform wieder geschlossen ist.

Probier es mal mit

UserForm1.Show vbmodeless

jumbo125

Beitragsersteller

22.05.2019, 23:13

danke

Ähnliche Beiträge

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: 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

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

UserForm Textboxen mit Werten aus Excel Datei füllen?

Ich habe eine Excel Datei, die mittels Makro mit Werten befüllt wird.

Dasselbe Makro soll nun eine bestimmte Spalte der Datei durchlaufen und dann mittels Schleife alle TextBoxen der UserForm mit diesen Werten füllen.

Mein Versuch dazu:

  Dim i As Byte
  Dim currentName As String

For i = 1 To 10

    currentName = sheet.Cells(i, "H").Value
    

    UserForm1.Controls("TextBox" & CStr(i)).Value = currentName

Next

Funktioniert leider nicht. Muss ich bei der Initialisierung der UserForm oder der TextBoxen noch was beachten?

Fehlermeldung: Laufzeitfehler 91: Objektvariable oder With-Blockvariable nicht festgelegt.

Folgende Zeile wird markiert:

UserForm1.Controls("TextBox" & CStr(i)).Value = currentName

...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

Excel VBA: UserForm TextBox Inhalt auch untereinander möglich?

Liebe Community,

kann man unter den Einstellungen (habe es bisher nicht gefunden), die TextBoxen auch so gestalten, dass der Anwender den Inhalt (wenn es was reinschreibt) auch untereinander angezeigt bekommt?

Bisher läuft der Text über die Spaltenbreite waagerecht weiter, statt untereinander angezeigt zu werden.

Vielen Dank im Voraus!

...zum Beitrag

Wie kann man den Inhalt aus einer TextBox einer Variable zuweisen? ( in VBA)?

Hallo,

ich habe mal wieder eine Frage zur VBA Programmierung in Excel. Ich möchte, dass der der Benutzer in einer Userform Angaben in verschiedenen TextBoxen eintragen kann, und die Einträge sollen je einer Variable zugewiesen werden. Die Variablen habe ich in einem benutzerdefinierten Datentyp erstellt (Deklaration des Datentyps in der Arbeitsmappe). Durch einen Klick auf den "start" button in der Userform sollen die Daten eingelesen werden. Es entsteht jedoch ein Laufzeitfehler 424 "Objekt erforderlich". Ich vermute, dass ich die TextBox falsch angesprochen habe. Anbei ein paar Bilder um es zu verdeutlichen. Ich hoffe auf rasche Hilfe, danke im Voraus.

Mit freundlichen Grüßen, Patrick.

...zum Beitrag

Sind das die richtigen Befehle um Textfelder in Excel zu programmieren?

1. entwicklertools einfügen

2. visual basic öffnen

3. einfügen -> Userform

4. Rahmen einfügen-> Name auf „Caption“ ändern (Darin Kontrollkästen einfügen und beschriften)

5. Nächster Rahmen einfügen-> Name auf „Caption“ ändern

6. Drehfeld einfügen -> Daneben Textfeld einfügen

7. Nächster Rahmen einfügen und beschriften -> Optionsfelder einfügen und beschriften

8. Nächster Rahmen einfügen und beschriften -> Textfeld und nebendran Beschriftungsfeld einfügen

9. 2x Befehlsschaltflächen einfügen (Übernehmen / Abbrechen)

10. Simulieren

11. Userform1 Überschrift ändern -> Caption -> Name eingeben

12. Abbrechen Kästchen programmieren -> Auf Abbrechen klicken -> Unload UserForm1 eingeben

13. Simulieren

14. Excel öffnen -> Textfeld einfügen

15. Einfügen -> Modul -> UserForm1.Show eingeben

16. Zurück in Excel und Makro zuweisen -> Auswählen

17. Zurück in VisualBasic -> Schriftgröße in Textfeldern ändern -> Font auswählen „Fett“ und „Größe“ ändern

18. Drehfeld Programmieren -> Draufklicken -> TextBox1.Value = SpinButton1.Value eingeben.

19. In Excel ausprobieren

20. Übernehmen/Bestätigen Kästchen programmieren ->

If CheckBox1.Value Then

ThisWorkbook.ActiveSheet.Range("Zeile auswählen").Value = "Ja"

Else

ThisWorkbook.ActiveSheet.Range("Zeile auswählen").Value = "Nein"

End If

21. Zweiter Wert übernehmen eine Zeile drunter -> ThisWorkbook.ActiveSheet.Range("C8").Value = TextBox1.Value

...zum Beitrag

Cell Value bzw. Zellen Inhalt ändern über Function in VBA?

Hallo Zusammen, kann mir jemand sagen wie ich mithilfe einer Function in Excel VBA den Inhalt einer Zelle ändern kann? Ich habe hier ein kleines Beispiel, während der Code in einem Sub scheinbar ohne Probleme ausgeführt wird, scheint dieser in einer Function zum Abbruch zu führen.

Vielen Dank für jede Antwort im Voraus!

Gruß Leo

Beispiel:

Sub Test()

ActiveCell.Offset(1, 1) = "1"

End Sub

Function Test()

ActiveCell.Offset(1, 1) = "1"

End Function

...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: Variablenwert aus Textbox in Zahl ausgeben?

Moin,

Ich möchte aus einer UserForm (Textbox) einen wert (numerisch) als Zahlenwert in eine Zelle ausgeben.

Mein Problem besteht darin, dass Excel den wert als Text erkennt...

Public gewicht As Single
'----
ActiveSheet.Cells(7 , 6).Value = gewicht

Hat jemand eine Idee, wie ich da eine Zahl, mit der ich in Excel selber rechnen kann, draus macht

...zum Beitrag

Excel VBA Text in andere Textbox bringen?

Guten Tag.

Ich habe zwei Fragen bezüglich Excel VBA.

Ich möchte den Text in einer Textbox mit einem Mausklick markieren (Die Textbox kann übrigens nicht von Hand ausgefüllt werden und ist für die Bearbeitung gesperrt). Es soll aber nur ein einziges Wort markieren.
Der markierte Text soll in eine andere Textbox erscheinen, sobald man draufgeklickt hat. Das Ganze ist übrigens in einer Userform

Bin noch relativ Neuling im VBA, würde mich über eine Antwort freuen.

Ein Bild ist im Anhang.

...zum Beitrag

VBA Userform Textbox per Commandbutton füllen?

Hallo^^

Also ich soll gerade ein Userform erstellen mit einer Textbox und 2 Schaltflächen bei der ersten schaltfläche soll der Textbox mein Name zugewiesen werden, allerdings bekomm ich das irgendwie nicht hin. Ich weiß zwar wie man etwas aus der Textbox in eine Zelle einfügt, aber nicht wie man etwas in die Textbox bekommt.

...zum Beitrag

Excel VBA UserForm "Passwort ändern" funktioniert nicht?

Ich komme echt nicht weiter bei so einem einfachen Code! :(

Das Problem ist, dass die UserForm einmal funktioniert, aber beim zweiten Mal sagt er "Das Passwort ist nicht korrekt", obwohl es das eigentlich sein müsste. Per Direktbereich abgefragt ergibt sich dann immer, dass das Passwort auf "" steht. Findet jemand im Code den Fehler?

PS: "NeuesPasswort1" steht für die obere, "NeuesPasswort2" für die untere Reihe.

Option Explicit

Sub CheckBoxAltesPasswort_Click()
  If CheckBoxAltesPasswort.Value = True Then
    TextBoxAltesPasswort.PasswordChar = ""
    Else
      TextBoxAltesPasswort.PasswordChar = "*"
  End If
End Sub

Sub CheckBoxNeuesPasswort1_Click()
  If CheckBoxNeuesPasswort1.Value = True Then
    TextBoxNeuesPasswort1.PasswordChar = ""
    Else
      TextBoxNeuesPasswort1.PasswordChar = "*"
  End If
End Sub

Sub CheckBoxNeuesPasswort2_Click()
  If CheckBoxNeuesPasswort2.Value = True Then
    TextBoxNeuesPasswort2.PasswordChar = ""
    Else
      TextBoxNeuesPasswort2.PasswordChar = "*"
  End If
End Sub

Sub CommandButtonAbbrechen_Click()
  Me.Hide
End Sub

Sub CommandButtonSpeichern_Click()
  If TextBoxAltesPasswort.Value <> AltesPasswort Then
    MsgBox ("Das Passwort ist nicht korrekt.")
    Exit Sub
  End If
  If TextBoxNeuesPasswort1.Value <> TextBoxNeuesPasswort2.Value Then
    MsgBox ("Die Passwörter stimmen nicht überein.")
    Exit Sub
  End If
  If Len(TextBoxNeuesPasswort1.Value) < 5 Then
    MsgBox ("Bitte wählen Sie ein Passwort mit mindestens 5 Zeichen.")
    Exit Sub
  End If
  NeuesPasswort = TextBoxNeuesPasswort1.Value
  Passwort = NeuesPasswort
  Me.Hide
End Sub

Sub UserForm_Activate()
  AltesPasswort = Passwort
End Sub

...zum Beitrag

Was möchtest Du wissen?

Deine Frage stellen