Schleife

Computer: Software & Programmierung Visual Basic
#1

Morgen!!!

In meiner Exceltabelle möchte ich eine Schleife hinterlegen. Hierbei sollen alle Zellen markiert werden, bis die Schleife eine Zeile erreicht hat, die den Inhalt 31.12.2004 hat und die grau hinterlegt ist.
Dafür habe ich dann folgenden Code geschrieben:

Do
ActiveCell.Offset(1, 0).Select
Selection.Copy
Loop Until ActiveCell.Value > 38351 And ColorIndex = 15

So, das sieht ganz nett aus, funktioniert aber leider nicht, denn beim Starten des Programms entsteht eine Endlosschleife.
Kann mir jemand sagen wo mein Fehler liegt?

Schonmal Danke und liebe Grüße

Claudia

#2

hallo claudia,

der fehler liegt zunächst mal daran, das innerhalb der schleife nichts passiert, und die aktive zelle nie den wert erhält…

dimensioniere dir eine variable, die die zeilen/spalten mitzählt

bsp:

dim zaehler as long

Do
ActiveCell.Offset(zaehler, 0).Select
Selection.Copy

zaehler = zaehler + 1

Loop Until ActiveCell.Value = „31.12.2004“

probiers mal so

gruß

rasta

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#3

Hallo!!!

Ich glaub da hab ich mich nicht so richtig ausgedrückt.
Die Schleife an sich läuft ja, aber ich weiß nicht, wie ich der Schleife sagen kann, dass sie so lange durchlaufen soll, bis sie eine Zelle erreicht hat, in der 31.12.2004 steht, und die einen grauen Hintergrund hat. Wenn ich nur nach dem 31.12. suche dann hab ich kein Problem. Das Problem tritt erst auf, sobald ich der Schleife sagen möchte, dass sie auch nach der Zelle suchen soll, die den grauen Hintergrund hat.

LG
Claudia

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#4

so geht’s (bei mir)
Moin Claudia

ohne dein Makro zu arg zu ändern, hätte ich folgende Lösung anzubieten:

' ...
Loop Until ActiveCell.Value = "31.12.2004" And Selection.Interior.ColorIndex = 15
' ...

Cheers!
Hawky