Hallo
Habe excel-Tabelle, wo ich in einer Zelle chronologisch Bemerkungen hineinschreibe.
Dazu hab ich ein Makro gemacht, das an den bisherigen Zellinhalt das aktuelle Datum hinzufügt.
Das Problem: Alle Formate im bisherigen Text gehen verloren (Manche Wörter fett, bisherige Datum blau etc.)
Der entsprechende Code: (wann = das aktuelle Datum, es soll blau sein)
ActiveCell = ActiveCell & Chr(10) & wann
ActiveCell.Characters(Start:=Len(ActiveCell) - Len(wann) + 1, Length:=Len(wann)).Font.ColorIndex = 5
ActiveCell.Characters(Start:=Len(ActiveCell), Length:=1).Font.ColorIndex = automatic
Und nochwas: Hab ein Ereignis so programmiert, daß, wenn man auf eine Zelle der entsprechenden Spalte klickt, daneben die Schaltfläche für das Datum-Makro erscheint.
Da kann ich jedoch nur draufklicken, wenn ich außerhalb der Zelle bin.
Gibts auch eine Möglichkeit dafür, wenn ich gerade in der Zellbearbeitung bin?
Grüße
ChriMo
Habe excel-Tabelle, wo ich in einer Zelle chronologisch Bemerkungen hineinschreibe.
Dazu hab ich ein Makro gemacht, das an den bisherigen Zellinhalt das aktuelle Datum hinzufügt.
Das Problem: Alle Formate im bisherigen Text gehen verloren (Manche Wörter fett, bisherige Datum blau etc.)
Der entsprechende Code: (wann = das aktuelle Datum, es soll blau sein)
ActiveCell = ActiveCell & Chr(10) & wann
ActiveCell.Characters(Start:=Len(ActiveCell) - Len(wann) + 1, Length:=Len(wann)).Font.ColorIndex = 5
ActiveCell.Characters(Start:=Len(ActiveCell), Length:=1).Font.ColorIndex = automatic
Und nochwas: Hab ein Ereignis so programmiert, daß, wenn man auf eine Zelle der entsprechenden Spalte klickt, daneben die Schaltfläche für das Datum-Makro erscheint.
Da kann ich jedoch nur draufklicken, wenn ich außerhalb der Zelle bin.
Gibts auch eine Möglichkeit dafür, wenn ich gerade in der Zellbearbeitung bin?
Grüße
ChriMo
