Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
840to844
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
840to844
840to844
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen einfärben (Prozentangabe)

Zellen einfärben (Prozentangabe)
30.01.2007 12:46:07
Sonja
Hallo zusammen,
hier eine (für mich) kniffelige Frage:
Ich färbe die Zellen A1 bis J1 in blau ein. Dies bedeutet, dass diese 10 Zellen 100 Prozent sind. Sollte dann als Zahl in J1 stehen.
Dann färbe ich in der 2. Zeile die Zellen auch ein (z.B. A2 bis E2) und in der letzten Zelle muss dann automatisch ausgerechnet werden, wie viel Prozent der Zellen bereits eingefärbt wurde. In diesem Fall 50 Prozent.
Zeile 1 kann auch mal aus 20, 30 oder 40 Zellen bestehen. Wichtig ist, dass dann in der Zeile 2 immer die Prozente der bereits eingefärbten Zellen ausgerechnet werden.
Hier habe ich ein Beispiel-Bild:
Userbild
Hoffe, dass ist verständlich genug geschrieben...
Gruß Sonja

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen einfärben (Prozentangabe)
30.01.2007 13:18:53
Ingo
hallo Sonja,
hier ein kleines Makro:

Sub prozent()
Dim bluecell As Integer
Dim browncell As Integer
ActiveSheet.UsedRange.ClearContents
bluecell = 1
Do While ActiveSheet.Cells(1, bluecell).Interior.ColorIndex <> xlNone
bluecell = bluecell + 1
Loop
browncell = 1
Do While ActiveSheet.Cells(2, browncell).Interior.ColorIndex <> xlNone
ActiveSheet.Cells(1, bluecell).ClearContents
browncell = browncell + 1
Loop
ActiveSheet.Cells(1, bluecell - 1) = 1
ActiveSheet.Cells(2, bluecell - 1) = browncell / bluecell
ActiveSheet.Cells(1, bluecell - 1).NumberFormat = "0.00%"
ActiveSheet.Cells(2, bluecell - 1).NumberFormat = "0.00%"
End Sub

mfG
Ingo Christiansen
Anzeige
AW: Zellen einfärben (Prozentangabe)
30.01.2007 14:31:36
Sonja
Hallo Ingo!
Danke das klappt!
Hast Du auch noch eine Lösung für mich, wenn ich dies in anderen Zeilen einsetzen möchte? (Ohne dass ich dann immer die Zeilennummer von Hand ändern muss?)
Danke Dir jeztt schon für Deine Antwort
Gruß Sonja
AW: Zellen einfärben (Prozentangabe)
30.01.2007 14:59:27
Rudi
Hallo,

Function Farbprozent(lngzeile100 As Long, lngZeileProz As Long)
'Syntax: =Farbprozent(Zeile mit 100%; auszuwertende Zeile)
Application.Volatile
Dim bluecell As Integer
Dim browncell As Integer
bluecell = 1
Do While ActiveSheet.Cells(lngzeile100, bluecell).Interior.ColorIndex <> xlNone
bluecell = bluecell + 1
Loop
bluecell = bluecell - 1
browncell = 1
Do While ActiveSheet.Cells(lngZeileProz, browncell).Interior.ColorIndex <> xlNone
browncell = browncell + 1
Loop
browncell = browncell - 1
Farbprozent = browncell / bluecell
End Function

Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
Anzeige

303 Forumthreads zu ähnlichen Themen

Inhalt einer Zelle im Windows Infobereich anzeigen
Thomas

Hallo,
kann ich den Inhalt einer Zelle im Windows Infobereich anzeigen lassen?
Ich habe eine VBA-Anwendung, die mir den Verarbeitungsstatus in einer Zelle anzeigt.
Weil die Verarbeitung sehr lange dauert möchte ich zwischendurch mit anderen Anwendungen arbeiten und unten rechts nebe...
27.08.2008 17:50:23
Thread-ID: 1005163
3 Beiträge
Anzeige
Kommenare beim Klick in die leere Zelle anzeigen?
Selma

Hallo Leute,
ich möchte in Zellen der Spalte E und Spalte F die Kommmentare als errechnete Werte beim Klick in die Zelle anzeigen, wenn diese Zelle leer sind. Sind die Zelle gefüllt, dann soll der Kommentar nicht angezeigt werden.
Die Voraussetzung ist, dass in Zelle der Spalte D die Za...
11.10.2008 12:17:00
Thread-ID: 1015730
8 Beiträge
Excel2007: bedingte Formatierung mit Forme
Thorsten

Hallo,
ich habe ein Problem mit bedingten Formatierungen, die auf Formeln basieren, im Excel 2007.
Ich habe in Exel XP bzw. 2002 Dateien mit bedingten Formatierungen auf Formelbasis erstellt und diese werden im Excel 2007 nicht mehr korrekt abgebildet.
Ich habe dazu eine Datei als...
27.01.2009 15:15:00
Thread-ID: 1044267
8 Beiträge
Anzeige
knifflig: in einer Zelle anzeigen, ob Makros aktiv
Tobias

Gibts ne Möglichkeit, in einer Zelle den "makrostatus" abzufragen.
Ohne VBA natürlich :)
So eine WAHR/FALSCH ausgabe wär praktisch,
da ich den Anfängern, die die Mappe öffnen, einen deutlichen Hinweis darauf geben möchte,
das sie Ohne aktiviertem VBA nicht funktioniert...
I...
20.02.2009 16:47:00
Thread-ID: 1052499
6 Beiträge
Hyperlink Ziel Zelle farbig anzeigen!
Wolfgang

Hallo,
benutze Hyperlinks um mich im Dokument zu bewegen.
Frage wenn ich nun zu Blatt 1 nach A32 springe, kann ich dann A32 farbig anzeigen lassen, und geht dann die Farbe wieder weg?
Vielen Recht herzlichen Dank für Eure Mühe.
Wolfgang
26.03.2009 08:30:54
Thread-ID: 1064093
5 Beiträge
Excel 2007, Bedingte Formatierung (Symbole) | Herbers Excel-Forum
Flo
Hallo,
ich hätte eine kurze Frage bzgl. der Symbolsätze in Excel 2007 (Ampeln). Erreichen möchte ich folgendes:
Ich habe eine Überprüfungsspalte mit Boolean Werten (Wahr/Falsch). In der nächsten Spalte würde ich nun gerne mit den Ampelsymbolen alle WAHR-Werte mit "Grüner Ampel" und alle FAL...
19.05.2009 10:31:03
Thread-ID: 1076075
3 Beiträge
Internetbild in Zelle anzeigen
stef@n

Hallo zusammen
bin auf der Suche nach einer Möglichkeit, ein Bild aus dem Internet in einer Zelle anzeigen zu lassen.
Ich habe es mit einem Hyperlink probiert z.b.
src="http: //www.google.de/intl/de_de/images/logo.gif" />
(Leerzeichen nach http: damit das Logo hier im Thre...
21.05.2009 15:50:09
Thread-ID: 1076569
9 Beiträge
Tabellenblattname in Zelle A1 anzeigen
Stefanglander

Hallo Forum,
ich habe hie reinen Code-Schnipsel den ich gerne umändern möchte aber mal wieder nicht weiß wie.
Im Moment wird der Tabellenname in der aktiven Zelle beim betätigen der Button angezeigt.
Wie muss ich den Code ändern, dass er in der Zelle B3 angezeigt wird ?
Sub TabN...
14.07.2009 13:33:41
Thread-ID: 1088475
3 Beiträge
Anzeige

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
2
2
7
7
7
5
4
2
8
2
17
2
1
2
5
2
5
3
2
1
2
8
14
2
7