Excel VBA: Wenn Zeile fett, dann Text einfügen

Hi !

Ich habe eine Tabelle, in der in unregelmäßigen Abständen der Text in Spalte A fett ist. Ich möchte nun (mit VBA?), dass wenn in Spalte A der Text fett ist, er mir in Spalte B einen (variierenden ) Text aus einem anderen Tabellenblatt einfügt.

Weiß da jemand bescheid?
MFG und Danke

Du mußt dir mit VBA eine Funktion selber definieren und diese dann in den Zellen der Spalte B aufrufen.

Prinzipiell geht das so:
http://www.juranaut.de/excel-funktionen-mit-vba-selber-definieren/

In der Funktion kannst Du dann alle Excel Objekte verwenden, also auch das Range.Font Object, um die Schrift bzw. die Eigenschaft "bold" der Zelle aus Spalte A abzufragen.

Hi!
Danke miac für die Antwort. Habe es selbst rausbekommen (*freu*). Der Sachverhalt hat sich aber etwas verändert. Der Code sucht nun nach "fettschrift" und gibt dann den gleichen Inhalt eine Zeile darunter aus, bis er auf eine Leerzeile trifft.

Hier die Lösung, falls es mal jemand braucht:



Sub Fettschrifterkennung()

Range("A2:A40").Select

For i = 1 To 40

If ActiveCell(i).Value <> "" And ActiveCell(i).Font.Bold = False Then ActiveCell.Offset(i, 0).Value = ActiveCell(i)


Next i

End Sub