Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1092to1096
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
1092to1096
1092to1096
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

bedingtes Zahlenformat

bedingtes Zahlenformat
Bernd
Guten Abend allerseits,
ich drehe mich momentan wiedermal im Kreis. Da per "bedingte Formatierung" ja leider das Zellenformat und so auch kein Zahlenformat definierbar ist, muss es wohl per Code geschehen. Folgender Sachverhalt:
In Zelle A1 wird ein Bezugswert per Dropdown-Menü verändert. Ist er "1" sollen die Zellen D1 und F1 als ganzzahlige Prozentwerte formatiert sein, bei allen anderen Werten des Bezugswerts als ganze Zahlen mit "1.000er-Punkt".
Kann mir jemand einen Hinweis geben, wie ichs schaffen kann? Problem dabei ist, dass ich über 50 solche Zeilen jeweils mit Dropdown-Menü habe und eine "generalisierende" Lösung toll wäre.
Viele Grüße!
Bernd
AW: bedingtes Zahlenformat
04.08.2009 21:59:03
Erich
Hi Bernd,
klar, eine allgemeine Lösung wäre angebracht. Doch dafür müsste man ein wenig mehr wissen.
Wo sind die "über 50 solchen Zeilen"? Vielleicht regelmäßig verteilt?
Wird immer in Spalte A geprüft, werden immer die Format in Spalte D und F geändert?
Für Zeile 1 sieht das so aus: 

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Cells(1, 1)) Is Nothing Then
With Union(Cells(Target.Row, 4), Cells(Target.Row, 6))
If Target(1) = 1 Then .NumberFormat = "0%" Else .NumberFormat = "#,##0"
End With
End If
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: bedingtes Zahlenformat
05.08.2009 09:28:33
Bernd
Hallo Erich,
dankeschön! Ja, "worksheet_change" hatte ich zumindest in Verdacht und Deine Lösung macht für die 1. Zeile exakt, was ich mir vorgestellt hatte. Die Frage ist nun: wie kann man das für die anderen Zeilen effizient umsetzen? Zu Deiner Rückfrage:
Analog zur Zeile 1 gibt es Zeilen 2 bis 65 für die jeweils der in Spalte A stehende Wert den Ausschlag für die Formatierung in der jeweiligen Spalte D und F geben soll. Also identischer Aufbau jeder Zeile.
Kennst Du einen eleganten Weg?
Gruß
Bernd
bedingtes Zahlenformat in Bereich
05.08.2009 09:35:09
Erich
Hi Bernd,
das ist wohl keine große Änderung. Probier mal 

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A65")) Is Nothing Then
With Union(Cells(Target.Row, 4), Cells(Target.Row, 6))
If Target(1) = 1 Then .NumberFormat = "0%" Else .NumberFormat = "#,##0"
End With
End If
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: bedingtes Zahlenformat in Bereich
05.08.2009 09:43:10
Bernd
Noch einmal dankeschön, denn das ist es jetzt. Damit habe ich mich wohl zwar nicht mit Ruhm bekleckert, aber ich lerne. Dummerweise funktioniert es nur im Beispiel und noch nicht in meiner eigentlichen Datei mit dem übrigen Code...aber das ist nun mein Job.
Besten Dank noch einmal, Erich!
Grüße
Bernd
bedingtes Zahlenformat in Bereich - Korrektur
05.08.2009 10:23:14
Erich
Hi Bernd,
sorry, da komm ich noch mal mit einer kleinen Änderung, die nur sicherstellen soll, dass das Makro auch dann
vernünftig funzt, wenn mehr als eine Zelle gleichzeitig geändert wird: 

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target(1), Range("A1:A65")) Is Nothing Then
With Union(Cells(Target.Row, 4), Cells(Target.Row, 6))
If Target(1) = 1 Then .NumberFormat = "0%" Else .NumberFormat = "#,##0"
End With
End If
End Sub
Ergänzt habe ich jetzt "(1)" hinter Target in der 2. Zeile.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: bedingtes Zahlenformat in Bereich - Korrektur
05.08.2009 10:54:14
Bernd
Guter Hinweis, ich habe aber ein anderes Problem entdeckt, weshalb auch meine eigentliche Datei mit Deiner Lösung nicht funktioniert. So wie Du den Code vorgeschlagen hast, erfolgt die Formatierung ausschließlich, wenn die Werte in Spalte A durch "harte" Eingabe geändert werden. Bei mir erfolgt die Veränderung aber über die Benutzung eines Dropdown-Menüs pro Zeile. Darauf reagiert aber worksheet_change nicht.
Was kann ich da tun?
Gruß, Bernd
Dropdown mit Change-Ereignis?
05.08.2009 13:31:56
Erich
Hi Bernd,
nun wäre erst mal zu klären, was genau du mit "Dropdown-Menü" meinst:
Gültigkeitsliste oder Dropdown-Steuerelement (List- oder Kombinationsfeld) oder
Formular-Dropdown (List- oder Kombinationsfeld) oder noch etwas ganz anderes?
Anschauen kannst du dir dazu auch schon mal das hier (im Archiv gefunden):
https://www.herber.de/forum/archiv/860to864/t863721.htm
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Dropdown mit Change-Ereignis?
05.08.2009 14:28:09
Bernd
Es ist genauso wie in dem Beitrag aus dem Archiv ein Formular-Element, in meinem Fall ein Kombinationsfeld. Ich habe das Problem mittlerweile auch über Zuweisung von Code zum "BeiÄnderung"-Ereignis zu den jeweiligen Formular-Elementen lösen können. Nur scheint mir die Lösung nicht besonders komfortabel und bringt mich zur Frage:
Wie kann man grundsätzlich ein change-Ereignis auslösen, wenn der sich verändernde Wert das Ergebnis einer Formel oder der Bezug eines Menüs ist?
Dieses Problem ist mir auch schon öfter untergekommen.
Soll ich der guten Ordnung halber hierfür einen neues Thema eröffnen?
Gruß
Bernd
Anzeige
Dazu sind schon viele Beiträge im Archiv
05.08.2009 16:24:09
Erich
Hi Bernd,
einen neuen Thread brauchst du vielleicht nicht aufzumachen.
Ich hab mal hier im Archiv (bei "Alle Recherchen") gesucht nach: Change-Ereignis Formel
Da kommen sehr viele Treffer, z. B.
https://www.herber.de/forum/archiv/664to668/t664338.htm
https://www.herber.de/forum/archiv/864to868/t864555.htm
https://www.herber.de/forum/archiv/320to324/t322483.htm
https://www.herber.de/forum/archiv/576to580/t578016.htm
Eine der Möglichkeiten ist das Calculate-Ereignis. Aber das hat natürlich auch seine Nachteile -
es wird oft ausgelöst.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Dazu sind schon viele Beiträge im Archiv
05.08.2009 17:47:42
Bernd
Ok, ich schaue mich dort erst einmal um - Vielen Dank für Support und die Vorschläge, wo ich weiterlesen kann. Wirklich nett.
Beste Grüße
Bernd

303 Forumthreads zu ähnlichen Themen

Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Anzeige
Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge
Anzahl unterschiedl. Werte in Spalte zählen
Jakob

Hallo,
ein ähnliches Problem wurde hier im Forum schon einmal diskutiert. (https://www.herber.de/forum/archiv/632to636/t635773.htm)
Meine Problem:
Wie kann ich die Anzahl unterschiedlicher Einträge/Werte einer Spalte erhalten, ohne dass diese vorgegeben werden ( also ohne die Verwe...
14.08.2008 18:16:11
Thread-ID: 1001934
2 Beiträge
Anzeige
In Spalte nach Anzahl eines Begriffs suchen?
Lauren

Hall Leute!
ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
Vielen Dank für Eure Hilfe!
Grüße
...
19.08.2008 11:08:23
Thread-ID: 1002846
5 Beiträge
mehrere Zufallszahlen aus Bereich ohne Wiederholun
Dieterlem

Hallo Excelfreunde,
ich suche eine VBA-Lösung für Zufallszahlen. Ich habe zwar einiges gefunden aber konnte ich es nicht nach meinen Anforderungen anpassen.
Ich will eine bestimmte Anzahl (per Variable veränderbar) von Zufallszahlen generieren (Ganzzahlen).
Dabei dürfen keine Wiede...
19.08.2008 22:05:38
Thread-ID: 1003045
4 Beiträge
Zahlen einer Tabelle in Userform einlesen
Josef

Guten Morgen!
Ich habe in einem Arbeitsblatt mehrere Tabellen.
In einer UserForm habe habe ich 460 TextBoxen, wobei die Zählung immer pro Reihe senkrecht erfolgt.
Spalte 1 = TextBox1-23, Spalte2 = TextBox24- TextBox46 usw.
Ich möchte nun z.B. die erste Tabelle in die Textboxen e...
20.08.2008 07:07:03
Thread-ID: 1003059
19 Beiträge
Erste Zahlen eine Tel.-Tabelle in Farbe
Bernie
Hallo,
in einer Telefontabelle, welche sich ständig ändert, möchte ich die ersten 4 Ziffern der Rufnummer per Makro rot einfärben.
Hat jemand eine gute Idee?
https://www.herber.de/bbs/user/54765.xls
21.08.2008 12:04:53
Thread-ID: 1003430
4 Beiträge
Umwandlung text nach zahlen bei Formulareingabe
Dieter

Hallo miteinander,
ich habe ein Problem mit der umwandlung von Text nach Zahlen. In meinem Formular habe ich Textfelder definiert, in dem eigentlich nur Zahlen eingetragen werden. Nun sollen diesen Werte in einer Zelle abspeichern und weitere Berechnung durchführen, leider werden diese Zahl...
26.08.2008 19:48:34
Thread-ID: 1004910
4 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
3
20
6
1
2
4
3
18
3
3
2
1
1
3
11
5
15
3
11
2
5
2
2
3
1