Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 09:22:48
VBA Filter in intelligenter Tabelle funktioniert nicht
18.04.2024 08:54:52
automatisches übertragen von Daten
18.04.2024 08:16:13
Dynamische Positionsnummerierung
18.04.2024 08:15:33
Seitwärts scrollen - Fenster fixiert
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1084to1088
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
1084to1088
1084to1088
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kleinsten Schriftgrad in einem Bereich ermitteln!?

Kleinsten Schriftgrad in einem Bereich ermitteln!?
Kasimir
Hallo Leute,
ich benötige mal Eure Hilfe. Ich möchte in einem Bereich (A1:G letzte Zeile) ermitteln, welches der kleinste Schriftgrad ist. Ich benötige nicht die Zelle, in der diese verwendet wurde, sondern um welchen Wert es sich handelt, also ob 8, 10, 12 14….
Jemand eine Idee, wie ich das mit VBA realisieren kann?
Besten Dank an Euch vorab,
Kasimir
AW: Kleinsten Schriftgrad in einem Bereich ermitteln!?
05.07.2009 09:35:34
Daniel
HI
sofern nur ganzzahlige Schriftgrade verwendet werden:

Sub Makro1()
Dim SGr As Long
Dim Zelle As Range
With Intersect(ActiveSheet.UsedRange, Range("A:G"))
For SGr = 2 To 72
Application.FindFormat.Font.Size = SGr
Set Zelle = .Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=True)
If Not Zelle Is Nothing Then Exit For
Next
End With
MsgBox SGr, , "Kleinster Schriftgrad"
Application.FindFormat.Clear
End Sub


funktioniert allerdings erst ab Excel XP
Gruß, Daniel

Anzeige
AW: Kleinsten Schriftgrad in einem Bereich ermitteln!?
05.07.2009 10:11:04
Kasimir
Hallo Daniel,
danke Dir für Deine Antwort. Sie funktioniert prima.
Ich hätte da noch eine Frage. Eventuell hast Du ja dafür auch eine Antwort. Ich habe bestimmte Zellen, in denen die Schriftgröße an die Zelle angepasst wird (Einstellung in Zellen formatieren -> Ausrichtung -> Textsteuerung(). Kann man bei den Zellen herausfinden, wenn der Text angepasst wird, welchem Schriftgrad das entspricht?
Mal zur Erklärung, ich lasse die Texte an die Zellengröße anpassen, weil sie sonst aus der Zelle heraus wandern. Da die Texte von unterschiedlicher Länge sind, erscheinen Sie auch vom Schriftgrad her in unterschiedlicher Größe. Das möchte ich vermeiden. ich möchte, dass die Texte alle in die Zellen passen, aber bei allen Texten die gleiche Größe eingestellt wird und nicht die Texte in verschiedenen Größen dargestellt werden.
Als Anhang mal ein Bild: Userbild
Danke und Gruß,
Kasimir
Anzeige
AW: nein- keine Ahnung
05.07.2009 11:38:00
Daniel
sorry
AW: Kleinsten Schriftgrad in einem Bereich ermitteln!?
05.07.2009 16:25:03
{Boris}
Hi Kasimir,
verwende eine Proportionalschrift - wie z.B. Courier.
Anders wirst Du keine Vereinheitlichung erreichen.
Grüße Boris
Courier ist eine NICHTproportional- bzw...
06.07.2009 04:01:15
Luc:-?
...Festbreitenschrift, Boris!
Das meinst du sicher auch, hast nur die Bezeichnungen vertauscht... ;-)
Moin-Moin, Luc :-?
Dicktengleiche Schrift...
06.07.2009 13:29:55
{Boris}
...oder Festbreitenschrift sollte es natürlich heißen :-)
Grüße Boris
AW: Dicktengleiche Schrift...
06.07.2009 13:44:18
daniel
Hi
die Verwendung einer Schriftart mit konstanter Zeichenbreite würde es zumindest ermöglichen, die erforderliche Schriftgrösse über Spaltenbreite / Anzahl Zeichen = erforderliche Schriftgrösse zu berechnen.
allerdings müsste hierfür eine Schleife über alle Zellen laufen, um die kleinste erforderliche zu ermitteln.
Gruss, Daniel
Anzeige
AW: Dicktengleiche Schrift...
06.07.2009 14:41:38
Kasimir
Hallo,
danke Euch für Eure Antworten. Das hört sich alles sehr kompliziert an. Ich habe mich nun entschieden, die Schriftart nicht an die Zellgröße anzupassen, sondern gebe diese mit 5,5 fest vor. Somit sollte alles in eine Zelle passen.
Danke nochmal und Gruß,
Kasimir

299 Forumthreads zu ähnlichen Themen

Einzigartige Werte in Array identifizieren
Sebastian

Hallo Experten,
ich habe eine Frage, die vermutlich recht leicht zu lösen sein sollte:
Ich habe eine sehr lange Liste, in der in Spalte A Produktnummern stehen, viele kommen auch mehrfach vor. Ich möchte gerne daraus in einem neuen Tabellenblatt eine Liste erstellen, in der jede verschi...
10.08.2008 21:30:00
Thread-ID: 1000688
2 Beiträge
Anzeige
Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
If...Then... bei verschiedenen Bedingungen?
Vic

Hallo zusammen
Ich habe folgendes Problem und weiss nicht, wie ich das über mein Marko gelöst bekomme:
In der Spalte "H" habe ich diverse Werte (zwischen 0 und X) und in der Spalte "K" ebenfalls. Nun möchte ich, dass es in der Spalte "L" eine "0" ausgibt, wenn "H" den Wert Null hat und...
13.08.2008 15:00:00
Thread-ID: 1001553
5 Beiträge
Anzeige
Schriftgröße Zelle automatisch an Inhalt anpassen
Peter

Hallo Leute!
Folgende Situation: ich habe in einer Arbeitsmappe auf mehreren Tabellenblättern zu oberst das gleiche Design. Unter anderem steht auf jedem Blatt oben in einer Zelle die gleiche Information. Aus Gründen der Einfachheit muss man diese Information nur einmal auf dem ersten Tabel...
21.08.2008 15:04:06
Thread-ID: 1003519
4 Beiträge
Wert finden und nicht Ziffer
baronf


Habe ein Problem,
in der Spalte C soll nach Zahlen gesucht werden (Variable MZ)
Wenn MZ den Wert 1 bekommt, wird dür MZ ein wahrer Wert ausgegeben, wenn die Zahl auftriit.
Das heisst, dass nach der Ziffer und nicht nach der Zahl gesucht wird!
Wie kann ich die Formel ändern,...
28.08.2008 16:05:00
Thread-ID: 1005503
2 Beiträge
Wert finden und nicht Ziffer
baronf


Habe ein Problem,
in der Spalte C soll nach Zahlen gesucht werden (Variable MZ)
Wenn MZ den Wert 1 bekommt, wird dür MZ ein wahrer Wert ausgegeben, wenn die Zahl auftriit.
Das heisst, dass nach der Ziffer und nicht nach der Zahl gesucht wird!
Wie kann ich die Formel ändern,...
28.08.2008 16:06:00
Thread-ID: 1005504
4 Beiträge
Knifflig - Zeilen einfügen
Frederic

Guten Morgen liebes Forum,
ich hab da ein kleines kniffeliges Problem, hoffe, ihr könnt mir evtl. weiterhelfen:
Ich exportiere Daten per Makro in eine neue leere Mappe (Mappe1.xls).
Vorab: Die Spaltenzuordnung ist immer identisch!
Jetzt möchte ich statt manuell wie bisher, die R...
29.08.2008 07:29:19
Thread-ID: 1005628
10 Beiträge
Range bis zu einer bstimmten Zeile kopieren
Joachim

Hi,
ich habe eine Sub, um Daten eines Ranges von einem Tabellenblatt zu einem andren Tabellenblatt zu kopieren:
Sub Kopieren() Dim intS As Integer Sheets("Daten einlesen").Range("C2:H150").Copy With Sheets("Übersicht") intS = .Cells(4, Columns.Count).End(xlToLeft).Column .Cells(5, in...
19.09.2008 20:57:12
Thread-ID: 1011139
5 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
1
2
3
4
4
3
1
3
9
4
3
9
7
5
1
6
3
6
13
2
3
3
6
20
1