Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 10:59:29
Datei Auswählen und öffnen
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1040to1044
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
1040to1044
1040to1044
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

37 Forumthreads zu ähnlichen Themen

Sharepoint: Open exportfile For Output - Error
Bernhard

Hallo Forumsgemeinde,
das folgende Makro (ausgeführt Before_Close) liefert mir einen Fehler "Runtime error 52 - Bad Filename or Number".
Die Originaldatei liegt auf einem Sharepoint Server und das Ergebnis soll auch auf dem Sharepoint Server abgelegt werden
(Hintergrund ist, dass wi...
06.05.2009 11:42:07
Thread-ID: 1073299
2 Beiträge
Anzeige
Zus.fassen Datenblättern; inkl. Formeln+VBA-Code
Fred

Hallo liebe Wissende,
...ich reibe mich seit mehrern Tagen an einem Problem in Exel. Ich werde etwas mehr dazu schreiben müssen, da schwer in 2 Sätzen darstellbar.
Ausgangspunkt: mehrere Exeldateien mit vielen Tabellenblättern (...die ich nicht erstellt habe...).
Ziel: aus allen Dat...
18.06.2009 12:51:27
Thread-ID: 1082547
4 Beiträge
bei Zeile einfügen per VBA Summenformel anpassen
Klaus

wie kann ich erreichen, dass eine Summenformel im Tabellenblatt z.B. Zelle A1: '=Summe(A2:A10)' nach dem einfügen einer Zeile nach der 10ten Zeile sich in '=Summe(A2:A11)' ändert!
Für den Fall, dass die Summe unter der Liste steht hab ich hier im Forum mal eine geniale Lösung gelesen:=SUMME(...
12.04.2002 17:43:41
Thread-ID: 112908
11 Beiträge
Anzeige
VBA: Userform Minimieren Maximieren (Klassenmodul)
Lombe

Hi Leute,
ich kenn mich mit Klassenmodule wenig aus und habe daher folgendes Problem.
Meine Userform hat neben dem Schließkreuz rechts oben nun auch die Minimeren und Maximieren Schaltflächen dank der Codes (siehe Quellenangaben) die u.a. im Klassenmodul stehen.
Frage:
Ich möcht...
13.01.2012 00:54:48
Thread-ID: 1245764
4 Beiträge
VBA - OpenText wird ignoriert
Andreas

Hi VBA-Profis,
ich öffne mit einem AddIn eine xls-Arbeitsmappe, welche durch die Workbooks_Open-Prozedur ein Formular dieser Arbeitsmappe anzeigt. Mit einem Schalter des Formulars möchte ich eine Textdatei mit OpenText öffnen - Excel ignoriert diese Funktion und arbeitet weiteren Code ab.
27.06.2002 11:43:42
Thread-ID: 131838
3 Beiträge
VBA: getopenfilename in pt-sourcedata einfügen
Peter

Hallo.
Ich möchte per Makro für ein pt mittels Öffnen-Methode eine andere Excel-Datei (mit Bereich "data") als Datenquelle zuordnen. Mit dem ua VBA-Code sind die Datentypen nicht verträglich.
Bitte und Danke. lg. Sub OPEN_PROGNOSE() Dim Fname As Variant Dim srcdata As String ' Change dr...
06.10.2015 18:39:19
Thread-ID: 1451092
2 Beiträge
Mittesl VBA Formel anpassen
Malte

Guten Morgen,
ich erfasse mittels einer Eingabemaske auf einem Excel-Sheet 13 Werte über TextBoxen, welche dann auf die aus einer Combobox ausgewählten Tabelle eingetragen werden. Dies klappt soweit auch.
Jetzt habe ich in den einzelnen Tabellen in der Zelle D1 eine Formel stehen, welch...
09.06.2016 09:35:39
Thread-ID: 1497880
7 Beiträge
VBA - Formatierung anpassen
Berndt

Hallo zusammen,
ich habe einen Schusselfehler im Makro, den ich nicht finde.
Vll kann mir einer helfen.
Ich möchte mit dem fett markierten Bereich im Code ienfach die Verantwortlichen mit einer gepunkteten Linien abtrennen im Dahboard.
Private Sub CommandButton4_Click() Dim a Di...
23.09.2016 08:03:36
Thread-ID: 1515935
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
8
3
10
7
3
2
1
6
2
5
1
6
3
3
1
3
3
3
1
2
9
4
6
7