Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Wo ist mein Fehler? |
21.11.2016 19:48:07 |
Ramona____ |
|
|
|
23.11.2016 19:48:48 |
Gast12110 |
|
|
|
23.11.2016 20:07:00 |
Tom |
|
|
|
24.11.2016 15:12:10 |
Gast77956 |
|
|
|
25.11.2016 16:55:20 |
Gast71960 |
|
|
|
25.11.2016 18:28:11 |
Mario |
|
|
|
26.11.2016 03:57:27 |
Gast77956 |
|
|
Von:
Ramona____ |
Datum:
21.11.2016 19:48:07 |
Views:
885 |
Rating:
|
Antwort:
|
Thema:
Wo ist mein Fehler? |
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
Wo ist mein Fehler? |
21.11.2016 19:48:07 |
Ramona____ |
|
|
|
23.11.2016 19:48:48 |
Gast12110 |
|
|
|
23.11.2016 20:07:00 |
Tom |
|
|
|
24.11.2016 15:12:10 |
Gast77956 |
|
|
|
25.11.2016 16:55:20 |
Gast71960 |
|
|
|
25.11.2016 18:28:11 |
Mario |
|
|
|
26.11.2016 03:57:27 |
Gast77956 |
|
|