Hallo,
Ich versuche gerade bei Excel den Text in meinen Kästchen so zu formatieren, wie es in Word mit der Funktion „Absatz“ möglich ist. Leider klappt es gar nicht.
Die Höhe meiner Kästchen passt sich automatisch dem Text an. Was ich erreichen will ist, dass am Ende von jedem Kästchen nochmal so 3-6 pt Absatz eingefügt wird. In Word ist das möglich, wenn man unter Format>Absatz bei „Abstand“ im Feld „Nach“ 3 bzw. 6 eingibt.
Ich wüsste gerne ob es eine entsprechende Funktion bei Excel gibt. Mir geht es vor allem darum dass automatisch ans Ende jedes Kästchens ein kleiner Abstand kommt, so dass man eine Zeile besser von der nächsten unterscheiden kann. Ich möchte NICHT manuell in jedem Kästchen mit [Alt]+[Enter] noch eine Leerzeile einfügen.
Über eure Hilfe würde ich mich sehr freuen.
Beste Grüße,
Philipp
Die Höhe meiner Kästchen passt sich automatisch dem Text an.
Was ich erreichen will ist, dass am Ende von jedem Kästchen
nochmal so 3-6 pt Absatz eingefügt wird. In Word ist das
möglich, wenn man unter Format>Absatz bei „Abstand“ im Feld
„Nach“ 3 bzw. 6 eingibt.
Ich wüsste gerne ob es eine entsprechende Funktion bei Excel
gibt. Mir geht es vor allem darum dass automatisch ans Ende
jedes Kästchens ein kleiner Abstand kommt, so dass man eine
Zeile besser von der nächsten unterscheiden kann.
Hallo Philipp,
du könntest die Zeilenhöhe erhöhen und bei Zellformat bei „Vertikal“ „oben“ auswählen.
Oder per Vba, so z.B.:
Sub tt()
Dim Zelle As Range
For Each Zelle In ActiveSheet.UsedRange
If Zelle.Value "" Then
If Right(Zelle.Value, 1) Chr(10) Then
Zelle.Value = Zelle.Value & Chr(10)
End If
End If
Next Zelle
End Sub
Gruß
Reinhard
Hallo Philipp,
eine automatische Formatierung dazu gibt es in Excel nicht - Excel ist ja auch kein Textbearbeitungsprogramm.
Man muss dann die Zeilenhöhe anpassen. Dies kann man per Makro automatisieren.
Gruß
Franz
Option Explicit
'Erstellt unter Excel 2007 im Kompatibilitätsmodus 97-2003
'Automatisch nach jeder Werteingabe ändern
'Dieses Makro im VBA-Editor unter Tabelle einfügen
Private Sub Worksheet\_Change(ByVal Target As Range)
Dim Zeile As Long
'Ab Zeile 5 Zeilenhöhe bei der Eingabe automatisch anpassen
'funktioniert nicht bei verbundenen Zellen im Zeilenbereich.
If Target.Row \>= 5 Then 'Zeilennummer ggf anpassen
Application.ScreenUpdating = False
For Zeile = Target.Row To Target.Row + Target.Rows.Count - 1
Rows(Zeile).AutoFit
Rows(Zeile).RowHeight = Rows(Zeile).RowHeight + 3
Next
Application.ScreenUpdating = True
End If
End Sub
'Einmalig jeweils nach Beenden aller Eingaben starten
'Diese Makro im VBA-Editor in der Datei oder der persönlichen Makro-Arbeitsmappe \_
in einem allgemeinen Modul speichern
Sub ZeilenHoehe\_erhöhen()
Dim Zeile As Long
'Ab Zeile 5 Zeilenhöhe bei der Eingabe automatisch anpassen
'funktioniert nicht bei verbundenen Zellen im Zeilenbereich.
Application.ScreenUpdating = False
For Zeile = 5 To Cells.SpecialCells(xlCellTypeLastCell).Row
Rows(Zeile).AutoFit
Rows(Zeile).RowHeight = Rows(Zeile).RowHeight + 3
Next
Application.ScreenUpdating = True
End Sub