Schleifen Problem

Bild

Betrifft: Schleifen Problem
von: Mario
Geschrieben am: 26.10.2003 18:01:23

Hallo zusammmen,

ich habe folgendes Makro geschrieben.
Ich möchte Cells(i + 2, (x * 4)) in Tabelle4 färben.
Ich glaube es liegt an der Variable dat oder ??
Wer hilft mir ???
VIELEN DANK SCHON ZUM VORAUS.

Gruss Mario



Sub Kalender()
Dim i, x  As Integer
Dim dat
Dim jahr As Integer
Worksheets("Tabelle1").Activate
jahr = Worksheets("Tabelle4").Cells(1, 1)
For i = 1 To 19
dat = Cells(i, 1)
Next
Worksheets("Tabelle4").Activate
For x = 1 To 6
Cells(2, (x * 4) - 3) = Format(DateSerial(jahr, x, 1), "MMMM")
For i = 1 To 31
If Month(DateSerial(jahr, x, i)) = x Then
Cells(i + 2, (x * 4) - 3) = Format(DateSerial(jahr, x, i), "DDD")
Cells(i + 2, x * 4 - 2) = Format(DateSerial(jahr, x, i), "DD ")
End If
If DateSerial(jahr, x, i) = dat Then
Cells(i + 2, (x * 4)).Interior.ColorIndex = 3
End If
Next
Next
End Sub

Bild


Betrifft: AW: Schleifen Problem
von: Lutz
Geschrieben am: 26.10.2003 18:10:09

Hallo Mario,

ohne intensiver nachzusehen...

For i = 1 To 19
dat = Cells(i, 1)
Next

..ist eine Schleife, die einfach nur mal so durchläuft...kannst Du gleich schreiben:

dat = Cells(19, 1) ....aber das willst Du ja sicher nicht.

Das Next muß an eine andere Stelle...
Und dann Variable i nicht mehrmals vergeben..
For i = 1 To 19 und For i = 1 To 31

Gruß Lutz


Bild


Betrifft: AW: Schleifen Problem
von: Mario
Geschrieben am: 26.10.2003 18:34:17

Vielen Dank

ich habe deinen Tip befolgt,aber bei mir funktionert es immer noch nicht.
In Tabelle1 Spalte A,Zeile 1 bis 19 stehen Datumswerte die in die Variable dat
eingelesen werden.Sobald die Datumswerte in Tabelle4 mit den datwerten
aus Tabelle1 übereinstimmen
soll sich die Datumszelle in Tabelle4 färben.

Nochmals herzlichen Dank

Gruss Mario


Bild


Betrifft: AW: Schleifen Problem
von: Lutz
Geschrieben am: 26.10.2003 18:41:17

Hallo Mario,

wie sieht Dein Code denn jetzt aus ? Hast Du ihn mal im Einzelschrittmodus laufen lassen ?
Bekommst Du irgendwo eine Fehlermeldung ?

Gruß Lutz


Bild


Betrifft: AW: Schleifen Problem
von: Mario
Geschrieben am: 26.10.2003 18:58:24

Hallo

hier der Code.
Das Makro läuft durch keine Fehlermeldungen.In der ifAnweisung am Schluss
des Codes verändert sich aber der datwert nicht.Die datwert werden doch am
Anfang des Codes eingelesen .

Gruss Mario


Bild


Betrifft: AW: Schleifen Problem
von: Lutz
Geschrieben am: 26.10.2003 19:10:22

Hallo Mario,

Du machst es einem mit Deinen Antworten nicht unbedingt leichter...
Probier mal so:



Sub Kalender()
Dim i, x  As Integer
Dim dat
Dim jahr As Integer
jahr = Worksheets("Tabelle4").Cells(1, 1)
For k = 1 To 19
    dat = Sheets("Tabelle1").Cells(k, 1)
    Worksheets("Tabelle4").Activate
    For x = 1 To 6
        Cells(2, (x * 4) - 3) = Format(DateSerial(jahr, x, 1), "MMMM")
        For i = 1 To 31
            If Month(DateSerial(jahr, x, i)) = x Then
                Cells(i + 2, (x * 4) - 3) = Format(DateSerial(jahr, x, i), "DDD")
                Cells(i + 2, x * 4 - 2) = Format(DateSerial(jahr, x, i), "DD ")
            End If
            If DateSerial(jahr, x, i) = dat Then
                Cells(i + 2, (x * 4)).Interior.ColorIndex = 3
            End If
        Next i
    Next x
Next k
End Sub

     Code eingefügt mit Syntaxhighlighter 2.1


Gruß Lutz


Bild


Betrifft: AW: Schleifen Problem
von: Mario
Geschrieben am: 26.10.2003 19:22:25

Hallo

hier die Datei,

https://www.herber.de/bbs/user/1607.xls

Gruss Mario


Bild


Betrifft: AW: Schleifen Problem
von: Lutz
Geschrieben am: 26.10.2003 19:29:38

geht doch nun, oder ???

https://www.herber.de/bbs/user/1608.xls

Gruß Lutz


Bild


Betrifft: AW: Schleifen Problem
von: Mario
Geschrieben am: 26.10.2003 19:47:26

Hallo

Vielen Dank .
Klappt bestens.
Komisch ich dachte ich hätte das vorher schon
vorher ausprobiert.

Gruss Mario


Bild


Betrifft: Danke für die Rückmeldung ! oT
von: Lutz
Geschrieben am: 26.10.2003 20:22:55




Bild


Betrifft: AW: Schleifen Problem
von: PeterW
Geschrieben am: 26.10.2003 18:51:02

Hallo Mario,

leichter wäre eine Antwort, wenn du eine Beispielmappe auf den Server lädst.

Gruß
Peter


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Schleifen Problem"