HERBERS Excel-Forum - die Beispiele

Thema: Auslesen der aktuell in der Zwischenablage vorhandenen Formate

Home

Gruppe

Format

Problem

Die aktuell in der Zwischenablage vorhandenen Formate sollen ausgelesen werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: Modul1

Sub TestClipboard()
   Dim vaFormats As Variant, dFormat As Variant
   vaFormats = Application.ClipboardFormats
   For Each dFormat In vaFormats
      Select Case dFormat
         Case xlClipboardFormatBIFF
            MsgBox "xlClipboardFormatBIFF (" & dFormat & ")"
         Case xlClipboardFormatBIFF2
            MsgBox "xlClipboardFormatBIFF2 (" & dFormat & ")"
         Case xlClipboardFormatBIFF3
            MsgBox "xlClipboardFormatBIFF3 (" & dFormat & ")"
         Case xlClipboardFormatBIFF4
            MsgBox "xlClipboardFormatBIFF4 (" & dFormat & ")"
         Case xlClipboardFormatBinary
            MsgBox "xlClipboardFormatBinary (" & dFormat & ")"
         Case xlClipboardFormatBitmap
            MsgBox "xlClipboardFormatBitmap (" & dFormat & ")"
         Case xlClipboardFormatCGM
            MsgBox "xlClipboardFormatCGM (" & dFormat & ")"
         Case xlClipboardFormatCSV
            MsgBox "xlClipboardFormatCSV (" & dFormat & ")"
         Case xlClipboardFormatDIF
            MsgBox "xlClipboardFormatDIF (" & dFormat & ")"
         Case xlClipboardFormatDspText
            MsgBox "xlClipboardFormatDspText (" & dFormat & ")"
         Case xlClipboardFormatEmbeddedObject
            MsgBox "xlClipboardFormatEmbeddedObject (" & dFormat & ")"
         Case xlClipboardFormatEmbedSource
            MsgBox "xlClipboardFormatEmbedSource (" & dFormat & ")"
         Case xlClipboardFormatLink
            MsgBox "xlClipboardFormatLink (" & dFormat & ")"
         Case xlClipboardFormatLinkSource
            MsgBox "xlClipboardFormatLinkSource (" & dFormat & ")"
         Case xlClipboardFormatLinkSourceDesc
            MsgBox "xlClipboardFormatLinkSourceDesc (" & dFormat & ")"
         Case xlClipboardFormatMovie
            MsgBox "xlClipboardFormatMovie (" & dFormat & ")"
         Case xlClipboardFormatNative
            MsgBox "xlClipboardFormatNative (" & dFormat & ")"
         Case xlClipboardFormatObjectDesc
            MsgBox "xlClipboardFormatObjectDesc (" & dFormat & ")"
         Case xlClipboardFormatObjectLink
            MsgBox "xlClipboardFormatObjectLink (" & dFormat & ")"
         Case xlClipboardFormatOwnerLink
            MsgBox "xlClipboardFormatOwnerLink (" & dFormat & ")"
         Case xlClipboardFormatPICT
            MsgBox "xlClipboardFormatPICT (" & dFormat & ")"
         Case xlClipboardFormatPrintPICT
            MsgBox "xlClipboardFormatPrintPICT (" & dFormat & ")"
         Case xlClipboardFormatRTF
            MsgBox "xlClipboardFormatRTF (" & dFormat & ")"
         Case xlClipboardFormatScreenPICT
            MsgBox "xlClipboardFormatScreenPICT (" & dFormat & ")"
         Case xlClipboardFormatStandardFont
            MsgBox "xlClipboardFormatStandardFont (" & dFormat & ")"
         Case xlClipboardFormatStandardScale
            MsgBox "xlClipboardFormatStandardScale (" & dFormat & ")"
         Case xlClipboardFormatSYLK
            MsgBox "xlClipboardFormatSYLK (" & dFormat & ")"
         Case xlClipboardFormatTable
            MsgBox "xlClipboardFormatTable (" & dFormat & ")"
         Case xlClipboardFormatText
            MsgBox "xlClipboardFormatText (" & dFormat & ")"
         Case xlClipboardFormatToolFace
            MsgBox "xlClipboardFormatToolFace (" & dFormat & ")"
         Case xlClipboardFormatToolFacePICT
            MsgBox "xlClipboardFormatToolFacePICT (" & dFormat & ")"
         Case xlClipboardFormatVALU
            MsgBox "xlClipboardFormatVALU (" & dFormat & ")"
         Case xlClipboardFormatWK1
            MsgBox "xlClipboardFormatWK1 (" & dFormat & ")"
         Case Else
            MsgBox "Zwischenablage ist leer (" & dFormat & ")"
      End Select
   Next
End Sub

Beiträge aus dem Excel-Forum zu den Themen Format und ClipBoard

Bedingte Formatierung vor Copy/Paste schützen Clipboard ohne Verweis (Nepumuk)
Bed. Formatierung, wenn alle Beding. erfüllt. Telefonnummer automatisch per VBA formatieren
Komplettes Excel Sheet kopieren mit Formaten Bedingte Formatierung per VBA mit Schleife
Kartendiagramm per VBA erstellen und formatieren bedingte Formatierung
Zellfarbe per Cond Formatting nach Zellfarbe änder UserForm im Querformat drucken
Bedingte Formatierung Teilstringabfrage bei bedingter Formatierung
Bedingte Formatierung mit UND Verknüpfung Textformat (VBA)
Bedingte Formatierung Frage Array in Tabelle kopieren, Verlust von Format
Übernahme in Word Format wird nicht übernommen VBA, 4 Informationen in 4 Zellen schreiben
bedingte Formatierung mit mehreren Bedingungen Datum aus Oracle-Abfrage als Datum formatieren
Bedingte Formattierung Bedingte Formatierung - kleiner als Fehler
Zahlenformat Handynr. Diagramme und ihr Format
bedingte formatierung per VBA Bedingte Formatierung bezogen auf 2. Zelle
Formatgleichheit von Zeichenfolgen für SVERWEIS bedingte Formatierung
Bedingte Formatierung Tabellen - Zellen - Formatieren -
Format übertragen Datumsformatierung
Formatierung anderer Diagramme Zellenformatierung speichern
Diagrammformatierung übertragen Zahlenformat global überprüfen
wenn z.B. Zahl 12 dann grün (Bedingte Formatierung wenn z.B. Zahl 12 dann grün (Bedingte Formatierung
Zahlenformatierung in einem Textfeld Zahlenformat
bedingte Formatierung für zellenbereich Format Datum / Uhrzeit
Eilt - Formatierung "in 1000" Bedingte Formatierung mit 2 Bedingungen
Combobox, CheckBox, TextBox Formatierung Formatierung Dezimalzahlen bei Combobox-Eingaben
Dateiformat vorgeben Datums-Format bei Verketten "falsch"
Text mit Format in Textbox übertragen