Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
612to616
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
612to616
612to616
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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
Anzeige
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.
Anzeige
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 
Anzeige
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.
Anzeige
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

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.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige