Anzeige
Archiv - Navigation
1156to1160
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Text mit unterschiedlicher Formatierung

Text mit unterschiedlicher Formatierung
DirkR
Hallo Excelgemeinde,
ich habe fogendes Problem und brauche eure Hilfe:
Folgender Code fügt das heutige Datum und die Kalenderwoche in die aktive Zelle ein:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim Bereich As Range
Cancel = True
Set Bereich = Range("C5:H43")
If Intersect(Target, Bereich) Is Nothing Then Exit Sub
ActiveCell.Value = Format(Date, "dd.mm.yyyy") & "/ " & KW(Date) & ". KW"
End Sub

Function KW(Datum As Date) As Integer
' Berechnt die KW nach DIN 1355
Dim t&
t = DateSerial(Year(Datum + (8 - Weekday(Datum)) Mod 7 - 3), 1, 1)
KW = (Datum - t - 3 + (Weekday(t) + 1) Mod 7) \ 7 + 1
End Function
Jetzt hätte ich aber gerne, dass die Angabe der Kalenderwoche in der Zelle Fett formatiert wird.
(Also ab: & KW(Date) & ". KW")
Gruß Dirk R.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
da die Formatierung immer gleich scheint ...
18.05.2010 07:51:29
Matthias
... könnte das klappen
Hallo Dirk
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim Bereich As Range
Cancel = True
Set Bereich = Range("C5:H43")
If Intersect(Target, Bereich) Is Nothing Then Exit Sub
ActiveCell.Value = Format(Date, "dd.mm.yyyy") & "/ " & KW(Date) & ". KW"
With ActiveCell.Characters(Start:=12, Length:=7).Font
.FontStyle = "Fett"
End With
End Sub
Gruß Matthias
Korrektur: Start:=13, Length:=6 (kwT)
18.05.2010 07:59:47
Matthias
AW: Korrektur: Start:=13, Length:=6 (kwT)
18.05.2010 08:22:55
DirkR
Hallo Matthias,
danke für deine Antwort.
Dein Code funzt.
DANKE!!!
Gruß Dirk R.
Anzeige

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige