Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 10:59:29
Datei Auswählen und öffnen
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
868to872
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
868to872
868to872
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA+MsgBox

VBA+MsgBox
08.05.2007 14:49:00
Oli
Hallo,
ich möchte in einer Tabelle ,in welcher, zeilen verschiedene Farben haben, die jeweiligen Farben mit Hilfe eines Makro´s zählen. Die richtigen Zahlen sollen dann in einer MSgBox dargestellt werden.
Geht das überhaupt. Die Farbe bezieht sich auf die Schriftfarbe.
z.B. Zeilen 1,3 und 5 sind Rot. 2 und 4 Grün. Dann soll in der Box stehen Rot=3 und Grün=2.
Vielen Dank für eure Bemühungen.

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA+MsgBox
08.05.2007 15:34:18
Reinhard
Hallo Oli,
ggf. mußt Du unten "Selection" durch Deinen Bereich ersetzen, sonst sollte das aber gehen.

Sub FarbenZählen()
For Each a In Selection
If a.Font.ColorIndex = 10 Then grün = grün + 1
If a.Font.ColorIndex = 3 Then rot = rot + 1
Next a
erg = MsgBox("Rot ist    " & rot & " mal vertreten" & Chr(13) & _
"Grün ist  " & grün & " mal vertreten." & Chr(13) & _
"", vbInformation, "Häufigkeit von Farben")
End Sub


Gruß Reinhard

AW: VBA+MsgBox
08.05.2007 15:51:00
Peter
Hallo Oli,
standardmäßig hast du 56 Farben, die müsstest du alle definieren um sie der Farbe zuzuordnen.
Ich ordne sie nur dem Farb-Index zu, ohne zu wissen, welche Farbe sich dahinter verbirgt.
Aber schau einmal:


Option Explicit
Public Sub Farben_zaehlen()
Dim lZeile            As Long
Dim aFarbe(1 To 56)   As Variant
Dim aAnzahl(1 To 56)  As Variant
Dim iIndex            As Integer
Dim sText             As String
   For lZeile = 1 To Range("A65536").End(xlUp).Row
      If Range("A" & lZeile).Font.ColorIndex <> 0 Then
         If iIndex = 0 Then
            aFarbe(1) = Range("A" & lZeile).Font.ColorIndex
            aAnzahl(1) = 1
            iIndex = 1
          Else
            For iIndex = 1 To 56
               If aFarbe(iIndex) = Range("A" & lZeile).Font.ColorIndex Then
                  aAnzahl(iIndex) = aAnzahl(iIndex) + 1
                  Exit For
               ElseIf aFarbe(iIndex) = "" Then
                  aFarbe(iIndex) = Range("A" & lZeile).Font.ColorIndex
                  aAnzahl(iIndex) = 1
                  Exit For
               End If
            Next iIndex
         End If
      End If
   Next lZeile
   For iIndex = 1 To 56
      If aFarbe(iIndex) <> "" Then
         sText = sText & aFarbe(iIndex) & " " & aAnzahl(iIndex) & vbCrLf
       Else
         Exit For
      End If
   Next iIndex
   MsgBox sText
End Sub


Gruß Peter
Anzeige
AW: VBA+MsgBox
08.05.2007 16:36:35
Oli
Sorry Peter,
aber das verstehe ich überhaupt nicht!
Gruß
oli

AW: VBA+MsgBox
08.05.2007 16:43:33
Oli
Hi Reinhard,
hatte soweit geklappt nur zählt er die Farben nicht zusammen. Ich habe mal dir mal meine Datei zur Verfügung gestellt. Sind jetzt ingesamt 6 Farben (Standart Schwarz) mit einbezogen. Könntest Du noch mal gucken. Ehrlich gesagt weis ich auch nicht genau, wie ich die Selection ersezten soll.
Danke!!!!

AW: VBA+MsgBox
08.05.2007 16:46:28
Oli
Sry,
der Code fehlte noch!!

Die Datei https://www.herber.de/bbs/user/42348.xls wurde aus Datenschutzgründen gelöscht


Anzeige
AW: VBA+MsgBox
10.05.2007 08:49:00
Oli
Hallo Peter,
Super lieben Dank.
Echt Klasse!
Gruß Oli

113 Forumthreads zu ähnlichen Themen

VBA - Hilfetexte für Funktionen wie MsgBox, InputB
Stefan

Hallo zusammen,
gibt es eine einfache Möglichkeit, in VBA Hilfetexte (welche ruhig einfachen Textfiles o.ä. entsprechen können) für Funktionen wie MsgBox, InputBox etc. zu hinterlegen?
Danke vorab und Gruß.
Stefan
12.06.2009 09:41:53
Thread-ID: 1080899
2 Beiträge
Anzeige
VBA MsgBox - Ausgabe verschiedener Werte
Dominic

Hallo zusammen,
ich habe in einer Excel Tabelle 5 Formularsteuerelemente (Kontrollkästchen) eingefügt und diese natürlich auf unterschiedliche Zellbezüge von N1 bis N5 gesetzt.
Je nach Auswahl der Kontrollkästchen / abhaken habe ich in N1 bis N5 natürlich nun ein "Wahr oder Falsch" steh...
22.01.2014 14:09:35
Thread-ID: 1346336
7 Beiträge
VBA Ppt MsgBox ohne Programm anzuhalten
Florian

Hallo alle zusammen,
ich habe ein Makro geschrieben mit welchem ich automatisiert aus Excel eine PowerPoint Präsentation erstelle und diese anschließend abspeichere. Bevor ich speichere habe ich eine msgbox vbYesNo in welcher der Nutzer bestätig, ob er die generierte Präsentation so abspeic...
04.08.2014 15:01:57
Thread-ID: 1374063
4 Beiträge
Anzeige
VBA Msgbox mit 2 Leerzeilen, richtig?
Dieter(Drummer)

Hi VBA Spezialisten,
ist die VBA Schreibweise richtig oder geht es auch kürzer, wenn ich 2 Leerzeilen in der Msgbox haben möchte?
Mein Testmakro, dass (auch) funktioniert:
Sub ZweiLeerzeilen() If MsgBox("Vor 2 Leerzeilen" & vbCrLf & "" & vbCrLf & "Nach 2 Leerzeilen...
10.11.2015 15:51:49
Thread-ID: 1457492
3 Beiträge
VBA MsgBox Ja/Nein funktioniert nicht?!
Bernd

Hallo zusammen,
ich bin begeisterter Leser dieses Forums und konnte hier schon viele Lösungen und hilfreiche Tipps finden. Leider bin ich jetzt an einem Punkt angekommen, zu dem ich hier und über Google keine Erklärung finden konnte.
Ich habe eine Userform, auf der ich mir Pfadangaben a...
27.11.2015 10:17:50
Thread-ID: 1461060
3 Beiträge
VBA Excel mit MSG BOX
ALI

Hallo,
ich habe folgende herausforderung.
Ich habe eine Einsatzplan mit mehreren LKW.
NAME Tag1 Tag2 Tag3 Tag4 Tag5
LKW1 10:00 10:00 11:00 11:00 11:00
LKW2 10:00 10:00 11:00 11:00 11:00
LKW3
Links stehen die LKW´s 1 - 3 in der Spalte.
17.12.2015 11:32:04
Thread-ID: 1464860
12 Beiträge
VBA - Werte aus Tabellenblatt in MsgBox ausgeben
Ansako78

Hallo zusammen
ich habe eingeschränkte VBA-Erfahrungen und versuche gerade folgendes: es gibt eine Tabelle, in der in Spalte 1 verschiedene Kontonummern stehen, die wiederholt vorkommen, und in Spalte 2 steht die Buchungsnummer der Belastung und in Spalte 3 der belastete Betrag (es gibt kei...
31.12.2015 18:26:05
Thread-ID: 1466572
5 Beiträge
mittels VBA "msgbox eingabe" eine Zahl suchen
Michel

Hallo liebe Excel Freunde
Ich habe hier eine Routine Aufgabe und möchte diese gerne automatisieren.
vielen Dank vorab für euer Feedback
Hier das File um was es geht:
https://www.herber.de/bbs/user/104662.xlsm
Dies ist ein Auszug aus dem SAP und kann je nach dem von der Date...
30.03.2016 15:53:48
Thread-ID: 1484875
4 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
5
6
3
2
2
2
11
4
3
5
6
4
8
9
9
2
3
2
7
10
7
1
2
3