Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Notiz in Kommentar
zurück: Klassenmodul für ActiveX-Controls in Tabellen weiter: Klassenprogrammierung: Konstruktor überladen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Information Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
gandalf149
Im Profil kannst Du frei den Rang ändern


Verfasst am:
04. Sep 2013, 23:16
Rufname:
Wohnort: Fiersbach


Notiz in Kommentar - Notiz in Kommentar

Nach oben
       Version: Office 2007

Hallo,

oft möchte man wenn Zelländerungen vornimmt oder die Zelle markiert hat Notizen darüber in einen Kommentar schreiben, nur der alte Text im Kommentar soll erhalten bleiben.

Wenn man dies manuell macht, ist das doch mit einigem Zeitaufwand verbunden.

Hier eine Möglichkeit wie das sehr einfach geht.

Folgenden Code in die Tabelle einfügen

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Text As String
Dim l As Integer
Dim txt As String
    If Target.Column <> 3 Or Target.Count > 1 Then Exit Sub
    If Target.Value = "" Then Exit Sub
        txt = Application.InputBox("Notiz eingeben")
            If txt = "" Or txt = "Falsch" Then Exit Sub
                 With Target
                     If .Comment Is Nothing Then .AddComment ("Notizen Max Mustermann")
       
                         With .Comment
                             l = Len(.Text)
                             .Text vbLf & Date & "  " & Time & "  " & "Max Mustermann", l + 1
                             .Shape.TextFrame.Characters(l + 1).Font.Bold = True
                             .Shape.TextFrame.AutoSize = True
                             l = Len(.Text)
                             .Text vbLf & txt, l + 1
                             .Shape.TextFrame.Characters(l + 1).Font.Bold = False
                             .Shape.TextFrame.AutoSize = True
                        End With
               End With
        'hier dein Makro starten
End Sub


Das Beispiel gilt für alle Zellen in Spalte C

die Notiz wird über eine Inputbox eingegeben

die jeweilige Kopfzeile kann im Code eigenen Vorstellungen entsprechend einfach geändert werden.

zB. wenn noch der wochentag vor dem Datum sein soll

Code:
.Text vbLf & WeekdayName(Weekday(Date) - 1) & " " & Date & "  " & Time & "  " & "Max Mustermann", l + 1


Vorschlag von Karl

Wenn der Code dann persönlichen Vorstellungen entspricht, ist es sehr einfach Notizen in den Kommentar zu schreiben.

Gruß Gandalf149

_________________
Jedes Kind ist ein Künstler. Das Problem ist nur, wie man einer bleibt, wenn man erwachsen wird.
Pablo Picasso
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Kommentar aus Zelle übernehmen 18 clanfuehrer 201 05. Feb 2014, 18:05
clanfuehrer Kommentar aus Zelle übernehmen
Keine neuen Beiträge Excel Formeln: Kommentar in eine Zelle, wenn in anderer Zelle best. Wert 5 PattePansen 95 15. Jan 2014, 08:43
PattePansen Kommentar in eine Zelle, wenn in anderer Zelle best. Wert
Keine neuen Beiträge Excel Formeln: Zelleninhalt in Kommentar übernehmen möglich?? 38 smarth 12828 17. Okt 2013, 17:20
Lord Koxinga Zelleninhalt in Kommentar übernehmen möglich??
Keine neuen Beiträge Excel Formeln: Zellinhalt + Kommentar auch in einer anderen Zelle anzeigen 7 muatio 196 01. Jul 2013, 10:35
mutatio Zellinhalt + Kommentar auch in einer anderen Zelle anzeigen
Keine neuen Beiträge Excel Formeln: Kommentar einfügen bei geschützem Blatt 2 heiberno 202 21. März 2012, 20:17
heiberno Kommentar einfügen bei geschützem Blatt
Keine neuen Beiträge Excel Formate: Kommentar einfügen 7 Fiolax 604 05. Jan 2012, 21:19
Fiolax Kommentar einfügen
Keine neuen Beiträge Excel Formeln: Forme: Ergebniszelle soll Kommentar übernehmen 3 wirwissenzuwenig 389 21. Okt 2011, 11:52
wirwissenzuwenig Forme: Ergebniszelle soll Kommentar übernehmen
Keine neuen Beiträge Excel Formate: Word: Kommentarfunktion - Wort Kommentar weglöschen 1 Eja 1413 05. Nov 2010, 21:45
Muffel Word: Kommentarfunktion - Wort Kommentar weglöschen
Keine neuen Beiträge Excel Formate: Kommentar (rotes Dreieck) 5 Mikeelster 5024 10. Aug 2010, 16:28
TH Kommentar (rotes Dreieck)
Keine neuen Beiträge Excel Formeln: Kommentar ohne Autor 4 Max2009 1745 18. Aug 2009, 13:00
Max2009 Kommentar ohne Autor
Keine neuen Beiträge Excel Formeln: Große Textfelder aus PDF als Kommentar im Excel 0 Miss Alibi 1005 30. Jul 2009, 09:47
Miss Alibi Große Textfelder aus PDF als Kommentar im Excel
Keine neuen Beiträge Excel Formate: Bild in Kommentar einbetten 1 Gast 905 30. Okt 2008, 16:38
< Peter > Bild in Kommentar einbetten
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel-Formeln