Excel Dropdown / Formatierung übernehmen und Spalte vergrößern

[free2k]

Hallo Zusammen,

ich habe ein Dropdown welche mit einer Auswahl von rund 50 Texten. 
Zum Teil nur 1x Zeile lang, jedoch können diese auch mal 5-6 Zeilen lang sein. Die Überschrift ( erste Zeile ) ist in DICK geschrieben. 

Kennt ihr eine Möglichkeit das zum einen die Formatierung bestehen bleibt, und auch ob es eine möglichkeit gibt das sich die höhe selbst anpasst?

Habe jetzt etliches versucht leider ohne erfolg.

Danke & Gruß
Marcel

[schauan]

Hallo Marcel,

für die Höhe solltest Du beim Zellformat den Zeilenumbruch aktivieren.
Die Überschrift bekommst Du nur per Makro wieder fett.

[free2k]

danke dir, ist den Zufällig mal wer über so ein Makro geflogen? :) habe im google ein paar quellen gefunden..aber irgendwie nicht das richtig was ich zum laufen bekommt... :/

[schauan]

Hallöchen,

für die Theorie kann man schon mal den Makrorekorder anwerfen Da bekommt man in etwa so etwas:

Code:

Sub Makro1()
'
' Makro1 Makro
'

'
    ActiveCell.FormulaR1C1 = "?berschrift" & Chr(10) & "Willi Bald"
    With ActiveCell.Characters(Start:=1, Length:=0).Font
        .Name = "Calibri"
        .FontStyle = "Standard"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
    With ActiveCell.Characters(Start:=1, Length:=11).Font
        .Name = "Calibri"
        .FontStyle = "Fett"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
    With ActiveCell.Characters(Start:=12, Length:=11).Font
        .Name = "Calibri"
        .FontStyle = "Standard"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
    Range("A6").Select
End Sub

Auf das wesentliche gekürzt wird es etwas übersichtlicher:

Code:

Sub Makro1()
    ActiveCell.FormulaR1C1 = "?berschrift" & Chr(10) & "Willi Bald"
    With ActiveCell
      .Characters(Start:=1, Length:=11).Font.FontStyle = "Fett"
      .Characters(Start:=12, Length:=11).Font.FontStyle = "Standard"
    End With
End Sub

Damit das flexibel wird und auf die geänderte Zelle reagiert, würde es so aussehen. Voraussetzung dabei ist ein manueller Zeilenvorschub in der Zelle (ALT+ENTER).

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
'Variablendeklaration, Integer
Dim iStart%
    'Mit der aktiven Zelle
    With ActiveCell
      'Position Zeilenvorschub finden
      iStart = InStr(1, .Value, Chr(10))
      'Wenn Position des Zeonvorschubs >0, dann
      If iStart > 0 Then
        'Bis zum Zeilenvorschub Fett formatieren
        .Characters(Start:=1, Length:=iStart).Font.FontStyle = "Fett"
        'Ab nach dme zeilenvorschub normal formatieren
        .Characters(Start:=iStart + 1, Length:=111).Font.FontStyle = "Standard"
      'Ende Wenn Position des Zeonvorschubs >0, dann
      End If
    'Ende Mit der aktiven Zelle
    End With
End Sub

Letzte Aufgabe wäre nun noch das Makro auf den Bereich oder die Zelle zu begrenzen, wo es wirken soll