Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zwischenablage > For Input As #1

Zwischenablage > For Input As #1
18.01.2009 23:16:00
Gopla
Hallo liebe Gemeinschaft,
ich spinne mir gerade mal wieder was aus und suche neue "Probleme" (spass)
Folgendes:
bis jetzt hole ich mir meine Daten welche ich bearbeiten möchte durch
Open "Pfad:\TXTdatei.txt" For Input As #1
Frage:
Ob überhaupt und wenn ja, wie kann ich einen Text, denn ich durch ctrl + c in die Zwischenablage geholt habe anstatt Open ...For Input As #1 direkt verarbeiten?
Danke im Voraus
Gopla
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zwischenablage > For Input As #1
18.01.2009 23:55:10
mumpel
Hallo!
Zuerst musst Du einen Verweis auf die Microsoft Forms 2.0 Object Librarycolor> setzen.
Dann probiere folgendes Makro.

Private Declare Function RegisterClipboardFormat Lib "user32" _
Alias "RegisterClipboardFormatA" _
(ByVal lpString As String) As Long

Sub TextAusZA()

Dim nCFHTML As Long
Dim MyData As New DataObject
Dim nClipboardText As String
Dim htmltext As String
Dim Text1 As String
MyData.GetFromClipboard
Text1 = MyData.GetText(1)
MsgBox Text1
End Sub


Code eingefügt mit VBA in HTML 2.0size>
Gruß, René
Anzeige
Nachtrag
18.01.2009 23:57:53
mumpel
Nachtrag: Die ersten 3 Codezeilen (Private Declare Function) vor dem Makro kannst Du weglassen.
AW: Zwischenablage > For Input As #1
19.01.2009 00:37:01
Josef
Hallo Hopla,
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub TextFromClipboard()
    'Benötigt den Verweis auf "Microsoft Forms 2.x Object Library" (unter Extras > Verweise)
    Dim objCBData As DataObject
    
    Set objCBData = New DataObject
    
    On Error GoTo ErrNoText
    objCBData.GetFromClipboard
    MsgBox objCBData.GetText
    
    ErrNoText:
    If Err.Number <> 0 Then MsgBox "Kein Text in der Zwischenablage!"
    
    Set objCBData = Nothing
End Sub

Gruß Sepp

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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