Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
16.10.2025 00:15:51
Passwort im Herbersforum ändern
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1252to1256
1252to1256
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zwischenablage

Forumthread: Zwischenablage

Zwischenablage
Wolfgang
Hallo
Ich möchte gerne die Anzahl der Zeilen eines Textes
der in die Zwischenablage kopiert wurde auslesen.
Gibt es dafür überhaupt eine Möglichkeit?
gruß
Wolfgang
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zwischenablage
15.03.2012 19:42:51
Nepumuk
Hallo,
so:
Option Explicit

Private Declare Function OpenClipboard Lib "user32.dll" ( _
    ByVal hWnd As Long) As Long
Private Declare Function GetClipboardData Lib "user32.dll" ( _
    ByVal wFormat As Long) As Long
Private Declare Function CloseClipboard Lib "user32.dll" () As Long
Private Declare Function IsClipboardFormatAvailable Lib "user32.dll" ( _
    ByVal wFormat As Long) As Long
Private Declare Function lstrlen Lib "kernel32.dll" Alias "lstrlenA" ( _
    ByVal lpString As Long) As Long
Private Declare Function GlobalLock Lib "kernel32.dll" ( _
    ByVal hMem As Long) As Long
Private Declare Function GlobalUnlock Lib "kernel32.dll" ( _
    ByVal hMem As Long) As Long
Private Declare Function lstrcpy Lib "kernel32.dll" Alias "lstrcpyA" ( _
    ByVal lpString1 As Any, _
    ByVal lpString2 As Any) As Long

Private Const CF_TEXT = 1

Public Sub Beispiel()
    Dim strReturn As String
    strReturn = StringFromClipboard
    If strReturn <> "" Then
        MsgBox CStr(UBound(Split(strReturn, vbCr)) + 1) & " Zeilen"
    Else
        MsgBox "Nix drin"
    End If
End Sub

Private Function StringFromClipboard() As String
    Dim lngHandle As Long, lngPointer As Long
    Dim strText As String
    If IsClipboardFormatAvailable(CF_TEXT) Then
        Call OpenClipboard(0&)
        lngHandle = GetClipboardData(CF_TEXT)
        lngPointer = GlobalLock(lngHandle)
        strText = Space$(lstrlen(ByVal lngPointer))
        Call lstrcpy(strText, ByVal lngPointer)
        Call GlobalUnlock(lngPointer)
        Call CloseClipboard
        StringFromClipboard = strText
    End If
End Function

Gruß
Nepumuk
Anzeige
AW: Zwischenablage
15.03.2012 20:16:25
Wolfgang
Hallo Nepumuk
Danke für die schnelle Antwort.
Die entscheidenden Programmzeile habe ich
Deinem Skript entnommen.
Das was ich wollte klappt einwandfrei.
gruß
Wolgang
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige