Office: (Office 2007) Wenn Unterstrichen, dann zählen... :)

Hallo Zusammen,

ich habe folgende feine Formel für das Zählen fetter Einträge.

Code:

Das funktioniert famos bei Zahlen *Smilie
Nicht aber beispielsweise bei Buchstaben oder Wörtern. Was muss ich ändern um dies auch bei Text zum laufen zu kriegen?

Jetzt wollte ich das Ganze adaptieren für die Unterstreichung:
Meine Lösung also:
Code:

Er zählt damit aber die Summe aller Einträge. Also bei 7 1er von denen 2 1er unetrstrichen sind zählt er alle sieben und nicht die nur unterstrichenen.
Findet jemand den Fehler? Und auch hier. Was muss ich tun, umd as ganze bei einem Text zum Laufen zu kriegen. Sprich, wenn der Text fett ist soll er 1 weiter zählen.

Und die dritte und letzte Frage. Kann ich über eine Formelbeziehung die Formatierung der Zielzelle mitnehmen? Sprich eine Zelle A1, fett markiert. Ein verweis von C3 auf A1 mit C3=A1. Wenn A1 fett ist soll es auch C3 sein, wenn nicht, dann halt nicht.

Tausend Dank für Eure Hilfe.

gruß
Prometeus

:)

 

Hi,

Code:

 

Hi *Smilie
Danke schön.
Allerdings zählt er auch hier alle Einträge und nicht nur die eigentlich unterstrichenen.

Und ich frag gleich mal weiter, ob dies auch für doppelt unterstrichene und durchgestrichene möglich ist.

 

Hallo zusammen,

mit Jürgens Lösung ist das Problem der Zellen mit Text gelöst. Allerdings funktioniert das so mit der Prüfung auf Zellen mit unterstrichenem Text nicht. Da es verschiedene Unterstreichungen gibt (einfach, doppelt, ...) ist der Rückgabewert der Underline-Eigenschaft nicht einfach WAHR oder FALSCH, sondern besteht aus mehreren unterschiedlichen Werten. Mit rngCell.Font.Underline -4142 werden alle Zellen gezählt, die keine unterstrichenen Zeichen enthalten. Eine weitere Verkomplizierung besteht darin, dass in einer Zelle einzelne Zeichen unterstrichen sein können, andere dagegen nicht. Obige Prüfung berücksichtigt alle Zellen, in denen mindestens ein Zeichen unterstrichen ist.

[EDIT]
Obige Prüfung funktioniert natürlich gerade andersrum. Bei Prüfung auf Ungleich werden alle Zellen gezählt, die mindestens ein unterstrichenes Zeichen enthalten. Hier mal eine Aufstellung verschiedener Rückgabewerte:

-4142 Keine Unterstreichung
2 Einfache Unterstreichung
-4119 doppelte Unterstreichung
Null (Prüfung auf IsNull) Mindestens ein Zeichen, aber nicht alle unterstrichen
[/EDIT]

Gruß Ingolf

 

Danke erstmal für die Lösung.

Leider nicht.
Folgender Code funktioniert bei Zellen mit Zahlen, aber nicht bei Text:

Fette Zahlen:
Code:

Kursive Zahlen:
Code:

Unterstrichene Zahlen:
Code:

Ich nehme an, dass "-4142" ein Code für das "normale" Underline ist?
EDIT: Seh gerade dein EDIT: Toll, danke.
Doppelt Unterstrichen
Code:

EDIT Ende
Gibt es dergleichen auch für Durchstrichene Zeichen?
Und wie bringe ich das bei Texteinträgen zum laufen?

Vielen Dank
Prom

 

_oT = "ohne Text"

 

Hallo Prom08,

die Lösung von Jürgen funktioniert sehr wohl mit Text. Deine Beispiele für Fett und Kursiv entsprechen aber nicht Jürgens Lösung, sondern deinem ursprünglichen Makro. Daher funktionieren diese Beispiele auch nicht mit Text. Das Beispiel für Unterstreichungen dagegen schon. Hier wird anstelle der Prüfung mittels IIf(...) eine doppelte Prüfung mittels If...Then verwendet, wobei zum einen auf Unterstreichung geprüft wird und zum anderen auf IsNumber, also darauf, ob die Zelle einen als Zahl interpretierbaren Inhalt hat.

Die Eigenschaft für durchgestrichene Zeichen heißt Strikethrough und die Rückgabewerte sind hier einfach WAHR oder FALSCH.

Gruß Ingolf

 

Super, jetzt habe ich es verstanden.
Der Punkt "If Application.IsText" bringt mit Jürgens Code die Lösung.

Danke dass ihr dem "Langsamen" geholfen habt *wink.gif*

Noch eine andere, für mich wichtige Frage.
Besteht die Möglichkeit nur einen formatierten Teil eines Textes in einer weiteren Zelle auszugeben?

Sprich in A1 steht der Text: Spannung
Lässt es sich irgendwie realisieren im Nachbarfeld das unterstrichene "nn" auszugeben?

 

Hi,

Code:

 

Hallo Prom08,

das gienge zum Beispiel so:

Code:

 

Tausen Dank nochmal an Jürgen, Ingolf und alle die geholfen haben *Smilie

Und nun eine letzte Frage die sich noch ergeben hat und die ich trotz probiererei nicht geschafft habe.

Wenn ich in einer Zelle nun einen Eintrag wie: "Testuser" habe.

1) Kann ich den obigen Code so midifzieren, dass mir in der zweiten Zelle auch wieder "Testuser" mit der entsprechenden orgiginalen Formatierung geschrieben wird?

2) Aktuell mach er aus "Testuser" ja den Eintrag "stse". Er erkennt die Unterstreichung ja an zwei STellen. Ist es möglich das in der Ausgabe durch Komma oder Leerzeichen trennen zu lassen?

In jedem Fall noch mal DANKE an alle, die hier so tolle Arbeit leisten!!! *knuddel

[EDIT]Ist das oben auch bei doppelt unterstrichenen Einträgen möglich? Hab den Rückgabewert eingebaut, aber erziele nicht das gewünschte Ergebnis.
Code:

[EDIT 3]OK, musste den letzten Term nur rausnehmen. Mit
Code:

funktioniert es.[/EDIT 3]
[/EDIT]
[EDIT 2]Ach ja, kann ich die Zielzelle in der der übernommene Text steht auch automatisch aktualisieren lassen ohne diese immer manuell anklicken zu müssen? Lässt sich da nicht was mit JETZT() machen?
[/EDIT 2]

 

Hi,

auf die zweite Frage mal auf die Schnelle eine Antwort, mehr Zeit habe ich im Moment nicht!

Code:

 

Hi,

dafür ist das Application.Volatile zuständig! *Smilie

 

So, nach dem Wochenende komm ich mal wieder mit alten und frischen Fragen

1)

Wenn ich in einer Zelle nun einen Eintrag wie: "Testuser" habe.

Kann ich den obigen Code so modifizieren, dass mir in der zweiten Zelle auch wieder "Testuser" mit der entsprechenden origiginalen Formatierung geschrieben wird?

2)

Wie kann ich realisieren, dass die zweite Zelle (in der der übernommene Text steht) bei Änderung der ersten Zelle auch automatisch aktualisiert wird ohne diese immer manuell anklicken zu müssen? Lässt sich da nicht was mit JETZT() machen?

Schöne Woche noch,
Gruß
Prom

 

Hi,

nach meiner Meinung ist die einfachste Lösung folgende:

Der Code kommt in das Tabellenblatt!

Code: