Wert aus bedingter Formatierung übernehmen

Rudolf · 2014-08-08T16:52:29+00:00

Moin, in Zelle A1 habe ich beispielsweise den Wert 2. In Zelle C1 beziehe ich mich auf A1 (=A1), doch habe ich aufgrund einer Formel im Rahmen der bedingten Formatierung erreicht, dass dort nunmehr # steht. Fährt man jedoch mit der Maus über diese Zelle, wird der ursprüngliche Wert der Zelle A1 doch sichtbar. Daher möchte ich mich in anderen Zelle D1 auf den neuen Wert der Zelle C1 beziehen (=C1), doch erscheint dort ebenfalls der Wert von A1. Wie erreiche ich es, dass in der Zelle D1 der neue Wert # aus der Zelle C1 erscheint? Ich hoffe, mich nicht zu kompliziert ausgedrückt zu haben. Gruß Rudolf

…Daniel,
das war nur zum Zwecke der Richtigstellung, weil man das (auch aus den von mir genannten Gründen) ja wohl ehrlicherweise tun sollte. Wann hat man jemals so etwas von dir gelesen?! Und deine Pgmm muss ich ja wohl nicht erst testen, wenn ich so etwas schon selber geschrieben habe — noch dazu für wesentlich komplexere Zusammenhänge! Außerdem war ich mit dieser MomentanMeinung ja auch schließlich nicht allein. Die Wenigsten wdn nämlich vermuten, dass MS nur für dieses eine kleine Feature die bisherigen BedingtFormatFktionalitäten so auf den Kopf gestellt hat. Das muss sich, auch bei mir, erst mal festigen…
Nur weil ich meinte, die Makros können nicht fktionieren, gleich von „Verleumdung und übler Nachrede“ zu tönen, ist doch wohl starker Toback! Worin soll die denn bestehen? Hast du da nichts anderes, für das du dich so stark ins Zeug legen könntest?! Mir kommt das jetzt aber eher wie lautes Gackern um ein einziges gelegtes Ei vor. Ja, hättest du wie Gandalf/Ewald (als Erster!) die Konsequenzen daraus erkannt, wäre das wohl schon eher was (von einer möglichst umfassenden Lösung im Rahmen der 2.Methodengruppe zur Feststellung der aktiven Regel ganz zu schweigen → da sind ganz andere Streitigkeiten ausgebrochen und entschuldigt hat sich auch keiner)…
Ich sehe an deinen Beiträgen durchaus, dass du dich auf weiten Gebieten von Xl und VBA ganz gut auskennst — aber, wo ist die Innovation? Dazu muss man an die HptProbleme und die Nahtstellen ran und kann sich nicht überwiegend nur mit zufällig im Forum angefragten Dingen beschäftigen, es sei denn, man macht das ohnehin nur zum Zeitvertreib. Ansonsten kann man sich leicht verzetteln und hat zum Schluss nichts wirklich bleibendes Eigenständiges vorzuweisen. Das wäre mir zu unbefriedigend…
Aber viell hattest du ja doch neulich die Frage mit dem US-Format gestellt, was ich dir gar nicht zutrauen mochte, und dich über meine AWen geärgert (ich mich dann aber auch über deine!)…
Also komma wieda runta, Männeken… ;-]
Luc :-?

Hallo,
in diesem einfachen Fall reicht die Function von Daniel vollkommen aus.
Kommt jedoch noch ein besonderes Zellenformat hinzu,reicht Zellentext nicht mehr aus.
Als Beispiel
ist die Zahl in F17 die Zelle selber hat das Format "+"Standard, es wird ein Plus vor der Zahl angezeigt

	F	G	H	I	J
16		F17/F18 10 bed.For. "Lattenzaun"
17	2	#		#	#
18	12	+12		+	+12
19		F17/F18>10 Zellfor. + vor Zahl

Zelle	Format	Wert
G17	"+"General	2
G18	"+"General	12

Zelle	Formel
G17	=F17
I17	=Zusatzformat(G17)
J17	=FormatierterWert(G17)
G18	=F18
I18	=Zusatzformat(G18)
J18	=FormatierterWert(G18)

Zelle	bedingte Formatierung...	Format
G17	1: =$F$1710	abc

bei Zeilentext würde jetzt die Bedfor richtig angezeigt,bei normaler Formatierung aber alles.
Es muß also einmal der Zeilentext und das Numberformat ausgelesen werden.Um zu unterscheiden welches Format gerade aktiv ist, wird der Bedfor noch ein Leerzeichen mitgegeben " #"(kann auch ein anderes sein). Dies kann nun ausgewertet werden.
Die Funktion dazu

Function Zusatzformat(Bezug As Range) As String
Dim str As Variant
str = Bezug.Text
If Mid(Bezug.Text, 1, 1) = " " Then
Zusatzformat = Mid(Bezug.Text, 2, 1)
Else
str = Split(Bezug.NumberFormat, """")
Zusatzformat = str(1)
End If
End Function

Gruß Ewald

Wert aus bedingter Formatierung übernehmen

Forumthread: Wert aus bedingter Formatierung übernehmen

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial