ListBox - Einträge 'fett' schreiben

Computer: Software & Programmierung Office Software
1

Hallo zusammen!

Kann mir jemand sagen, wie ich in einer ListBox mit mehreren Einträgen einzelne Einträge „fett“ schreiben kann?

Schon mal vielen Dank für Eure Hilfe.

Jens

2

ListBox Einträge fett bunt schreiben

Kann mir jemand sagen, wie ich in einer ListBox mit mehreren
Einträgen einzelne Einträge „fett“ schreiben kann?

Hi Jens,
soweit ich weiß geht das nicht in einer ListBox.

Es soll mit dem Steuerelement „List View“ gehen, leider weigert sich mein Excel beharrlich so ein „List View“ Ding zu erstellen, egal in der Tabelle oder auf einer UF.

Wenn da jmd. wüßte wie das geht, bitte Mitteilung. Danke.

Einen schönen bunten fetten workaround habe ich dir gebastelt als Ersatz für die ListBox, k.A. ob dir das weiterhilft, also du das anpassen kannst, aber es funktioniert bestens.

http://www.hostarea.de/server-11/November-19978bd1a6…

Da dieser Link nicht ewig gilt nachfolgend die Codes, benötigt wird eine Userform mit einem Spreadsheet und einem Textfeld.
In A1:A10 stehen die anzuzeigenden daten.

Gruß
Reinhard

in DieseArbeitsmappe:

Option Explicit
’
Private Sub Workbook_Open()
Call UFStarten
End Sub

in das Modul der Tabelle:
Option Explicit
’
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub
If Target.Row > 10 Then Exit Sub
If Target.Cells.Count 1 Then Exit Sub
Application.EnableEvents = False
UserForm1.Spreadsheet1.Cells(Target.Row, 1) = Target.Value
Application.EnableEvents = True
End Sub
’
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub
If Target.Row > 10 Then Exit Sub
If Target.Cells.Count 1 Then Exit Sub
Application.EnableEvents = False
UserForm1.Spreadsheet1.Cells(Target.Row, 1).Select
Application.EnableEvents = True
End Sub

in Modul1:
Option Explicit
’
Sub UFStarten()
UserForm1.Show 0
End Sub

in das Modul von Userform1:

Option Explicit
'
Private Sub Spreadsheet1\_SelectionChanging(ByVal EventInfo As OWC.SpreadsheetEventInfo)
TextBox1 = Spreadsheet1.ActiveCell.Value
Cells(Spreadsheet1.ActiveCell.Row, 1).Select
Range("b1") = TextBox1
Range("b1").Interior.Color = ActiveCell.Interior.Color
Range("b1").Font.Color = ActiveCell.Font.Color
Range("b1").Font.Bold = ActiveCell.Font.Bold
Range("b1").Font.Italic = ActiveCell.Font.Italic
TextBox1.BackColor = ActiveCell.Interior.Color
TextBox1.Font.Bold = ActiveCell.Font.Bold
End Sub
'
Private Sub UserForm\_Initialize()
Dim N
With Spreadsheet1
 .ViewableRange = "A1:A10"
 For N = 1 To 10
 .Cells(N, 1) = Worksheets(1).Cells(N, 1).Value
 .Cells(N, 1).Interior.Color = Worksheets(1).Cells(N, 1).Interior.Color
 .Cells(N, 1).Font.Color = Worksheets(1).Cells(N, 1).Font.Color
 .Cells(N, 1).Font.Bold = Worksheets(1).Cells(N, 1).Font.Bold
 .Cells(N, 1).Font.Italic = Worksheets(1).Cells(N, 1).Font.Italic
 Next N
 Cells(Spreadsheet1.ActiveCell.Row, 1).Select
 TextBox1 = .ActiveCell.Value
 .AutoFit = True
End With
End Sub