VBA: Zellen mit bestimmten Eigenschaften addieren

Computer: Software & Programmierung Office Software
1

Hallo,

ich möchte gerne ein Makro für Excel schreiben, welches mir den addierten Wert der (per Maus) ausgewählten Zellen zurück gibt. Der Haken ist aber, dass von den Zellen nur solche einbezogen werden sollen, die eine bestimmte Eigenschaft haben…z.B. einen roten Hintergrund.

Für einen Tip, wie ich das bewerkstelligen kann wäre ich sehr dankbar !

2

ich möchte gerne ein Makro für Excel schreiben, welches mir
den addierten Wert der (per Maus) ausgewählten Zellen zurück
gibt. Der Haken ist aber, dass von den Zellen nur solche
einbezogen werden sollen, die eine bestimmte Eigenschaft
haben…z.B. einen roten Hintergrund.

Hallo beliebiger Einer *gg*,

bitte wenn es um gefärbte Zellhintergründe geht immer angeben ob du die manuell gefärbt hast oder ob das durch bed. Formatierung.

Manuell gefärbte Zellen kann man ohne Vba oder auch natürlich mit Vba „auslesen“.
Bei Farben die aus bed. Formatierung stammen geht das so nicht.

Da muß man man die „bedingungen“ nachstellen und auswerten.

Also, was liegt vor bei dir?
Und gib bitte deine XL-Version an.

Gruß
Reinhard

3

Hallo Reinhard,

vielen Dank für deine schnelle Antwort.

Also die Zellen sind manuell eingefärbt und ich benutze Office 2003.

Da ich mich kaum mit VBA auskenne würde ich gerne 2 Sachen wissen:

  1. Wie greife ich auf die per Maus ausgewählten Zelleninhalte zu ?

  2. Wie kann ich bei den ausgewählten Zellen noch die (in diesem Fall) Eigenschaft Hintergrundfarbe abfragen ?

Schonmal Danke !

4

Hallo Anyone,

  1. Wie greife ich auf die per Maus ausgewählten Zelleninhalte
    zu ?

wie willst du zugreifen, was willst du tun?
Hilft dir das weiter:
Msgbox Selection.Address

  1. Wie kann ich bei den ausgewählten Zellen noch die (in
    diesem Fall) Eigenschaft Hintergrundfarbe abfragen ?
Sub tt()
Dim Zelle As Range, Wert As Single
For Each Zelle In Selection
 If Zelle.Interior.ColorIndex = 3 Then Wert = Wert + Zelle.Value
Next Zelle
MsgBox Wert
End Sub

Gruß
Reinhard

1 „Gefällt mir“
5

Danke, jetzt habe ich es raus.

Noch eine letzte Frage. Statt eine MsgBox oder eine Zelle mit dem Ergebniss zu füllen, gibt es in Excel noch andere Ausgabemöglichkeiten ?

Vielen Dank !

6

Noch eine letzte Frage. Statt eine MsgBox oder eine Zelle mit
dem Ergebniss zu füllen, gibt es in Excel noch andere
Ausgabemöglichkeiten ?

Hallo Anyone,

auf was willst du hinaus?
Wie soll die errechnete Summe wo präsentiert werden?

Man kann theoret. vieles mit der Summe machen.
Sie in dem Makro an jmdn. mailen, quasi dort bei ihm ausgeben.
Sie per makro in ein jpg-Bild verwandeln, ausdrucken, dann den Ausdruck ins Schaufenster stellen also dort ausgeben.
u.v.m.

Gruß
Reinhard