Thema Datum  Von Nutzer Rating
Antwort
13.12.2007 21:54:56 Rainer
NotSolved
14.12.2007 09:17:12 Holger
NotSolved
14.12.2007 14:47:53 Rainer
NotSolved
Blau Aw:Aw:Aw:UserForm
 19.12.2007 22:56:27 Rainer
NotSolved

Ansicht des Beitrags:
Von:
Rainer		 Datum:
19.12.2007 22:56:27		 Views:
1119		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Aw:Aw:UserForm
Hallo Holger,
funktioniert prima! Ich habe noch eine Lösung gefunden, die noch simpler ist:

For i = 1 To 15
UserForm1.Controls("Label" & CStr(i)).Caption = "XYZ"
Next i

Nochmals vielen Dank für Deine Hilfe
Gruß Rainer

Rainer schrieb am 14.12.2007 14:47:53:

Hallo Holger,
vielen Dank für Deine schnelle Antwort. Ich werde es in den nächsten Tagen ausprobieren und Dir davon berichten.
Gruß Rainer

Holger schrieb am 14.12.2007 09:17:12:

Hallo Rainer,
nachstehend ein Beispiel, wie du die Steuerelemente ansprechen und manipulieren kannst. Ich denke, dass du es in deinem Sinne abwandeln kannst.

Dim a(6): For i = 0 To 6: a(i) = Trim(Str(i + 3)): Next i
For Each StElem In UserForm1.Controls 'oder dein UserForm-Name
For i = 0 To UBound(a)
If InStr(StElem.Name, "Label" + a(i)) Then
StElem.Caption = "Text" + a(i)
End If
Next i
Next

Viel Erfolg
Holger


Rainer schrieb am 13.12.2007 21:54:56:

Ich möchte in einer UserForm mit 30 Labels zb. Label3 bis Label9 in einer Schleife (for next) beschriften.
Für Tips bin ich dankbar

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
13.12.2007 21:54:56 Rainer
NotSolved
14.12.2007 09:17:12 Holger
NotSolved
14.12.2007 14:47:53 Rainer
NotSolved
Blau Aw:Aw:Aw:UserForm
 19.12.2007 22:56:27 Rainer
NotSolved