Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
26.04.2024 15:27:20
Excel öffnet nach Auswahl einer Excel diese leer
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
256to260
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
256to260
256to260
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Automatische Anpassung der Schriftgöße

Automatische Anpassung der Schriftgöße
21.05.2003 15:53:26
Mike
Hi,

ich habe einen SVerweis in einer Zelle, der Text-Ergebnisse unterschiedlicher Länge bringt. Da ich eine fest definierte Seitengröße habe, möchte ich, dass sich die Zellformatierung (Schriftgröße) automatisch an das Ergebnis anpasst.
Bspw. soll bei einem 4-Buchstaben Ergebnis Schriftgröße 25, bei 10 Buchstaben Schriftgröße 18 verwendet werden.
Leider bin ich nicht so fit ein Makro selbst zu schreiben...

Gruß und vielen Dank im Voraus
Mike



4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Automatische Anpassung der Schriftgöße
21.05.2003 16:11:58
Jeanne

Hallo Mike,

du kannst im Menü 'Zellen Formatieren', auf dem Tab 'Ausrichtung' die 'Zellgröße anpassen' auswählen und wenn du dann die Schriftgröße von vornherein auf 25 einstellst, macht Excel deine Zahlen kleiner sobald sie mehr als 4 Stellen bekommen.

Vielleicht hilft dir das weiter.

Gruß Jeanne

Re: Automatische Anpassung der Schriftgöße
21.05.2003 16:17:51
Mike

Danke Jeanne,

das funktioniert aber nicht bei verbundenen Zellen mit Zeilenumbruch. Sorry hab ich vergessen zu erwähnen.
Alternative???

Gruß
Mike

Re: Automatische Anpassung der Schriftgöße
21.05.2003 16:31:51
Jeanne


kopier dir mal folgendes in den Code der Tabelle

Private Sub Worksheet_Activate()
'Range("A1") mußt du noch anpassen
Select Case Len(Range("A1"))
Case 0 To 4
Range("A1").Font.Size = 25
Case 5 To 8
Range("A1").Font.Size = 18
End Select
End Sub

Denke das es das ist, was du brauchst.

Gruß Jeanne

Anzeige
Re: Automatische Anpassung der Schriftgöße
21.05.2003 16:36:41
Mike

Genau das isses!
Merci beaucoup, Jeanne

101 Forumthreads zu ähnlichen Themen

Automatische Anpassung der Zeilenhöhe
eliewsam

Hallo Excel-Freunde,
gibt es in Excel die Möglichkeit, dass die Zeilenhöhe automatisch an den geschriebenen Text angepasst wird. Die Anpassung sollte sofort erfolgen, sobald der Text in eine Zelle eingegeben wurde und mit Enter bestätigt wurde. Ich kenne bislang nur die manuelle Ausführung...
04.03.2009 10:10:50
Thread-ID: 1056219
3 Beiträge
Anzeige
Zellbezüge im VBA Code automatisch anpassen
Jonathan

Hallo zusammen!
Für die unter Euch, die viel mit VBA arbeiten sicherlich eine "seltsame" Frage:
Ist es irgendwie möglich, Zellbezüge im VBA Code automatisch anzupassen, wenn sich in der Tabelle selbst was ändert (ähnlich wie bei eingegebenen Formeln). Füge ich also z.B. eine Spalte vor...
16.02.2010 01:11:25
Thread-ID: 1138768
4 Beiträge
Spaltenbreite = optimale Breite + X
Falk

Hallo zusammen,
ich würde gerne die Spaltenbreiten der Spalten in meiner Tabelle auf den Wert "optimale Breite" + X setzen, wobei "X" entweder im Code fest vorgegeben wird oder beim Start des Makros abgefragt wird.
Schön wäre es, wenn nur die aktuell markierten Spalten von der Breitenän...
28.04.2010 16:33:57
Thread-ID: 1154333
3 Beiträge
Anzeige
Spaltenbreite in Excel 2003 automatisch anpassen
Maximilian

Guten Tag!
Kann man in Excel 2003 die Spaltenbreite irgendwie automatisch anpassen? Alternativ per VBA Script? Hat da jemand einen Tipp?
13.12.2012 13:09:16
Thread-ID: 1290735
3 Beiträge
Wandernde Dropbox anpassen; Text in Zahl wandeln
Marcus

Hallo,
folgenden Code hat mir Rudi Mantaire zur Verfügung erstellt.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rngJahr As Range Set rngJahr = Intersect(Range("A1"), Target) If Not rngJahr Is Nothing Then varJahr = Range("A1").Value ComboBox1.Visible = False If Tar...
13.11.2014 14:52:13
Thread-ID: 1392208
10 Beiträge
Spaltenbreite an Zoomstufe anpassen
Michael

Hallo,
gibt es die Möglichkeit je nach Zoomstufe Excel zu veranlassen die Spaltenbreite automatisch anzupassen, so dass die Werte immer angezeigt werden und nicht ##### wenn zu wenig Platz vorhanden ist?
Gruß,
Michael
13.04.2015 10:22:27
Thread-ID: 1420460
2 Beiträge
Tabelle automatisch anpassen
Alex

Hallo zusammen,
ich habe folgendes Problem:
Ich habe 3 Arbeitsblätter in den ersten beiden sind Trainings und Seminare in der dritten Tabelle sollen diese zusammengefasst werden. (siehe Datei). Jeder Teilnehmer kann max. 4 Einheiten belegen.
Im angehängtem Beispiel steht bei Lisa i...
25.07.2015 10:26:30
Thread-ID: 1438438
3 Beiträge
Spaltenbreite an vorgegebenen Wert anpassen
Carsten

Hallo,
ich habe ja die Möglichkeit, die Breite einer Spalte auszulesen und in einer Zelle anzeigen zu lassen.
Ich suche nun nach einer Möglichkeit, dass Ganze umgekehrt zu machen. Ich möchte also die Breite einer Spalte in einer Zelle in Pixel angeben und die Spaltenbreite soll sich ent...
24.10.2015 09:26:31
Thread-ID: 1454082
5 Beiträge

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
4
3
2
5
2
9
1
2
4
4
2
16
3
6
1
3
2
5
2
3
3
3
2
2