Office: Zellen auf Farbe prüfen und Ergebnis in MsgBox wiedergeben

hary · 17. April 2013

Hallo
Edit: Vorher war Murks. :-(
Code:

Dim zelle As Range
Dim einzeln As String
With Worksheets("Tabelle1")
For Each zelle In .Range("M59:M110")
If Application.CountIf(.Range("M59:M110"), zelle) = 1 Then
einzeln = einzeln & vbLf & zelle.Value
End If
Next
MsgBox einzeln
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary

Caesar7 · 17. April 2013

Moin Hary!

Vielen Dank für deine Mühen!

Habe deinen Code übernommen. er funktioniert ohne fehlermeldung - aber leider zeigt er mir nicht das gewünschte ergebnis an *frown.gif*

meine tabelle sieht aktuell ungefähr so aus:

Schwerpunkt Dauer
Hannover 5%
München 0%
Dresden 17 %
Berlin 19%
Hannover 6%
Dresden 7%
Berlin 2%
...

die zellen, die rot markeirt werden sind die mit 0% (welche gleichzeitig nur einmal vorkommen)
quasi egal, ob man nach der roten zelle, der anzahl des auftretens oder dem entsprechenden wert "0" sucht. als ergebnis soll in diesem fall "münchen" ausgegeben werden...

[das mit dem farbwert suchen können wir ja ausklammern, da vba nicht auf die bedingte formatierung zugreift]

mit deinem code zeigt er mir in der msgbox gar nix an.
habe nun deinen code mal ein wenig angepasst und lasse nach den 0% suchen. als ergebnis in msgbox erhalte ich aber nun eine "0". hast du ne idee??

Code:

Dim Zelle As Range
Dim Test As Double

With Worksheets("Zeitraum")
For Each Zelle In .Range("G59:G84")
If Application.CountIf(.Range("G59:G84"), Zelle.Value) = 0 Then
Test = Test & vbLf & Zelle.Value
End If
Next
MsgBox Test
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

VG

C.

hary · 17. April 2013

Moin
So?
Code:

'suche Wert 0 in SpalteG ausgabe Wert aus SpalteF
Dim Zelle As Range
Dim Test As String
With Worksheets("Zeitraum")
For Each Zelle In .Range("G59:G84")
If Zelle = 0 And Zelle "" Then
Test = Test & vbLf & Zelle.Offset(, -1).Value
End If
Next
MsgBox Test
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary

Caesar7 · 17. April 2013

Guten Morgen Hary!

Spitze, ich glaub jetzt haben wir (du) es! *wink.gif*

Vielen Dank! So Kann der Tag starten!

Hinweis:

Es bleibt festzuhalten, dass der durch eine bedingte Formatierung neu gegegbene Farbwert nicht durch VBA erfasst werden kann!

Grüße

Caesar

hary · 17. April 2013

Moin

Es bleibt festzuhalten, dass der durch eine bedingte Formatierung neu gegegbene Farbwert nicht durch VBA erfasst werden kann!
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Stimmt so nicht.;-)
Ist viel zu Komplex mit VBA,aber machbar.
Daher besser eine alternative nehmen.
gruss hary

Caesar7 · 17. April 2013

oh...okay.

danke für die Korrektur. ist ja wichtig zu wissen!

bis später

Caesar

Caesar7 · 17. April 2013

ach, hary...eins noch *wink.gif*

wenn die variable test leer ist, also keine einträge gefunden wurden, soll die msgbox nicht aufpoppen.

wie frage ich den inhalt einer variable ab?

gruß

caesar

Caesar7 · 17. April 2013

Problem solved *wink.gif*

If Test = "" Then Exit Sub

Grüße

Caesar

hary · 17. April 2013

Moin
Next
If Test "" then MsgBox Test
End With
gruss hary

Caesar7 · 17. April 2013

hey!

danke dir hary!
ich nehme an"" ist besser als "=" *wink.gif*

bis denne

caesar

Office: Zellen auf Farbe prüfen und Ergebnis in MsgBox wiedergeben

Zellen auf Farbe prüfen und Ergebnis in MsgBox wiedergeben

Zellen auf Farbe prüfen und Ergebnis in MsgBox wiedergeben

Zellen auf Farbe prüfen und Ergebnis in MsgBox wiedergeben

Zellen auf Farbe prüfen und Ergebnis in MsgBox wiedergeben

Zellen auf Farbe prüfen und Ergebnis in MsgBox wiedergeben - Similar Threads - Zellen Farbe prüfen

Bedingte Formatierung, Leere Zelle ab best. Zeit einfärben und bei Eintrag Farbe weg.

Zelle mit Farbe ausfüllen, WENN ein Text darin ist

Bedingte Formatierung aktuelles Jahr Zelle Färben

Zelle per Formel färben

Bedingte Formatierung Farbänderung Zellen

Farbe aus Zelle in andere Zelle kopieren

Farbe von Zellbereichen prüfen und andere Zelle färben