Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
592to596
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
592to596
592to596
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen automatisch formatieren

Zeilen automatisch formatieren
30.03.2005 16:05:38
Albrecht
Halle Excelnutzer,
vielen Dank für die Antwort von heut morgen, ich bin erst seit heute hier angemeldet.
Ich hab ein zweites Problem:
In einem Tabellenblatt gebe ich in Spalte B ein Kürzel ein (wie Artikelnummer zb), in Spalte C wird über eine Funktion (TEXTE(B25)) ein Text ausgegeben. Der Text erstreckt sich über die Spalten C, D, E. In Spalte F steht ein Wert. Bisher reichte der Platz aus. Jetzt werden die Texte länger und sind nicht mehr komplett sichtbar (wg Spalte F). Was muß ich machen, damit die Funktion automatisch den Text über die Spalten C Bis E mehrzeilig formatiert?
Mit freundlichen Grüßen
A. Grohn
PS: die Splaten D und E werden in einem anderem Bereich der Tabelle gebraucht!

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen automatisch formatieren
30.03.2005 16:36:02
Frank
Hallo Albrecht,
versuche es einmal so:

Sub Makro1()
Dim lngCurRow As Long
lngCurRow = 3   ' als Beispiel
With Range("D" & lngCurRow & ":F" & lngCurRow)
.MergeCells = True      ' Zellen verbinden
.WrapText = True        ' Umbruch einschalten
.VerticalAlignment = xlTop  ' kann man machen (Anordnung oben)
.HorizontalAlignment = xlLeft
'.EntireRow.AutoFit ' Autofit funktioniert nicht bei MergeCells
With .EntireRow
.RowHeight = 2 * .RowHeight ' Höhe verdoppeln
.VerticalAlignment = xlTop ' sieht vielleicht schöner aus (Anordnung oben)
End With
End With
End Sub

Viel Erfolg
Frank.
Anzeige
AW: Zeilen automatisch formatieren
30.03.2005 16:39:27
UweN
Hallo Albrecht,
Spalte C markieren
Format - Zelle formatieren
Reiter "Ausrichtung" wählen und dort Zeilenumbruch aktivieren.
Jetzt wird Dein Text immer am Ende der Spalte automatisch umgebrochen.
Viele Grüße
Uwe

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige