Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
500to504
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
500to504
500to504
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Text aus der Zwischenablage in den Kommentar einfü

Text aus der Zwischenablage in den Kommentar einfü
15.10.2004 18:38:23
Bachner Gerhard
Hallo
Einen Text aus der Zwischenablage in den Kommentar einfügen.
Wie kann mann noch alles unter einander und nicht hinter eineander in den Kommentar einfügen.
Damit kann ich die Uhrzeit einfügen.

ActiveCell.Comment.Text Text:=CStr(Now)
ActiveCell.Comment.Text Text:=????????
ActiveCell.Comment.Text Text:= ???Benutzer?????
Vielen vielen dank Gerhard

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text aus der Zwischenablage in den Kommentar einfü
15.10.2004 18:48:30
Bert
ActiveCell.Comment.Text Text:=CStr(Now) & chr(10) & _
"Gerhard" & chr(10) & Application.Username
Bert
AW: Text aus der Zwischenablage in den Kommentar einfü
15.10.2004 19:07:19
Bachner Gerhard
Hallo alles functioniert, da wäre noch was nämlich der Text aus der Zwischenablage.
Vielen dank Gerhard
AW: Text aus der Zwischenablage in den Kommentar einfü
15.10.2004 19:48:44
Nepumuk
Hallo Gerhard,
eine Möglichkeit:


Option Explicit
Private Declare Function GetClipboardData Lib "user32" (ByVal wFormat As Long) As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Long, ByVal ByteLen As Long)
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Const CF_TEXT = 1
Public Sub Gerhard()
    Dim hStrPtr As Long, lLength As Long, sBuffer As String
    OpenClipboard FindWindow("XLMAIN", vbNullString)
    hStrPtr = GetClipboardData(CF_TEXT)
    If hStrPtr <> 0 Then
        lLength = lstrlen(hStrPtr)
        If lLength > 0 Then
            sBuffer = Space$(lLength)
            CopyMemory ByVal sBuffer, ByVal hStrPtr, lLength
        End If
    End If
    CloseClipboard
    With ActiveCell
        On Error Resume Next
        .Comment.Delete
        .AddComment Text:=CStr(Now) & vbLf & Application.UserName & vbLf & sBuffer
    End With
End Sub


Gruß
Nepumuk
Anzeige
AW: Text aus der Zwischenablage in den Kommentar einfü
15.10.2004 22:54:33
Bert
Hi Nepumuk,
der Code ist wie immer gut, nur leider bekomme ich, egal, was in der Zwischenablage steht, nur kurze kryptische Zeichen. Hast du eine Idee, was das sein könnte?
Gruß Bert
AW: Text aus der Zwischenablage in den Kommentar einfü
16.10.2004 08:49:23
Bachner Gerhard
Hallo es klapt.
Vielen dank Gerhard
AW: Text aus der Zwischenablage in den Kommentar einfü
16.10.2004 08:24:10
Bachner Gerhard
Hallo Nepumuk
habe noch nicht probiert, ich habe eine Frage kann es sein das Du aus Siebenbürgen stamst?
Bis dan Gerhard
AW: Text aus der Zwischenablage in den Kommentar einfü
16.10.2004 08:32:36
Nepumuk
Hallo Gerhard,
das war versehentlich das falsche Textformat. Ändere den Wert der Konstanten CF_TEXT auf 7
Gruß
Nepumuk
AW: Text aus der Zwischenablage in den Kommentar einfü
16.10.2004 10:37:18
Bert
Hi Nepumuk,
Änderung auf 7 ist schon besser, hat aber den Schönheitsfehler, dass keine Umlaute
dargestellt werden.
Ich hab im API-Guide nichts Konkretes zu diesem Parameter gefunden, außer dass er
das Format bestimmen soll. Was hat dieser Parameter für einen Wertevorrat?
Gruß Bert


Anzeige
AW: Text aus der Zwischenablage in den Kommentar einfü
16.10.2004 12:50:15
Nepumuk
Hallo Bert,
die möglichen Konstanten:
Public Const CF_TEXT = 1
Public Const CF_BITMAP = 2
Public Const CF_METAFILEPICT = 3
Public Const CF_SYLK = 4
Public Const CF_DIF = 5
Public Const CF_TIFF = 6
Public Const CF_OEMTEXT = 7
Public Const CF_DIB = 8
Public Const CF_PALETTE = 9
Public Const CF_PENDATA = 10
Public Const CF_RIFF = 11
Public Const CF_WAVE = 12
Public Const CF_UNICODETEXT = 13
Public Const CF_ENHMETAFILE = 14
Public Const CF_OWNERDISPLAY = &H80
Public Const CF_DSPTEXT = &H81
Public Const CF_DSPBITMAP = &H82
Public Const CF_DSPMETAFILEPICT = &H83
Public Const CF_DSPENHMETAFILE = &H8E
' "Private" formats don't get GlobalFree()'d
Public Const CF_PRIVATEFIRST = &H200
Public Const CF_PRIVATELAST = &H2FF
' "GDIOBJ" formats do get DeleteObject()'d
Public Const CF_GDIOBJFIRST = &H300
Public Const CF_GDIOBJLAST = &H3FF
Gruß
Nepumuk
Anzeige
P.S.
16.10.2004 12:56:20
Nepumuk
Hallo,
mit dem Clipboard aus FM20.dll funktioniert es tadellos:


Option Explicit
Public Sub Kommentar() 'benötigt Verweis auf "Microsoft Forms 2.0 Object Library
    Dim mydata As New DataObject
    mydata.GetFromClipboard
    With ActiveCell
        On Error Resume Next
        .Comment.Delete
        .AddComment Text:=CStr(Now) & vbLf & Application.UserName & vbLf & mydata.GetText(1)
    End With
End Sub


Gruß
Nepumuk
Anzeige
Doppeldank oT
16.10.2004 13:09:34
Bert
..
AW: Text aus der Zwischenablage in den Kommentar einfü
16.10.2004 08:44:48
Nepumuk
Siebenbürgen? Nein, den Planeten kenne ich nicht. Bin in Soyen/Oberbayern geboren.

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige