K

Problem Makro
Kalenderwoche nach DIN ermitteln Function DINKw(Tag)
    DINKw = DatePart("ww", Tag, vbMonday, vbFirstFourDays)
End Function
Autorenangabe bei Kommentaren löschen. von Wolf W. Radzinski

Sub ch_user_to_zero()
Dim c As Comment
For Each c In ActiveSheet.Comments
del_str = Len(c.Author) + 2 'inkl. Doppelpunkt und Zeilenvorschub
ctl = Len(c.Text)
If ctl > del_str Then
If InStr(1, c.Text, c.Author) > 0 Then
c.Text Text:=Right(c.Text, Len(c.Text) - del_str)
End If
End If
Next
End Sub

Kommentare anderer einzeln nacheinander anzeigen Sub KommentareAndererAnzeigen()
Dim c As Comment
For Each c In ActiveSheet.Comments
'Hier den eigenen Namen eingeben
If c.Author <> "Bert Körn" Then
c.Visible = True
c.Parent.Select
'die Msgbox wird zum Halten gebraucht.
'mit OK geht es zu nächsten Zelle

MsgBox c.Author
c.Visible = False
End If
Next
End Sub


Meine aktuellsten Exceltipps finden Sie hier: