Ich benutze folgende Formel:
="Datum: "&Drucken!BJ14&" "&"Uhrzeit: "&Drucken!BJ15
Kann ich die nur die Werte aus den Zellen in Fett darstellen?
Danke
Gruß
Thomas
Sub test()
ActiveCell.Font.Bold = False
ActiveCell = "Datum: " & CDate(Range("Drucken!BJ14")) & " Uhrzeit: " _
& Format(Range("Drucken!BJ15"), "hh:mm")
ActiveCell.Characters(8, 10).Font.Bold = True
ActiveCell.Characters(28, 5).Font.Bold = True
End Sub
Function test2(zelle1, zelle2)
test2 = "Datum: " & CDate(zelle1) & " Uhrzeit: " & Format(zelle2, "hh:mm")
End Function
Wie kann ich den Teil "Characters(x, y).Font.Bold = True" in diese Function einbauen? Da komme ich zu keiner Lösung.