Fehler VBA bei farblicher Markierung

[Marko1993]

Sehr geehrte Damen und Herren,

ich habe alle möglichen Versuche unternommen, welche leider nicht zielführend waren, und hoffe nun auf Ihre Unterstützung!

Kontext: In einer Excel-Tabelle werden via Steuerungselemt die ausgewählten Zellen farblich markiert und dann von einer Gesamtsumme der Inhalt der Zelle dividiert. Jetzt benötige ich weitere Steuerungselemente, welche die markierte Zelle färben, jedoch der Inhalt der Zelle nicht von der Gesamtsumme abgezogen wird. Es klingt denkbar einfach, jedoch gibt es eine Differenz. Ich habe neue Steuerungselemente eingefügt und die Makro aufgezeichnet, dass z.B. die markierte Zelle "rot" eingefärbt wird. Dieses funktioniert auch. Betätige ich jetzt allerdings das erste Steuerungselement und es erfolgt die Färbung der Zelle in einer anderen Farbe sowie der Abzug aus der Gesamtsumme, kann ich danach das zweite Steuerungselement nicht mehr betätigen und bekomme den Hinweis. "LAufzeitfehler 1004":Anwendungs oder objektdefinierter Fehler. Beim Debuggen wird mir dann das Feld ".Pattern = xlSolid" markiert.

Hier ist die entsprechende Makro dazu:
Sub Test()
'
' Test Makro
'
'
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub




Das erste Steuerungselemt hat folgenden Code:
Private Sub Forum_Click()
Dim GO As Byte
GO = Application.Run("Abzug", 1, "Standard", 1, 46)
End Sub

Ich verstehe es einfach nicht

Ich hoffe ich kann Unterstützung erhalten.

Vielen Dank im Voraus.

[Crazy Tom]

Hallo

vielleicht reicht das hier schon aus

Code:

With Selection.Interior
   .Color = 255
End With

MfG Tom

[Marko1993]

Hi Tom,,

leider nicht. Dann bezieht er sich auf „Color = 255“.

[Crazy Tom]

ist in dem Moment denn überhaupt eine Zelle aktiv ausgewählt?

[Marko1993]

Ich wähle eine Zelle aus und betätige dann die erstellte Schaltfläche zu dieser die Makro zugeordnet ist.

[Case]

Hallo, :19:

wenn es sich bei dem Steuerelement um einen CommandButton handelt, dann musst Du die "TakeFocusOnClick-Eigenschaft" auf "False" setzten. Das kannst Du in den Einstellungen machen.

Ansonsten - Beispieldatei hochladen.

[Marko1993]

Auch das funktioniert leider nicht ;-(

[Case]

Hallo, :19:

dann solltest Du uns eine Beispieldatei zur Verfügung stellen, damit wir am offenen Herzen operieren können. :21:

[schauan]

Hallöchen,

Fehler 1004 kommt z.B. auch bei aktiviertem Blattschutz.