Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zwischenablage leeren!

Zwischenablage leeren!
29.06.2005 13:15:42
Rocky
Hallo leute,
ich bin's schon wieder! hatte gestern schon mal diesen Beitrag reingestellt doch der verlief irgendwie im sand!
ich möchte alle beiträge die in der Zwischenablage zu sehen sind per vba löschen!
EXPERTEN HELFT MIR!!!!!!!!! ;-(
P.S. unter Bearbeiten "Office-Zwischenablage" einfach mal einfügen! hatte ja auch schon nen paar Abtworten aber die lösen das problem nicht!
gruß Rocky
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zwischenablage leeren!
29.06.2005 13:28:35
Mac4
Hallo Rocky,
Application.CutCopyMode = False
Marc
AW: Zwischenablage leeren!
29.06.2005 13:33:39
Rocky
Das war auch mein erster gedanke! Funktioniert nur oberflächlich! Ich weiß ja nicht welche version du hast! in 2002 kannst du unter bearbeiten dir die zwischenablage anzeigenlassen! kopiere einfach mal 10 verschiedne BEREICHE und sieh dir dabei die Ablage an! Sie wächst und Wächst! mir deinem Code passiert da drinnen gar nichts! oben in der ecke ist ein symbol für alles löschen! also muss es doch irgendwie gehen!
Gruß Rocky
Anzeige
AW: Zwischenablage leeren!
29.06.2005 14:08:58
Rocky
Hi leute, cih merk ja ihr gebt euch richtig mühe! doch irgendwas umbauen kann ich nicht! dafür fehlt mir noch etwas viel wissen!
ich dachte ihr könntet mir irgend was passendes erzählen!
ich glaub ich geh kapputt! da muss es doch irgend etwas geben!
doch nicht mal in der VBA Hilfe ist was drin!
Gruß Rocky
Anzeige
AW: Zwischenablage leeren!
29.06.2005 14:22:46
GerdZ
Hallo Rocky,
soweit mir bekannt ist, kann man das Löschen der ganzen Zwischenablage nur über dieses eine Symbol aufrufen. In VBA sieht das dann so aus:
CommandBars("Clipboard").FindControl(ID:=3634).Execute
Gruß Gerd
AW: Zwischenablage leeren!
29.06.2005 14:30:04
Rocky
Hört sich gut an ! funktionier aber wegen irgendwas nicht!
er sagt: Objektvarialble oder with- Blockvariabe nicht festgelegt
ist das normal?
Gruß Rocky
Anzeige
AW: Zwischenablage leeren!
29.06.2005 14:49:21
GerdZ
Hallo Rocky,
hast Du die Zeile abgetippt oder kopiert?
Versuche mal folgendes:
Application.CommandBars("Clipboard").Visible = True
Application.CommandBars("Clipboard").FindControl(ID:=3634).Execute
Gruß
Gerd
AW: Zwischenablage leeren!
29.06.2005 14:53:17
Panicman
Hallo Rocky,
der Befehl funzt einwandfrei unter XL2000. Bist du sicher, das du die Richtige ID eingetragen hast. Das würde die Fehlermeldung erzeugen.
Mit diesem Makro kannst du alle ID auslesen. Dannach Clipboard suchen und die richtige ID abschreiben.
http://www.excel-center.de/excel/handbuch.php#ID%20von%20Symbolleisten%20und%20Symbolen%20auslesen

Sub CommandBarFaceID_List()
Dim a, b
Application.ScreenUpdating = False
For Each ComBar In Application.CommandBars
If ComBar.Name = "test" Then ComBar.Delete
Next
On Error Resume Next
Set ComBar = Application.CommandBars.Add(Name:="test", Position:=msoBarTop)
Set cbb = ComBar.Controls.Add(ID:=1)
b = 0
For a = 1 To 3518
With cbb
.FaceId = a
.CopyFace
End With
With ThisWorkbook.Sheets(1)
.Cells((a Mod 100) + 1, (a \ 100) + b + 1).Formula = a
.Cells((a Mod 100) + 1, (a \ 100) + b + 2).Activate
ActiveSheet.Paste
End With
If (a + 1) Mod 100 = 0 Then b = b + 2
Next
End Sub

Gruß
Holger
Anzeige
AW: Zwischenablage leeren!
30.06.2005 07:53:10
Rocky
Halo leute!
ich glaub wir kommen nicht weiter! es klappt einfach nicht! habs rüber kopiert! nach dem id hab ich auch gesucht! es ist das was ihr gesagt habt! doch selbe fehlermeldung!
mir ging es ja darum große Sachen (FOTO's) aus dem zwischenspeicher zu löschen! hab mmir mal was anderes ausgedacht! der Zwischenspeicher hat genau 24 Plätze zum Speichern! ich füttere Ihn jetzt mit 24 kleinen KOPIEN dann fallen die anderen hinten runter!
habs so gemacht:
Application.ScreenUpdating = False
For i = 1 To 24
Cells(i, 3).Copy
Cells(i, 5).Select
ActiveSheet.Paste
Next i
Application.ScreenUpdating = True
kann man das so machen?
dauert aber auch irgendwie lange!
Gruß Rocky
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Zwischenablage in Excel mit VBA leeren


Schritt-für-Schritt-Anleitung

  1. VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor in Excel zu öffnen.

  2. Modul hinzufügen: Klicke im Menü auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

  3. Code eingeben: Füge den folgenden Code ein, um die Zwischenablage zu leeren:

    Sub ClipboardLeeren()
       Application.CommandBars("Clipboard").Visible = True
       Application.CommandBars("Clipboard").FindControl(ID:=3634).Execute
    End Sub
  4. Makro ausführen: Schließe den VBA-Editor und gehe zurück zu Excel. Drücke ALT + F8, wähle ClipboardLeeren aus und klicke auf Ausführen.

  5. Überprüfen: Öffne die Office-Zwischenablage, um sicherzustellen, dass die Zwischenablage geleert wurde.


Häufige Fehler und Lösungen

  • Fehlermeldung: "Objektvariable oder With-Blockvariable nicht festgelegt": Diese Fehlermeldung tritt auf, wenn die angegebene ID nicht korrekt ist. Stelle sicher, dass du die ID 3634 verwendest. Wenn das Problem weiterhin besteht, überprüfe, ob die Zwischenablage sichtbar ist:

    Application.CommandBars("Clipboard").Visible = True
  • Makro funktioniert nicht: Manchmal kann es an der Excel-Version liegen. Überprüfe, ob du eine kompatible Version (z. B. Excel 2000 oder 2002) verwendest. Bei neueren Versionen kann es sein, dass die ID geändert wurde.


Alternative Methoden

Falls der VBA-Code nicht funktioniert, kannst du die Zwischenablage auch manuell leeren:

  1. Gehe zu Bearbeiten und wähle Office-Zwischenablage.
  2. Klicke auf Alles Löschen, um die Zwischenablage zu leeren.

Ein weiterer Ansatz ist die Verwendung des Windows 10 Zwischenablage-Verlaufs, den du über die Tastenkombination Windows + V aufrufen kannst.


Praktische Beispiele

Hier ist ein Beispiel, wie du die Zwischenablage automatisch leeren kannst, indem du mehrere kleine Kopien in die Zwischenablage einfügst, um größere Daten zu verdrängen:

Sub AutomatischLeeren()
    Application.ScreenUpdating = False
    For i = 1 To 24
        Cells(i, 1).Copy
        Cells(i, 2).Select
        ActiveSheet.Paste
    Next i
    Application.ScreenUpdating = True
End Sub

Dieses Makro kopiert die Inhalte von Spalte A nach B und drückt somit ältere Daten aus der Zwischenablage.


Tipps für Profis

  • VBA Clipboard leeren: Nutze die Application.CutCopyMode = False Funktion, um die Zwischenablage nach der Benutzung zu leeren.
  • ID von Symbolen herausfinden: Wenn du die ID für andere Symbole herausfinden möchtest, verwende ein Makro, um alle IDs auszulesen.
  • Automatisiere den Prozess: Setze das Makro so auf, dass es automatisch beim Schließen der Datei ausgeführt wird, um die Zwischenablage zu leeren.

FAQ: Häufige Fragen

1. Kann ich die Zwischenablage in Excel 64 Bit leeren?
Ja, der VBA-Code funktioniert auch in der 64-Bit-Version von Excel.

2. Wie kann ich die Zwischenablage unter Windows 10 leeren?
Du kannst den Windows 10 Zwischenablage-Verlauf mit der Tastenkombination Windows + V aufrufen und dort die Einträge löschen.

3. Gibt es eine Möglichkeit, die Zwischenablage automatisch zu leeren?
Ja, du kannst VBA verwenden, um die Zwischenablage nach bestimmten Aktionen automatisch zu leeren.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige