Office: mehrere Do While Schleifen nacheinander

Hallo zusammen,

versuche mehrere Do While schleifen zum laufen zu bringen
so schaut es aus:

PHP:

         Private Sub UserForm_Activate()
Dim dat As Date
dat = Me.Label1.Caption
sp = 1
Do While Abteilung.Cells(5, sp) <> dat
sp = sp + 1
Loop
Z = 8
'Name1
Do While Abteilung.Cells(Z, 2) <> Me.Label2.Caption
Z = Z + 1
Loop
r = sp
If Abteilung.Cells(Z, sp) = "U" Then
Me.Label39.Caption = "hat Urlaub"
Me.CheckBox1.Visible = False
Me.CheckBox37.Visible = False
Me.CheckBox50.Visible = False
End If
'Name3
Do While Abteilung.Cells(Z, 2) <> Me.Label4.Caption
Z = Z + 1
Loop
r = sp
If Abteilung.Cells(Z, sp) = "U" Then
Me.Label41.Caption = "hat Urlaub"
Me.CheckBox36.Visible = False
Me.CheckBox61.Visible = False
Me.CheckBox117.Visible = False
End If
'Name2
Do While Abteilung.Cells(Z, 2) <> Me.Label3.Caption
Z = Z + 1
Loop
r = sp
If Abteilung.Cells(Z, sp) = "U" Then
Me.Label40.Caption = "hat Urlaub"
Me.CheckBox2.Visible = False
Me.CheckBox46.Visible = False
Me.CheckBox47.Visible = False
End If
'Name4
Do While Abteilung.Cells(Z, 2) <> Me.Label5.Caption
Z = Z + 1
Loop
r = sp
If Abteilung.Cells(Z, sp) = "U" Then
Me.Label42.Caption = "hat Urlaub"
Me.CheckBox4.Visible = False
Me.CheckBox65.Visible = False
Me.CheckBox91.Visible = False
End If
End Sub


:)

 

Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.

Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.

Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Test, Mappe, Beispiel usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.

 

Hallo Hajo,
du kannst mich auch gerne mit einem Kind das durch nachmachen Lehrnt vergleichen,
denn in bezug auf VBA bin ich noch ein Baby was noch viel Lehrnen will.


Vielen Dank!
Gruß Andreas

 

Hallo Andres *wink.gif*

So auf Anhieb habe ich es auch nicht herausgefunden!
Wäre bestimmt Interessant zu wissen! *Smilie

*Wir vertuschen die Misere erstmal und nehmen eine Alternative* *mad.gif*

Gruß Poltergeist *biggrin.gif*

MusterSchleife!
Code:

 

Hallo Andres *Smilie

Nur so eine Idee *rolleyes.gif*
Kontrlliere mal das Format der zu abfragenden Cells(y,x) !
z.b.
Von
Code:

Code:

Format kontrollieren

Gruß Poltergeist *biggrin.gif*

 

Hallo Polstergeist,
ich habe Do While...Loop und While...Wend getestet bei beiden das selbe Problem,wegen der Zellen die haben Standart Format, kann es sein das die reienfolge von den Schleifen im Code eine Rolle spielt? Ich meine damit das die schleifen die gleiche rehenfolge wie die Namen in der Tabelle haben müßen.

Vielen Dank!
Gruß Andreas

 

Hallo Andres *wink.gif*

So recht weiss ich auch nicht weiter!
Versuche deine Ideen neu/anders umzusetzen!
Gruß Poltergeist *biggrin.gif*
Was hälst davon die Checkboxen gegen Häckchen in der Zelle zu ersetzen?
Einzufügen Alt+F11/Projectexplorer/DeineTabelle
Code in Wechselwirkung
Code:

 

Hallo zusammen,
@Polstergeist,
Danke für dein vorschlag und deine mühe,ist aber nicht das was ich brauche.
Ich werde weitersuchen, wenn ich die lösung gefunden habe werde ich es hier Posten.

@all
Vielen Dank.
Gruß Andreas