Hallo zusammen,
^^ich hoffe nirgends,
mein Name ist Laure und ich schreibe gerade ein Hausarbeit. Folgendes Sub ist Bestandteil eines noch größeren Subs. Kann mir jemand sagen ob mein Code soweit stimmt? (ich hab shcon verschiedene Stichproben durchgeführt und bin der Meinung das es passt) Hab einfach angst einen Fehler zu machen >.>
Das folgende Sub soll erkennen in welcher Zeile ein Benutzer anfängt und in welcher Zeile es einen wechsel gibt.
1 Thomas
2 Thomas
3 Thomas
4 Justin
5 Justin
6 Justin
7 Tim
8 Tim
9 Tim
10 Tim
11 Tim
12 TIm
Sub Test2()
Dim a As Integer
Dim b As Integer
Dim iGleicherBearbeiterStart As Integer
Dim iGleicherBearbeiterEnde As Integer
iGleicherBearbeiterEnde = 2
Dim ilastrow As Integer
Dim lastrow As Integer
For ilastrow = 2 To 300
If Worksheets("Kollision").Range("B" & ilastrow) = "" Then
lastrow = ilastrow - 2
Exit For
End If
Next ilastrow
For a = iGleicherBearbeiterEnde To lastrow
Worksheets("Kollision").Range("B" & a - 1).Select
If Not Worksheets("Kollision").Range("B" & a - 1) = Worksheets("Kollision").Range("B" & a) Then
iGleicherBearbeiterStart = a
For b = iGleicherBearbeiterStart To 10
If Not Worksheets("Kollision").Range("B" & b) = Worksheets("Kollision").Range("B" & b + 1) Then
iGleicherBearbeiterEnde = b
Worksheets("Kollision").Range("B" & b).Select
Exit For
End If
Next b
End If
Next a
|