DO Until

Forumthread: DO Until

DO Until

22.05.2005 18:06:47

Alois

Hallo
Wie kann ich das Problem lösen
Ich habe ein Makro zum automatischen ausfüllen einer Zeile.
Wenn am Anfang der Tag Sa steht wird die ganze Zeile mit Sa ausgefüllt.
Nur funktioniert das nicht wenn der Sa aus =WOCHENTAG(A1;1) gebildet wird.
Gibt es dafür eine Lösung?

Sub aaaaSa()
Range("b4").Select
Dim lgZeile As Long
   lgZeile = 4
   Do Until IsEmpty(Cells(lgZeile, 2))

If Cells(lgZeile, 2) = "Sa" Then
    Cells(lgZeile, 3).Activate
    For i = 3 To 67
        Cells(lgZeile, i).FormulaLocal = "Sa"
    Next i

Else
lgZeile = lgZeile + 1
End If
Loop
End Sub

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: DO Until

22.05.2005 18:10:43

Hajo_Zi
AW: DO Until

22.05.2005 18:54:22

Alois
AW: DO Until

22.05.2005 19:04:36

Hajo_Zi
AW: DO Until

22.05.2005 19:30:33

Alois
AW: DO Until

22.05.2005 18:21:50

Hajo_Zi

AW: DO Until

22.05.2005 18:10:43

Hajo_Zi

Hallo Alois,
ich habe Deine Tabelle jetzt nicht nachgebaut, daum ungetestet


Sub aaaaSa()
Dim lgZeile As Long
Dim I As Integer
'    Range("b4").Select
lgZeile = 4
Do Until IsEmpty(Cells(lgZeile, 2))
If Weekday(Range("A1"), 2) = 6 Then
Cells(lgZeile, 3).Activate
For I = 3 To 67
Cells(lgZeile, I) = "Sa"
Next I
Else
lgZeile = lgZeile + 1
End If
Loop
End Sub

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.

"Wer Rechtschreibfehler findet, darf sie behalten!"
Dies gilt auch für Bert.

AW: DO Until

22.05.2005 18:54:22

Alois

Danke für den Tipp
So sieht es dann richtig umgesetzt aus
Gruß Alois

Sub aaahjoSa()
    Dim lgZeile As Long
    Dim i As Integer
    Range("b4").Select
    lgZeile = 4
    Do Until IsEmpty(Cells(lgZeile, 2))

        If Weekday(Cells(lgZeile, 2)) = 7 Then
            Cells(lgZeile, 3).Activate
            For i = 3 To 67
                Cells(lgZeile, i) = "Sa"

            Next i
        Else
            lgZeile = lgZeile + 1
            Cells(lgZeile, 2).Activate
        End If
    lgZeile = lgZeile + 1
    Cells(lgZeile, 2).Activate
    Loop
End Sub

Sub aaahjoSo()
    Dim lgZeile As Long
    Dim i As Integer
    Range("b4").Select
    lgZeile = 4
    Do Until IsEmpty(Cells(lgZeile, 2))

        If Weekday(Cells(lgZeile, 2)) = 1 Then
            Cells(lgZeile, 3).Activate
            For i = 3 To 67
                Cells(lgZeile, i) = "So"

            Next i
        Else
            lgZeile = lgZeile + 1
            Cells(lgZeile, 2).Activate
        End If
    lgZeile = lgZeile + 1
    Cells(lgZeile, 2).Activate
    Loop
End Sub

AW: DO Until

22.05.2005 19:04:36

Hajo_Zi

Hallo Alois,
7 ist aber Sonntag
Wozu ist die Zeile Range("b4").Select
Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.

"Wer Rechtschreibfehler findet, darf sie behalten!"
Dies gilt auch für Bert.

AW: DO Until

22.05.2005 19:30:33

Alois

Ich brauche Samstag und Sonntag. Deshalb. B4 nur um immer oben in der Tabelle zu sein.

AW: DO Until

22.05.2005 18:21:50

Hajo_Zi

Hallo Alois,
ich habe Deine Tabelle jetzt nicht nachgebaut, daum ungetestet


Sub aaaaSa()
Dim lgZeile As Long
Dim I As Integer
'    Range("b4").Select
lgZeile = 4
Do Until IsEmpty(Cells(lgZeile, 2))
If Weekday(Range("A1"), 2) = 6 Then
Cells(lgZeile, 3).Activate
For I = 3 To 67
Cells(lgZeile, I) = "Sa"
Next I
Else
lgZeile = lgZeile + 1
End If
Loop
End Sub

Beliebteste Forumthreads (12 Monate)

Forumthread: DO Until

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread