117553
03.11.2015, aktualisiert am 05.11.2015
5157
4
0
Excel Userform Textbox Activate und mehrfache Textbox Change möglich?
Hallo zusammen!
mit folgendem Code, steig ich in die Userform ein
Private Sub UserForm_Activate()
Dim n As Long
i = 3
For n = 1 To 160
Me.Controls("TextBox" & CStr(n)).Text = Cells(7, i)
i = i + 1
Next n
End Sub
jetzt hab ich das Problem, ich möchte nicht für 160 Textboxen immer folgendes eingeben (um Änderung speichern)
Private Sub TextBox1_Change()
Worksheets("Daten").Activate
Dim Text1 As String
Cells(7, 3) = TextBox1.Value
End Sub
gibt es hier auch eine me control Lösung um all Textboxen nach Änderung abzuspeichern?
mit folgendem Code, steig ich in die Userform ein
Private Sub UserForm_Activate()
Dim n As Long
i = 3
For n = 1 To 160
Me.Controls("TextBox" & CStr(n)).Text = Cells(7, i)
i = i + 1
Next n
End Sub
jetzt hab ich das Problem, ich möchte nicht für 160 Textboxen immer folgendes eingeben (um Änderung speichern)
Private Sub TextBox1_Change()
Worksheets("Daten").Activate
Dim Text1 As String
Cells(7, 3) = TextBox1.Value
End Sub
gibt es hier auch eine me control Lösung um all Textboxen nach Änderung abzuspeichern?
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 287396
Url: https://administrator.de/forum/excel-userform-textbox-activate-und-mehrfache-textbox-change-moeglich-287396.html
Ausgedruckt am: 22.04.2025 um 17:04 Uhr
4 Kommentare
Neuester Kommentar
Moin,
Lösung findest du hier:
Excel VBA: Mehrere Comboboxen auf UF auf Change überwachen
Das lässt sich genau so auch mit Textboxen machen.
Gruß jodel32
Lösung findest du hier:
Excel VBA: Mehrere Comboboxen auf UF auf Change überwachen
Das lässt sich genau so auch mit Textboxen machen.
Gruß jodel32
1
Super danke dir aber ich bräuchte noch ein bisschen hilfe...
ich hab immer 24 Textboxen in einer Reihe (erste auf bezug zu Zelle 7,3....7,24) und dann wieder auf 8,3.....8,24 wie könnte ich das hier unterbringen?
Dim objDic As Object, objCBox As EventsKlasse, lngZ As Long, i As Integer
For i = 1 To 24
Set objCBox = New EventsKlasse
Set objCBox.CBoxObject = Me.Controls("TextBox" & i)
objCBoxControl.Add objCBox
Next
Set objDic = CreateObject("Scripting.Dictionary")
For i = 1 To 24
For lngZ = 2 To Cells(Rows.Count, 1).End(xlUp).Row
objDic(Cells(lngZ, i).Value) = 0
Next
With Me.Controls("TextBox" & i)
.List = objDic.Keys
.ListIndex = 0
.SetFocus:
.SelStart = 0:
.SelLength = Len(.Text)
End With
objDic.RemoveAll
Next
End Sub
ich hab immer 24 Textboxen in einer Reihe (erste auf bezug zu Zelle 7,3....7,24) und dann wieder auf 8,3.....8,24 wie könnte ich das hier unterbringen?
Dim objDic As Object, objCBox As EventsKlasse, lngZ As Long, i As Integer
For i = 1 To 24
Set objCBox = New EventsKlasse
Set objCBox.CBoxObject = Me.Controls("TextBox" & i)
objCBoxControl.Add objCBox
Next
Set objDic = CreateObject("Scripting.Dictionary")
For i = 1 To 24
For lngZ = 2 To Cells(Rows.Count, 1).End(xlUp).Row
objDic(Cells(lngZ, i).Value) = 0
Next
With Me.Controls("TextBox" & i)
.List = objDic.Keys
.ListIndex = 0
.SetFocus:
.SelStart = 0:
.SelLength = Len(.Text)
End With
objDic.RemoveAll
Next
End Sub
Hallo Pilger83!
Und warum verwendest Du nicht die ControlSource-Eigenschaft der Text-Boxen ala:
Gruß Dieter
Und warum verwendest Du nicht die ControlSource-Eigenschaft der Text-Boxen ala:
| ControlSource = Tabelle1!A1 |
Gruß Dieter
Hallo Zusammen!
Hatte den falschen Ansatz, so komme ich immer auf "nicht genügend Speicher"
werde mich jetzt erstmal in das Thema dynamische Erstellung einarbeiten....
vielen Dank für eure Hilfe!!
mfg
Markus
Hatte den falschen Ansatz, so komme ich immer auf "nicht genügend Speicher"
werde mich jetzt erstmal in das Thema dynamische Erstellung einarbeiten....
vielen Dank für eure Hilfe!!
mfg
Markus
