Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1220to1224
1220to1224
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

durch vba erstellte textbox ansprechen

Forumthread: durch vba erstellte textbox ansprechen

durch vba erstellte textbox ansprechen
Jürgen
Hallo zusammen,
ich habe mir eine Art dynamisches Formular erstellt (siehe Anhang).
Dort läuft eine Schleife und nimmt für jede Zeile in der Tabelle eine Textbox und schreibt den Inhalt der aktuellen Zelle in diese Textbox.
Nun möchte ich aber auf das ändern dieser Textbox reagieren, wenn ein Nutzer nach dem Anzeigen dort ggf. neue Daten einträgt, dann sollen diese wieder in die Tabelle zurückgeschrieben werden. Im Regelfall leicht umzusetzen. Wie mache ich das aber, wenn ich gar nicht weiß, wie viele Textboxen entstehen. Es können ja je nach Tabelle mal 10 oder 20 oder auch nur 5 sein. Wie kann ich hier das Exit Ereignis oder das AfterUpdate Ereignis abfangen?
Vielen Dank für Eure Hilfe!
Hier die Datei
https://www.herber.de/bbs/user/75558.xls
Viele Grüße
Jürgen
Anzeige
AW: durch vba erstellte textbox ansprechen
01.07.2011 18:46:25
Beverly
Hi Jürgen,
der einfachste Weg: schreibe die Zelle in die Tag-Eigenschaft der TextBox: 
    UserForm1.Controls(aktuellerBoxName).Tag = Cells(Zeile, 2).Address(False, False)

und erstelle auf dem UserForm fest einen CommandButton mit folgendem Code: 
Private Sub CommandButton1_Click()
Dim ctrElement As Control
For Each ctrElement In Me.Controls
If TypeName(ctrElement) = "TextBox" Then Worksheets("Tabelle1").Range(ctrElement.Tag) =  _
ctrElement
Next ctrElement
End Sub

Andere Möglichkeit: verwende Klassenprogrammierung.

Anzeige
z. Bsp. mit 'nem Klassenmodul
01.07.2011 19:15:50
Christian
Hallo Jürgen,
In deinem Userform: 
Option Explicit
Dim colTxt As New Collection
Private Sub UserForm_Initialize()
Dim objCls As clsTxt
Dim sngTop As Single
Dim i As Long
Const sngDIST As Single = 25
sngTop = sngDIST
For i = 2 To Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row
Set objCls = New clsTxt
Set objCls.cntrTxt = Me.Controls.Add("forms.TextBox.1", "txt_" & i, True)
With objCls.cntrTxt
.Left = 15
.Top = sngTop
.Height = 18
.Width = 60
.Value = Tabelle1.Cells(i, 2)
End With
sngTop = sngTop + sngDIST
colTxt.Add objCls
Next
Me.Height = sngTop + sngDIST
Set objCls = Nothing
End Sub
des Weiteren in einem Klassenmodul (mit dem Namen "clsTxt"). Hier stehen dir die Events zur Verfügung. Diese gelten dann für alle Textboxes. 
Option Explicit
Public WithEvents cntrTxt As MSForms.TextBox
achja, und der Code zum Aufrufen des Userforms im Klassenmodul der Tabelle1: 
Option Explicit
Private Sub cmdFrmAufrufen_Click()
UserForm1.Show
End Sub
Gruß
Christian
Anzeige
Änderungen werden nicht übernommen
04.07.2011 09:31:56
Jürgen
Hallo Christian,
ich habe alles so eingetragen, wie du geschrieben hast.
Das Userform öffnet sich genauso wie vorher, aber eine Änderung in den Werten wird nicht in die Tabelle zurückgeschrieben.
https://www.herber.de/bbs/user/75577.xls
Kann sich das nochmal jemand ansehen?
Danke!
Viele Grüße
Jürgen
Anzeige
AW: Änderungen werden nicht übernommen
04.07.2011 14:33:35
Heiko
Hallo Jürgen,
da mußt du wohl noch ein wenig mehr tun, die Ereignisüberwachung hast du z.B. noch garnicht drin.
Aber das ganze Thema Klassen ist eh nicht ohne, hier bei Online-Excel ist dazu eine gute Einführung.
http://www.online-excel.de/excel/grusel_vba.php?f=7
Kämpf dich da mal durch, dann solltest du dein Problem auch gelöst kriegen.
Und vor allem gib nicht auf bevor du "Klassen [5] - Events [1] - Steuerelemente" erreicht hast,
da ist nämlich das drin was dich interessiert.
Gruß Heiko
Anzeige
AW: Änderungen werden nicht übernommen
04.07.2011 20:12:00
Beverly
Hi Jürgen,
im UserForm: 
Option Explicit
Dim colTxt() As New clsTxt
Private Sub UserForm_Initialize()
Dim objCls As clsTxt
Dim sngTop As Single
Dim i As Long
Const sngDIST As Single = 25
sngTop = sngDIST
For i = 2 To Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row
Set objCls = New clsTxt
Set objCls.cntrTxt = Me.Controls.Add("forms.TextBox.1", "txt_" & i, True)
With objCls.cntrTxt
.Left = 15
.Top = sngTop
.Height = 18
.Width = 60
.Tag = Cells(i, 2).Address
.Value = Tabelle1.Cells(i, 2)
End With
sngTop = sngTop + sngDIST
ReDim Preserve colTxt(1 To i - 1)
Set colTxt(i - 1).cntrTxt = objCls.cntrTxt
Next
Me.Height = sngTop + sngDIST
End Sub
Im Klassenmodul: 

Option Explicit
Public WithEvents cntrTxt As MSForms.TextBox
Private Sub cntrTxt_Change()
Worksheets("Tabelle1").Range(cntrTxt.Tag) = CDbl(cntrTxt)
End Sub

Anzeige
Danke Berverly; Klappt! Danke Heiko für Hinweis
05.07.2011 11:36:14
Jürgen
Danke Euch beiden. Ich werds versuchen
04.07.2011 09:21:38
Jürgen
;

Forumthreads zu verwandten Themen

VBA - Hilfetexte für Funktionen wie MsgBox, InputB
Stefan

Hallo zusammen,
gibt es eine einfache Möglichkeit, in VBA Hilfetexte (welche ruhig einfachen Textfiles o.ä. entsprechen können) für Funktionen wie MsgBox, InputBox etc. zu hinterlegen?
Danke vorab und Gruß.
Stefan
12.06.2009 09:41:53
Thread-ID: 1080899
2 Beiträge
Anzeige
VBA: Textbox.Value mit -1 multiplizieren => Fehler
Mathias

Hallo zusammen!
Bin neu hier und habe vieles aus anderen Beiträgen abkupfern können. Im Moment drückt die Zeit, so dass ich keinen echten systematischen Einstieg gewählt habe sondern eher Codes aus div. Foren zusammenkopiert habe und per learning by doing das meiste hinbekommen habe. Hat bi...
19.08.2009 12:17:55
Thread-ID: 1097053
7 Beiträge
Summe aus Zelle und Textbox ermitteln -VBA-
Wolfgang

Hallo,
ein UF/Multipage1 enthält in einer Gruppe 4 Optionboxes (Gruppenname: Ausgaben - Boxes 1-4) und in einer anderen Gruppe 3 Optionboxes (Gruppenname: Zeit - Boxes 5-7). Ich würde gerne Berechnungen durchführen lassen, deren Ergebnis in Textbox 10 erscheint.
Ablauf:
Wenn Option...
03.10.2009 21:39:03
Thread-ID: 1107018
6 Beiträge
TextBox mit Index füllen via VBA
chrissey

Hallo Leut, guten Morgen,
habe folgendes Problem:
habe in einer UserForm eine TextBox (TextBox1 ) und möchte diese jetz über
einen Index Verweis kombiniert mit einer Vergleichen Funktion in einem Sub
(ComboBox1_initialize) füllen. Die Formel sieht folgendermaßen aus:
INDEX(...
03.11.2009 09:57:58
Thread-ID: 1114009
5 Beiträge
Listbox + Textbox VBA
amintire

Hallo alle zusammen,
ich habe folgende Datei gebastelt und benötige eure Hilfe:
Die Datei https://www.herber.de/bbs/user/76542.xls wurde aus Datenschutzgründen gelöscht
Bei ComboBox1 sollen die Tabellen ausgesucht werden können (hier z.B. Januar, Februar oder März)
Wenn Januar...
09.09.2011 20:18:24
Thread-ID: 1229236
7 Beiträge
VBA TextBox Formatierung
Andy

Guten Morgen zusammen
Bin mal wieder auf der Suche nach Hilfe.
Habe ein UF mit Textboxen, in einer Textbox sollte ich zahlen eingeben.
und möchte das dies gleich auch in der UF so dargestellt wird und auch in der
Tabelle.
123.4.456.789 = Darstellung
123445679 = Eingabe...
17.11.2012 08:16:50
Thread-ID: 1287043
16 Beiträge
per VBA alle Textboxen in Arbeitsmappe suchen
Peter

Hallo,
ich möchte per VBA in allen Blättern der gesamten Arbeitsmappe die Textboxen suchen
und wenn ein bestimmter Teil des Namens der gesuchten Textbox gleich ist
soll dort ein Inhalt eingefügt werden.
Mein Versuch ist mit meinen VBA Kenntnissen leider gescheitert.
Public S...
19.04.2013 07:38:02
Thread-ID: 1309478
6 Beiträge
Anzeige
Nach VBA-Ausführung ist die textbox1 verschwunden
Thomas

Hallo Gemeinde,
ich habe in Tabelle1 eine Textbox1 angelegt. Der Inhalt dieser Textbox1 wird nach klick auf Commandbutton1 auf weiteren Tabellenblättern verarbeitet.
Nach der Verarbeitung aktiviere ich wieder Tabelle1 >> Sheets("Tabelle1").Select Es funktioniert alles einwandfrei...
22.05.2013 15:03:30
Thread-ID: 1314359
14 Beiträge
VBA: textbox afterupdate format Datum
Bernd

Hallo zusammen,
irgendwie bekomme ich das nicht richtig hin, vielleicht kann mir jemand behilflich sein und den Code berichtigen.
Hier mein Code, der nicht funktioniert:
Private Sub TextBox5_AfterUpdate() 'TextBox5 = format(CDbl(TextBox5), "TT.MM.JJJJ") End Sub Vielen Dank im...
03.06.2013 19:44:47
Thread-ID: 1316131
3 Beiträge
Anzeige
VBA: bei verlassen Textbox 5, berechnen Textbox6
Bernd

Hallo zusammen,
bei folgendem Problem komme ich nicht weiter.
Userform Textbox5 enthält Geburtstag. In TextBox6 sollen die Tage bis zum nächsten Geb. berechnet werden. Am Geb. direkt soll "Happy Birthday" in TextBox6 stehen.
Habe eine Formel, die in der Tabelle bereits diese Ergebni...
06.08.2013 15:18:19
Thread-ID: 1325930
8 Beiträge
VBA: Multiseite-TextBoxen löschen
Ernst Dunkel

Guten Tag ForenIch habe folgendes Problem:In UserForm11, befindet sich eine Multiseite (Page1 bis Page3).
In jeder Page befinden sich Eingabefelder d.h. mehrere TextBoxen und ein CommandButton zum löschen aller Eingabefelder (TextBoxen) in der jeweiligen Page.
Meine Problemprozedur sieht...
18.07.2002 09:16:32
Thread-ID: 137734
3 Beiträge
VBA: UserForm mit TextBoxen
Ernst Dunkel

In UserForm1 habe ich sechs TextBoxen mit gleich Code.
Wie muss ich die untenstehende Prozedur vereinfachen, so dass der Code für alle TextBoxen in UserForm 1 gilt, ohne die Prozedur 5 mal zu kopieren?
Private Sub TextBox1_KeyPress(ByVal KeyAscii As msforms.ReturnInteger)
Dim TMP$
19.07.2002 15:34:13
Thread-ID: 138550
11 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Textfeld in Excel VBA ansprechen und bearbeiten

Schritt-für-Schritt-Anleitung

  1. UserForm erstellen:

    • Öffne Excel und drücke ALT + F11, um den VBA-Editor zu starten.
    • Füge ein neues UserForm hinzu, indem du im Projekt-Explorer mit der rechten Maustaste auf dein Projekt klickst und Einfügen > UserForm wählst.

  2. TextBox hinzufügen:

    • Ziehe eine TextBox aus der Toolbox auf das UserForm. Du kannst auch mehrere TextBoxen dynamisch erstellen, wie im Forum beschrieben.
    • Verwende den folgenden Code, um mehrere TextBoxen basierend auf den Werten in einer Excel-Tabelle zu erstellen: 
      Dim objCls As clsTxt
Dim sngTop As Single
Dim i As Long
Const sngDIST As Single = 25
sngTop = sngDIST
For i = 2 To Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row
Set objCls = New clsTxt
Set objCls.cntrTxt = Me.Controls.Add("forms.TextBox.1", "txt_" & i, True)
With objCls.cntrTxt
   .Left = 15
   .Top = sngTop
   .Height = 18
   .Width = 60
   .Value = Tabelle1.Cells(i, 2)
End With
sngTop = sngTop + sngDIST
Next

  3. Tag-Eigenschaft nutzen:

    • Setze die Tag-Eigenschaft der TextBox auf die Adresse der Zelle, um später auf diese zuzugreifen: 
      UserForm1.Controls(aktuellerBoxName).Tag = Cells(Zeile, 2).Address(False, False)

  4. Ereignisse abfangen:

    • Verwende das Change-Ereignis, um Änderungen in der TextBox zu überwachen und die neuen Werte in die Tabelle zurückzuschreiben: 
      Private Sub cntrTxt_Change()
Worksheets("Tabelle1").Range(cntrTxt.Tag) = CDbl(cntrTxt)
End Sub

  5. UserForm anzeigen:

    • Füge einen Button hinzu, um die UserForm anzuzeigen: 
      Private Sub cmdFrmAufrufen_Click()
UserForm1.Show
End Sub

Häufige Fehler und Lösungen

  • Änderungen werden nicht übernommen:

    • Stelle sicher, dass du das Change-Ereignis in deinem Klassenmodul implementiert hast. Wenn du die TextBoxen dynamisch erstellst, achte darauf, dass die Referenz korrekt gesetzt ist.

  • TextBox bleibt leer:

    • Überprüfe, ob du den richtigen Wert in der TextBox gesetzt hast. Wenn die Zelle leer ist, bleibt auch die TextBox leer.

  • UserForm öffnet sich nicht:

    • Vergewissere dich, dass du den richtigen Code zum Anzeigen des UserForms verwendest und dass keine Fehler im Code vorhanden sind.

Alternative Methoden

  • Klassenprogrammierung:

    • Eine der robustesten Methoden ist die Verwendung von Klassenmodulen. Definiere ein Klassenmodul wie clsTxt, um die TextBoxen zu verwalten und deren Eigenschaften und Ereignisse sauber zu kapseln.

  • Direktes Ansprechen von TextBoxen:

    • Du kannst auch direkt auf die TextBoxen zugreifen, indem du deren Namen in Code verwendest. Dies ist jedoch weniger flexibel, wenn die Anzahl der TextBoxen variieren kann.

Praktische Beispiele

Hier ein Beispiel, wie du mit dem Change-Ereignis arbeiten kannst, um Werte zurück in die Excel-Tabelle zu schreiben:

Private Sub cntrTxt_Change()
    Worksheets("Tabelle1").Range(cntrTxt.Tag) = cntrTxt.Value
End Sub

Wenn die TextBox mit dem Namen txt_2 beispielsweise verändert wird, wird der neue Wert in die Zelle geschrieben, die in der Tag-Eigenschaft der TextBox gespeichert ist.

Tipps für Profis

  • Verwende die WithEvents-Anweisung: Dadurch kannst du Ereignisse für die dynamisch erstellten TextBoxen nutzen, was den Code übersichtlicher und leichter wartbar macht.

  • Ereignisprozeduren optimieren: Versuche, die Logik in den Ereignisprozeduren minimal zu halten, um die Performance zu erhöhen.

  • Verwendung von Option Explicit: Dies hilft dir, Fehler bei der Variablenverwendung zu vermeiden, da du alle Variablen deklarieren musst.

FAQ: Häufige Fragen

1. Wie viele TextBoxen kann ich erstellen? Du kannst beliebig viele TextBoxen erstellen, solange dein Code und die Ressourcen deines Systems dies zulassen.

2. Gibt es einen Unterschied zwischen einer TextBox und einer InputBox? Ja, eine TextBox ist ein Steuerelement auf einem UserForm, während eine InputBox eine einfache Eingabemethode ist, die eine Eingabeaufforderung anzeigt.

3. Wie kann ich TextBoxen nach dem Erstellen anpassen? Du kannst die Eigenschaften der TextBoxen direkt im Code anpassen, wie z.B. Größe, Position und Formatierung.

4. Kann ich die gleichen Methoden auch in Word VBA verwenden? Ja, die Konzepte sind ähnlich, aber die spezifischen Objekte und Methoden können variieren.

Beliebteste Forumthreads (12 Monate)

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