Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
236to240
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
236to240
236to240
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Laufzeitfehler '6': Überlauf

Laufzeitfehler '6': Überlauf
03.04.2003 09:47:56
Marc Voelker
Morgen

Heute wurd mir ma wieder gezeigt, das alte Sprichwörte recht behalten.
"Man soll den Tag nich vorm Abend loben."

Hatte gerade meine Poblemlösung gefunden und dann kam der
---
Laufzeitfehler'6':
Überlauf

Definition: Sprung zu 'Cells' nicht möglich, da Verborgen.
---

Also bin meinem Excelsheet werden Zeilen ausgeblendet.
Ich wollte jetzt ein Makro starten das in "H2" beginnt und dann zelle für zelle weiterläuft.

hier der code



For y = 2 To d
    For x = 8 To c
        'liest den Farbindex der Zelle aus
        i = Cells(y, x).Interior.ColorIndex
        If i = 3 Then


     Code eingefügt mit Syntaxhighlighter 2.0

in der zeile

i = Cells(y, x).Interior.ColorIndex

kommt die fehlermeldung...

Hat jemand nen Rat oder ne Idee für mich

Dank+Gruß
Marc

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Laufzeitfehler '6': Überlauf
03.04.2003 09:52:55
Forum

Hallo Marc

leider hast Du nur einen Teil Deines Codes gepostet. Darum die Vermutung Deine Variablen sind Falsch Definiert.

Zeile muß Long sein es gibt ja 65536
Spalte muß Integer sein e gibt ja 256

Gruß

Re: Laufzeitfehler '6': Überlauf
03.04.2003 10:02:05
Marc Voelker

Ist eigentlich alles richtig deklariert.



 

Sub wochenende()

Dim As Long, y As Long, a As Long, c As Long, d As Long, i As Byte

'Auslesen der letzten Spalte
c = Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1).column

'Auslesen der letzten Zeile
d = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

For y = 2 To d
    For x = 8 To c
        'liest den Farbindex der Zelle aus
        i = Cells(y, x).Interior.ColorIndex
        If i = 3 Then
            
            'prüft, ob Tag ein Samstag ist
            If Weekday(Cells(1, x), 2) = 6 Then
                'markiert die übernächste Zelle rot
                a = x + 2
                Cells(y, a).Interior.ColorIndex = 3
                'löscht die Markierung
                Cells(y, x).Interior.ColorIndex = -4142
            
            Else
                
                'prüft, ob Tag ein Sonntag ist
                If Weekday(Cells(1, x), 2) = 7 Then
                    'markiert die nachfolgende Zelle rot
                    a = x + 1
                    Cells(y, a).Interior.ColorIndex = 3
                    'löscht die Markierung
                    Cells(y, x).Interior.ColorIndex = -4142
                End If
                
            End If
            
        Else
            
            'liest den Farbindex der Zelle aus
            i = Cells(y, x).Interior.ColorIndex
            
            If i = 5 Then
                
                'prüft, ob Tag ein Samstag ist
                If Weekday(Cells(1, x), 2) = 6 Then
                    'markiert die übernächste Zelle blau
                    a = x + 2
                    Cells(y, a).Interior.ColorIndex = 5
                    'löscht die Markierung
                    Cells(y, x).Interior.ColorIndex = -4142
                
                Else
                    
                    'prüft, ob Tag ein Sonntag ist
                    If Weekday(Cells(1, x), 2) = 7 Then
                        'markiert die nachfolgende Zelle blau
                        a = x + 1
                        Cells(y, a).Interior.ColorIndex = 5
                        'löscht die Markierung
                        Cells(y, x).Interior.ColorIndex = -4142
                    End If
                    
                End If
                
            End If
            
        End If
    Next
Next

End Sub


     Code eingefügt mit Syntaxhighlighter 2.0

Aber vielleicht findt ja trotzdem jmd. etwas

Gruß
Marc

Anzeige
Re: Laufzeitfehler '6': Überlauf
03.04.2003 10:14:24
Forum

Hallo Marc

Byte geht 0 bis 255 hat die Zelle keine farbe ist es -4142 und diese Zahl ist nicht in dem Bereich.

Gruß

Re: Laufzeitfehler '6': Überlauf
03.04.2003 10:15:23
Harald W.

Hallo Marc,
du hast die Variable i als Byte deklariert, was als möglicher Wertebereich für Colorindex nicht ausreicht.
Gruß Harald

Re: Laufzeitfehler '6': Überlauf
03.04.2003 11:33:35
Marc Voelker

thx.

'long' müsste ja dann reichen oder?

Gruß+Dank
Marc

Re: Laufzeitfehler '6': Überlauf
03.04.2003 11:52:17
Forum

Hallo Marc

integer geht bis 32tausend und noch was

Gruß

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige