Das Archiv des Excel-Forums

Textbox als Variable ansprechen?

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
TextBox UserForm


Betrifft: Textbox als Variable ansprechen?
von: Anja

Geschrieben am: 16.09.2019 14:37:05
Hallo zusammen,
ich möchte gerne, nachdem Nummern in Textboxen eingetragen wurden, diese in ein Tabellenblatt in einer bestimmten Zelle, die variabel ist, eingetragen werden.
Das funktioniert mit dem untenstehenden Code alles gut. Nun habe ich aber immer wieder die gleiche Funktion. Lediglich der Textboxname ändert sich. Hier würde ich gerne für die Textboxen eine Variable einsetzten. Mein Versuch das mit einem Array zu lösen funktioniert nicht.
Hat jemand eine Idee dazu?
Vielen Dank
Anja
Private Sub Hinrunde_Click()
Dim z, x As Integer
Dim Zieltab As Worksheet
Dim Gewichtsarray(5) As String
Dim Zähler As Integer
Set Zieltab = ActiveWorkbook.Worksheets("Kampfreihenfolge Frauen")
Gewichtsarray(0) = "-52"
Gewichtsarray(1) = "-57"
Gewichtsarray(2) = "-63"
Gewichtsarray(3) = "-70"
Gewichtsarray(4) = "+70"
Zähler = 0
For x = 2 To 6
If Zieltab.Cells(x, 2).Value = Gewichtsarray(Zähler) Then
Zieltab.Cells(x, 1).Value = TextBox72.Value
End If
Next x
Zähler = Zähler + 1
x = 1
For x = 2 To 6
If Zieltab.Cells(x, 2).Value = Gewichtsarray(Zähler) Then
Zieltab.Cells(x, 1).Value = TextBox73.Value
End If
Next x
Zähler = Zähler + 1
x = 1
For x = 2 To 6
If Zieltab.Cells(x, 2).Value = Gewichtsarray(Zähler) Then
Zieltab.Cells(x, 1).Value = TextBox74.Value
End If
Next x
Zähler = Zähler + 1
x = 1
For x = 2 To 6
If Zieltab.Cells(x, 2).Value = Gewichtsarray(Zähler) Then
Zieltab.Cells(x, 1).Value = TextBox75.Value
End If
Next x
Zähler = Zähler + 1
x = 1
For x = 2 To 6
If Zieltab.Cells(x, 2).Value = Gewichtsarray(Zähler) Then
Zieltab.Cells(x, 1).Value = TextBox76.Value
End If
Next x
End Sub

Betrifft: AW: Textbox als Variable ansprechen?
von: 1713320.html
Geschrieben am: 16.09.2019 14:50:19
Hi
kommt darauf an.
in einer Userform kannst du Steuerelemente über die Funktion Controls("SteuerelementName") ansprechen:

...Value = Me.Controls("TextBox" & x).Text
mit ActiveX-Controls auf dem Tabellenblatt geht das so nicht.

Gruß Daniel

Betrifft: AW: Textbox als Variable ansprechen?
von: 1713330.html

Geschrieben am: 16.09.2019 15:24:44
Hallo Anja,

wenn die Textboxen forlaufende Nummern haben geht es wie folgt.
Ansonsten kannst du die Namen der Textboxen auch in ein Array schreiben und in der Schleife abarbeiten.

LG
Franz
Private Sub Hinrunde_Click()
Dim z, x As Integer
Dim Zieltab As Worksheet
Dim Gewichtsarray(5) As String
Dim Zähler As Integer
Set Zieltab = ActiveWorkbook.Worksheets("Kampfreihenfolge Frauen")
Gewichtsarray(0) = "-52"
Gewichtsarray(1) = "-57"
Gewichtsarray(2) = "-63"
Gewichtsarray(3) = "-70"
Gewichtsarray(4) = "+70"
For Zähler = 0 To 4
For x = 2 To 6
If Zieltab.Cells(x, 2).Value = Gewichtsarray(Zähler) Then
Zieltab.Cells(x, 1).Value = _
Me.Shapes("Textbox" & Format(72 + Zähler, "0")).OLEFormat.Object.Object.Value ' _
bei Active-X-Textbox
Zieltab.Cells(x, 1).Value = Me.Controls("Textbox" & Format(72 + Zähler, "0")).Value  _
'bei Userform-Textbox
End If
Next x
x = 1
Next Zähler
End Sub

Betrifft: AW: Textbox als Variable ansprechen?
von: 1713337.html
Geschrieben am: 16.09.2019 15:51:25
Hallo Franz,
vielen lieben Dank. Hat super funktioniert!
Anja

Betrifft: AW: Textbox als Variable ansprechen?
von: 1713338.html

Geschrieben am: 16.09.2019 15:52:19
Hallo Daniel,
vielen Dank dafür!
Anja

Excel-Beispiele zum Thema "Textbox als Variable ansprechen?"

Text aus Textbox in Variable download Namen von TextBoxes hochzählen download
Text aus Textbox in Zellen aufteilen download Nichtnumerische Eingaben in TextBox verhindern download
Text aus UserForm-Textbox in Variable einlesen download Nur Buchstaben in eine UserForm-TextBox download
TextBoxes- und Label-Werte in Abhängigkeit verändern download Nur AJM in TextBox akzeptieren und Anzahl zählen download
Eingabelänge in TextBox begrenzen und Werte aus Liste übernehmen download Artikel aus Auswahltextbox in Sammeltextbox verschieben download
Bei Doppelklick Textbox mit Text einfügen download Umwandlung eines TextBox-Wertes in eine Zahl download
Wert in UserForm-TextBox eintragen und selektieren download Mit Drehfeld durch UserForm-TextBoxes blättern und Daten auslesen download
Mit TextBox-Werten in UserForm rechnen download Werte aus UserForm-TextBox in bestimmten Formate übertragen download
UserForm-TextBoxes ein- und ausblenden download Wert aus UserForm-TextBox in Tabelle suchen und in ListBox listen download
Suchbegriff aus einer UserForm-Textbox in Tabelle suchen und melden download Werte aus UserForm-TextBox und aus Tabelle gerundet anzeigen download
In einer UserForm-TextBox die Eingabe von Sonderzeichen verhindern download Bestimmte Zeichen in einer UserForm-TextBox markieren download
Textvariable in eine UserForm-TextBox eintragen download UserForm-TextBox-Werte über ScrollBar einlesen download
Wert aus Zelle in Tabellenblatt-Textbox eintragen download TextBox in Abhängigkeit einer ComboBox-Auswahl füllen download
Werte zweiter UserForm-TextBoxes multiplizieren download TextBox-Eingaben im Format TTMMJJ in gültiges Datum umwandeln download
Text aus UserForm-TextBox drucken download Tabulator in UserForm-TextBox simulieren download
UserForm-TextBox-Werte einer ListBox hinzufügen download UserForm-TextBox-Werte auf Numeric prüfen und in Tabelle eintragen download
Text aus UserForm-TextBox in Tabelle suchen download Text aus letzter Zelle mit Inhalt in UserForm-TextBox anzeigen download
Zeichen in UserForm-TextBox durch ScrollBar-Schieber markieren download Element in ListBox in Abhängigkeit einer TextBoxeingabe auswählen download
Arbeitsmappe schliessen, wenn kein Eintrag in TextBox erfolgt download Plausibilistätsprüfung bei Datum&Zeit-Eingaben in UserForm-TextBox download
Wert aus UserForm-TextBox suchen und Fundstelle kopieren download Tabellenblatt-TextBox-Wete in Abhängigkeit zu Drehfeld download
Eingabebegrenzungen für TextBoxes download Suchbegriff abfragen und Fundzeile in UserForm-TextBoxes download
Spalteninhalt in UserForm-TextBox mit ScrollBalken einlesen download Focus und Selection zwischen zwei TextBoxes wechseln download
Wert aus ComboBox in TextBox, dann in Tabelle suchen download Datumreihe aus TextBox-Einträgen generieren download
Eingetragenen Wert in TextBox speichern download Eigene Klasse für UserForm-TextBoxes bilden download
Markierung einer Datumsreihe gem. UserForm-TextBoxes download Datum aus TextBox an erste frei Stelle eintragen download
Variablenübergabe in andere Arbeitsmappen download Einlesen von Zellinhalten in Variablen download
Variable in Formel einbauen download Variable in Excel-Formel einbauen. download
Variable in Zwischenablage übernehmen download Variablen in einer temporären Textdatei zwischenspeichern download
Zellinhalte in Verbindung mit Variablen in Textdatei schreiben download Feldvariable auf Inhalt testen download
Umgebungsvariable aus der autoexec.bat auslesen download Zinstabelle mit variablen Rückzahlungen download
Auflistung der Kalenderwochen eines variablen Jahres download Namen nach dem Zufallsprinzip in variable Gruppen aufteilen download
Kapitalverzinsung mit fixen Raten und variablen Zinsen download Darlehensverzinszung bei variablen Rückzahlungsraten download
Variablen auf mehrere Arten in Funktionen integrieren download Benennung und Wert von Umgebungsvariablen ermitteln download
Mit variablem oberer und unterer Rahmenlinie drucken download Arbeitsblatt an variable Email-Adresse per Outlook versenden download
Variable Spalten in UserForm-ComboBox einlesen download Alle CheckBoxes einer UserForm ansprechen download
Office-Assistenten ansprechen download Gruppe von UserForm-ListBoxes über eine Schleife ansprechen download
UserForm-ComboBoxes als Collection-Objekte ansprechen download