For-Next Schleife mit Text

Computer: Software & Programmierung Office Software
1

Hallo

Weiss jemand gerade wie man eine For-Next Schleife mit Text bastelt.

For n = A to E
Next n

Danke

2

Hallo Lanzma,

For n = 65 to 69
a = Chr(n)
Next n

Gruß, Andreas

3

Danke für die Info, aber sobald ich komplette Wörter habe geht dies nicht mehr.

4

Wenn wir von Excel reden, könntest du die Wörter in eine Tabelle eintragen, z.B. in die Zellen A1 bis A10. Dann könnte der Code so aussehen:

Sub schleife()
 Dim wort As Object

 For Each wort In Range("A1:A10")
 MsgBox wort.Value
 Next wort
End Sub

Gruß, Andreas

5

Danke für die Info, aber sobald ich komplette Wörter habe geht
dies nicht mehr.

Hallo Lanzma,

beschreib gnauer was du da machen willst.

Gruß
Reinhard

6

So wie auch hier

Danke für die Info, aber sobald ich komplette Wörter habe geht
dies nicht mehr.

beschreib gnauer was du da machen willst.

Hallo Lanzma,

hier biste auch noch Aufklärung schuldig:

http://www.wer-weiss-was.de/article/5996258

Zumindest mir ist da noch einiges unklar.

Gruß
Reinhard

7

Hmm, was möchtest Du denn noch wissen.

Mir war nicht klar, wie man Case 1, Case 2 miteinander verbindet.

Es war das Komma und nicht das &

Wollte eine kombinierte Abfrage laufen lassen.

Gruss

8

Danke für die Info, aber sobald ich komplette Wörter habe geht
dies nicht mehr.

beschreib gnauer was du da machen willst.

Möchte eine Schleife durchlaufen lassen, die schaut welcher Wert „true“ ist z.B. Checkbox = 0. Da ich mehrere boxen habe… soll er alle boxen durchlaufen. Die Boxen haben dann Namen wie Frank, Helga, Fredi etc.

Jetzt würde ich gerne die Namen im Code einbauen ohne sie aus einem Range (Objekt) holen zu müssen.

9

Hallo Lanzma,

schreib das bitte in der dortigen Beitragsfolge zu Thomas.

Gruß
Reinhard

10

Zu der Frage was ich machen möchte:
Diesen Code als Schleife darstellen.

If Not Helga = 0 Then
 If Not Anwesend = 0 Then
 MsgBox "Helga Hello"
 Else
 MsgBox "Helga Tschüss"
 End If
ElseIf Not Frank = 0 Then
 If Not Anwesend = 0 Then
 MsgBox "Frank Hello"
 Else
 MsgBox "Frank Tschüss"
 End If
ElseIf Not Fredi = 0 Then
 If Not Anwesend = 0 Then
 MsgBox "Fredi Hallo"
 Else
 MsgBox "Fredi Tschüss"
End If
11

Vielleicht so was
Hallo Lanzma,

wenn du eine UserForm1 hast mit deinen Chechboxen drauf, dann könntest du vielleicht so was machen:

Sub gruss()
 Dim wer As String

 For Each ct In UserForm1.Controls
 If TypeOf ct Is msforms.CheckBox Then
 wer = ct.Name
 ' ... hier dein weitere Code
 End If
 Next ct
End Sub

Gruß, Andreas

12

Danke Andreas,

werde das probieren.

13

Zu der Frage was ich machen möchte:
Diesen Code als Schleife darstellen.

Hallo Lanzma,

ich habe mal „Anwesend“ auch als Checkbox genommen, aber viel Sinn sehe ich dadrin für mich nicht.

Private Sub CommandButton1\_Click()
Dim CB As Object
For Each CB In Me.Controls
 If TypeOf CB Is MSForms.CheckBox Then
 If CB And CB.Name "Anwesend" Then
 MsgBox CB.Name & IIf(Anwesend, " Hello", " Tschüss")
 End If
 End If
Next CB
End Sub

Gruß
Reinhard

14

Hehe… sehe so auch kein Sinn.

Werde mir das me.control mal genauer anschauen.

Danke