Makrofehler

Bild

Betrifft: Makrofehler
von: Eleni
Geschrieben am: 19.04.2005 10:02:01
Hi Forum,
Möchte in Spalte J nach Einträgen (= H - G) suchen lassen, die größer/gleich 5 ist und dann die dazugehörigen Zellen der Spalte A und B rot einfärben. Habe folgenden Codeabschnitt der nicht funktioniert. Was ist daran falsch und wie kann ich es besser machen?

Danke, Eleni


Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
Dim endup2 As Integer
Application.EnableEvents = False
endup2 = ThisWorkbook.Sheets("080_2005").Range("A65536").End(xlUp).Row
    For i = endup2 To 8 Step -1
        If Range("J" & i).Value = "=>5" Then
            Range("A" & i).Interior.ColorIndex = 3
        End If
    Next i
Application.EnableEvents = True
End Sub

Bild

Betrifft: AW: Makrofehler
von: P@ulchen
Geschrieben am: 19.04.2005 10:09:06
Hallo Eleni,


Private Sub Worksheet_Change(ByVal Target As Range)
Dim As Integer
Dim endup2 As Integer
Application.EnableEvents = False
endup2 = ThisWorkbook.Sheets("080_2005").Range("A65536").End(xlUp).Row
    For i = endup2 To Step -1
        If Range("J" & i).Value >= 5 Then
            Range("A" & i).Interior.ColorIndex = 3
        End If
    Next i
Application.EnableEvents = True
End Sub

     Code eingefügt mit Syntaxhighlighter 2.1

Gruß aus Leipzig
P@ulchen
Das Forum lebt auch von den Rückmeldungen !
Bild

Betrifft: AW: Makrofehler
von: Eleni
Geschrieben am: 19.04.2005 10:11:55
Hi Paulchen,
Danke, funktioniert leider nicht.
Eleni
Bild

Betrifft: AW: Makrofehler
von: P@ulchen
Geschrieben am: 19.04.2005 10:15:22
Bei mir schon...hab´s getestet...
Gruß aus Leipzig
P@ulchen
Das Forum lebt auch von den Rückmeldungen !
Bild

Betrifft: AW: Makrofehler
von: Eleni
Geschrieben am: 19.04.2005 10:20:11
Hi Paulchen,
Mir schon klar, dass woanders der Hase im Pfeffer liegt, nur wo? Deshalb auch dieser thread.
Danke, Eleni
Bild

Betrifft: AW: Makrofehler
von: P@ulchen
Geschrieben am: 19.04.2005 10:34:09
Hallo Eleni,
hier mal eine Beispieldatei. Ändere Mal einen Eintrag in G oder H:
https://www.herber.de/bbs/user/21342.xls
Gruß aus Leipzig
P@ulchen
Das Forum lebt auch von den Rückmeldungen !
Bild

Betrifft: AW: Makrofehler
von: Eleni
Geschrieben am: 19.04.2005 10:41:06
Hi Paulchen,
Danke, es lag an

For i = 8 To endup2
hatte das andersrum, aber mit deiner Hilfe klappt es jetzt super.

Danke, Eleni
Bild

Betrifft: AW: Makrofehler
von: P@ulchen
Geschrieben am: 19.04.2005 10:45:25
Hallo Eleni,
das kann es aber nicht gewesen sein...
Ich hatte das nur umgestellt, weil es in Deinem Fall nicht notwendig war, die Schleife abwärts zählen zu lassen.
Vielleicht lag es an der Zuordnung der Variable endup2, die vorher Spalte A abgefragt hat. Ich hatte sie auf J umgeschrieben.
Gruß aus Leipzig
P@ulchen
Das Forum lebt auch von den Rückmeldungen !
Bild

Betrifft: AW: Makrofehler
von: Eleni
Geschrieben am: 19.04.2005 11:30:07
Hi Paulchen,
Danke für den Hinweis, hatte ich gar nicht bemerkt.

Ciao, Eleni
Bild

Betrifft: Geschlossen, o. T.
von: Eleni
Geschrieben am: 19.04.2005 11:30:42
o. T.
Bild

Betrifft: AW: Makrofehler
von: Ramses
Geschrieben am: 19.04.2005 10:12:15
Hallo
keine Ahnung was du damit meinst

"...Möchte in Spalte J nach Einträgen (= H - G) ..."
Der Rest würde dann so lauten
Range("A" & i & ":B" & i ).Interior.ColorIndex = 3
Gruss Rainer
Bild

Betrifft: AW: Makrofehler
von: Eleni
Geschrieben am: 19.04.2005 10:16:46
Hi Ramses,
J = H - G , d.h. in der Spalte J wird H minus G gerechnet und evtl. ist dies eine Fehlerquelle da Paulchens Idee

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
Dim endup2 As Integer
Application.EnableEvents = False
endup2 = ThisWorkbook.Sheets("080_2005").Range("A65536").End(xlUp).Row
    For i = endup2 To 8 Step -1
        If Range("J" & i).Value >= 5 Then
            Range("A" & i & "B" & i).Interior.ColorIndex = 3
        End If
    Next i
Application.EnableEvents = True
End Sub

nicht funktioniert, bin ich für weitere Vorschläge offen. Danke, Eleni
Bild

Betrifft: AW: Makrofehler
von: Ramses
Geschrieben am: 19.04.2005 10:20:04
Hallo
Wo soll dann das Problem sein ?
Wenn du schreibst "... da Paulchens Idee nicht funktioniert.." wäre es hilfreich zu wissen, was denn nun nicht funktioniert.
Meine Glaskugel funktioniert gerade nicht :-)
Gruss Rainer
Bild

Betrifft: AW: Makrofehler
von: Eleni
Geschrieben am: 19.04.2005 10:29:00
Paulchens Idee war der Code zwischen den Wörtern "Idee" und "nicht".
Bild

Betrifft: Geschlossen, o. T.
von: Eleni
Geschrieben am: 19.04.2005 10:41:40
o. T.
 Bild

Beiträge aus den Excel-Beispielen zum Thema "doppelte Datensätze löschen"