Userform (Textbox)

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


Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Userform (Textbox)
von: Micha
Geschrieben am: 16.07.2002 - 10:05:27

Hallo,

ich habe in einer Userform viele Textboxen dennen ich aus einem Tabellenblatt einen Text zuweise.
Textbox1.text = Worksheets("Ergebnis").Range("c11").Value
Textbox2.text = Worksheets("Ergebnis").Range("c12").Value
textbox3.text = Worksheets("Ergebnis").Range("c13").Value
usw.
Diese endlose stupide Wiederholung bin ich leid*g*
Also hatte ich folgende Idee

Dim Nametextbox As String
Dim textboxzähler As Single
Dim Pl As String
Dim Reihe As Integer
Dim Spalte As Integer

With Sheets("Ergebnis")
For textboxzähler = 0 To 7
Reihe = 24
Spalte = 6

Nametextbox = "Textbox"
textboxzähler = textboxzähler + 1
Pl = textboxzähler
textbox = Nametextbox + Pl
textbox(textbox).text = Worksheets("ergebnis").Range("F24").Value
Next
End With
End Sub
Leider bekomme ich immer die Fehlermeldung Typen unverträglich
Wer kann meiner Unwissenheit auf die Sprünge helfen
Danke für eurer Unterstützung


nach oben   nach unten

Re: Userform (Textbox)
von: Micha
Geschrieben am: 16.07.2002 - 10:27:28

Bitte seit so nett und helft mir

nach oben   nach unten

Re: Userform (Textbox)
von: L.Vira
Geschrieben am: 16.07.2002 - 10:41:47

du könntest das schon mal viel effektiver machen, wenn du eine Objektvariable für dein Sheet nimmst:
Dim WS as Worksheet
Dim z As Long
Set WS = Worksheets("Ergebnis")
Textbox1 = WS.cells(3,Z).Value
Du kannst das Ganze auch in einer Schleife erledigen:
Dim c as Integer
For c = 0 to Me.Controls.count - 1
if controls(c).Name like "*text*" then
usw.....
end if
next


nach oben   nach unten

Re: Userform (Textbox)
von: Micha
Geschrieben am: 16.07.2002 - 11:32:14

Hallo L. Vira
Danke für deine Antwort.
irgenwie bin ich nicht in der lage zu verstehen was du meinst.
ich möchte gerne , das die textboxen 1 bis x hochgezählt werden

Die Schleife zählt die Textbox nicht hoch oder bin ich zu dumm??


nach oben   nach unten

Re: Userform (Textbox)
von: L.Vira
Geschrieben am: 16.07.2002 - 12:02:31

Beispiel:
Private Sub UserForm_Initialize()
Dim cc%, x%
cc = UserForm1.Controls.Count - 1
For x = 0 To cc
If Controls(x).Name Like "TextBox*" Then
On Error Resume Next
If Cells(x + 1, 1).Value = 0 Then
Controls(x) = ""
Else
Controls(x) = Cells(x + 1, 1).Value
End If
End If
Next
End Sub
nach oben   nach unten

Re: Userform (Textbox)
von: Micha
Geschrieben am: 16.07.2002 - 15:03:38

Hallo

herzlichen Dank für deine Hilfe

Micha


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Userform (Textbox)"