Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1160to1164
1160to1164
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel: Zwischenablage ist gleich wieder weg

Forumthread: Excel: Zwischenablage ist gleich wieder weg

Excel: Zwischenablage ist gleich wieder weg
Holger
Hallo und Guten Morgen,
ich habe ein seltsames Problem. Irgendwas muss ich in einer meiner letzten Versionen programmiert haben, was die Zwischenablage verändert hat.
Markiere ich eine Zelle und drücke STRG + C und füge es danach ein, ist die Zwischenablage wieder leer.
Normalerweise sollte die Zelle ja auch nach em Einfügen noch in der Zwischenablage sein.
Ich bin alle Codeveränderungen durchgegangen soweit möglich, aber ich finde nichts.
Hat jemand von euch eine Idee woran das liegen könnte?
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Bitte lest das mal, unglaublich
18.06.2010 09:33:02
Holger
Hallo,
wenn ich per VBA Application.CutCopy = true setze, geht es so lange wie
das Modul noch nicht ganz beendet ist. Sobald ich zu Excel zurückkehre und die Ausführung des Moduls komplett beendet ist, geht es wieder nicht?!?!?
Wie kann das denn sein?
Hilfe, ich habe Geister
18.06.2010 09:37:13
Holger
Sorry für die vielen Postings, aber es ist so:
Solange das Modul läuft (also im Einzelschritt), klappt es, sobald es beendet ist,
geht es wieder nicht.
Oje, was kann das zu bedeuten haben?
Anzeige
Wen's interessiert: Die Lösung
18.06.2010 10:14:02
Holger
Hallo,
puuh, nachdem ich jede Codezeile mit einer früheren Version geprüftb habe, hier die Lösung:
Public Sub Worksheet_Change(ByVal Target As Range)
Dim RaBereich, RaBereich2 As Range, RaZelle, RaZelle2 As Range
Application.CutCopyMode = xlCopy
Application.CutCopyMode = True
Set RaBereich = Range("R7:R3000")
Set RaBereich = Intersect(RaBereich, Range(Target.Address))
Set RaBereich2 = Range("Q7:Q3000")
Set RaBereich2 = Intersect(RaBereich2, Range(Target.Address))
If Not RaBereich Is Nothing Then
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
For Each RaZelle In RaBereich
With RaZelle
If RaZelle.EntireRow.Hidden = False Then
If RaZelle.Value  "" Then
RaZelle.Offset(0, -2) = "OK"
RaZelle.Offset(0, -2).Font.Color = vbBlue
Else
RaZelle.Offset(0, -2) = ""
End If
End If
End With
Next RaZelle
End If
Application.ScreenUpdating = True DIESE DREI ZEILEN MÜSSEN ÜBER DAS ENDIF!!!!!
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End Sub

Anzeige
AW: Excel: Zwischenablage ist gleich wieder weg
18.06.2010 10:25:00
fcs
Hallo Holger,
meistens passiert dies wenn Worksheet_Change-Ereignismakros ausgeführt werden und in diesen Makros Anweisungen enthalten sind, die den Kopiermodus aufheben.
Dem kann man gegensteuern, wenn der Kopierstatus geprüft wird und die Zellselektion gespeichert wird. Dann kann man bei Bedarf den Kopiermodus einschliesslich der zugehörigen Zellen wieder aktivieren.
Nachfolgend ein Beispiel.
Gruß
Franz 
Option Explicit
Private rSelektion As Range
Private Sub Worksheet_Change(ByVal Target As Range)
Dim StatusCopy As Boolean
If rSelektion Is Nothing Then Set rSelektion = Selection
If Application.CutCopyMode = xlCopy Then
StatusCopy = True
End If
Application.EnableEvents = False
' Hier der auszuführende bisherige Code - Beispiel
Dim Zelle As Range
If Target.Column = 1 And Target.Columns.Count = 1 Then
Target.AutoFill Range(Target.Offset(0, 0), Target.Offset(0, 2))
End If
'Kopierten Bereich reaktivieren
If StatusCopy = True Then
rSelektion.Copy
End If
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode  xlCopy Then Set rSelektion = Selection
End Sub

Anzeige
AW: Excel: Zwischenablage ist gleich wieder weg
18.06.2010 10:50:23
Holger
Hi Franz,
Danke, du warst ja genau auf dem richtigen Weg und verunsicherst mich jetzt.
Kannst du bitte mal meinen code in meinem LÖSUNGSPOSTINGS ansehen?
Ich weiss nur, dass es jetzt geht, aber nicht wieso und warum. Kein gutes Gefühl!
AW: Excel: Zwischenablage ist gleich wieder weg
18.06.2010 21:57:46
fcs
Hallo Wolfgang,
die Anweisung
Application.Calculation = xlCalculationAutomatic
ist diejenige, die den Kopiermodus zurücksetzt.
Dadurch, dass du sie vor "End If" verschoben hast wird sie jetzt nur noch ausgeführt, wenn Änderungen in der Spalte R gemacht werden.
Wenn du nicht innerhalb der Spalte R kopieren willst, dann ist dein Code ja so OK.
Die Zeilen 
    Application.CutCopyMode = xlCopy
Application.CutCopyMode = True
kannst du weglassen.
Gruß
Franz
Anzeige
Super, Danke!
20.06.2010 17:50:48
Holger
Hallo,
Cool, jetzt habe ich echt mal was gelernt!
Super, Danke!
20.06.2010 21:54:45
Holger
Hallo,
Cool, jetzt habe ich echt mal was gelernt!

Forumthreads zu verwandten Themen

Zelle nichtleer, dann Spalten ausblenden
kellerkind42

hallo.
Ich tue mich sehr schwer mit folgendem Wunsch:
Im Spaltenbereich A-Z:
Im Zeilenbereich 10 -20:
z.B:
Steht in Spalte C etwas in Zeile 10 oder 11 oder 12.... dann Blende diese Spalte aus!
Kann mir bitte jemand auf die Sprünge helfen?
Gruß Reinhardt.
20.08.2008 07:29:00
Thread-ID: 1003062
6 Beiträge
Spalten lassen sich nicht auf Breite 0 schieben
Gordon

Moin,
ich versuche gerade per Makro bestimmte Spalten auf die Breite 0 zu schieben. Als es da fr mich unerklärliche Probleme gab, hab ich mal versucht, die Spalten per Hand auf Breite null zu schieben und siehe da, folgende Meldung erscheint: "Objekte können nicht über das Blatt hinausver...
17.09.2008 14:10:57
Thread-ID: 1010385
4 Beiträge
Anzeige
Teilergebnis einer Spalte wird nicht angezeigt
thaake

Hallo,
ich lasse mir die Teilergebnisse verschiedener Spalten anzeigen mit =Teilergebnis(9;V5:V300), was auch überall klappt, aber nur eine Spalte weigert sich. Formatierung ist vollkommen ok, das Anzeigen in einer anderen Zelle mit Verweis auf diese Spalte klappt auch nicht. Summe dagegen...
22.09.2008 11:21:12
Thread-ID: 1011416
2 Beiträge
Anzeige
Inhalt von UF wird nicht angezeigt
UF

Hi Forum,
ich starte meine UF mit dem folgenden Code:
Sub auto_open() Application.WindowState = xlMinimized UF_BitteWarten.Show vbModeless Application.Run "RESETMASK" UF_BitteWarten.Hide UF_Maske.Show End Sub
Wie zu erkennen, wird beim Start ein Reset ausgeführt, der einige Sekun...
26.09.2008 14:29:02
Thread-ID: 1012639
16 Beiträge
Anzeige
Spalte auslesen und in eine neue schreiben
Andrej

Hallo,
ich sitz seit gestern an nem Excel Dokument und habe es schon mit Formeln versucht, aber das alles nicht das Wahre.
Gibt es eine Lösung bei der ich aus der Spalte C nach bestimmten Sachen suchen lassen, die ich immer vorgeb, wie z.b. XY oder AB und er mir auch der Vorgabe nach in...
19.11.2008 12:46:00
Thread-ID: 1025987
13 Beiträge
Spalte keine Ansicht und nicht drucken
Frederic

Hallo Zusammen
Hätte eine blöde Frage:
Wie kann ich mit VBA erreichen, dass die Spalte C1:C60 nicht in der Seitenansicht und auch nicht gedruckt wird. Grund: Habe dort Listenvermerke drin.
Für Eure generöse Hilfe danke ich schon im Voraus
Salvus
Frederic
20.12.2008 19:23:00
Thread-ID: 1034447
23 Beiträge
nach maximieren eigene Menüleiste weg
Frank

https://www.herber.de/bbs/user/57988.xls
Hallo Excelfreunde wünsche ein Frohes 2009.
Hab wieder mal ein Problem und hoffe es kann mir jemand helfen.
Habe eine eigene Menüleiste erstellt.
Wenn ich jetzt die Mappe über "Desktop anzeigen" in der Taskleiste minimiere und ansch. wie...
01.01.2009 22:51:00
Thread-ID: 1036311
2 Beiträge
Anzeige
langer Text wird nicht mehr angezeigt
u_hoernchen

Ich muss einen langen Text (ca. 1.500 Zeichen) in eine Excel-Zelle schreiben (geht leider nicht anders, also das bitte nicht in Frage stellen). Nun wird beim Ausdruck und bei der Bildschirmanzeige aber die letzte Zeile nicht mehr umgebrochen (Zeilenumbruch ist formatiert), in der Zelle steht ab...
05.01.2009 11:10:25
Thread-ID: 1036916
4 Beiträge
Wiedergabe von Werten aus einer Spalte
Werten

Hallo zusammen,
ich habe in einem Tabellenblatt in einer Spalte ca. 16000 Werte stehen (Form: Buchstaben+Zahlenkombinationen (Auftragsnummern)) die beliebig häufig vorkommen können. Es sind aber nur ca. 30 verschiedene Werte. Nun möchte ich in einer automatisierten Ausgabe in einer neuen Sp...
16.01.2009 10:27:00
Thread-ID: 1040456
6 Beiträge
@Timo: das ist neu Beitrag, da alter weg ist !
Richi

Hi Finde unseren ewig langen Beitrag nicht mehr ! habbe schon alles durchgewühlt, deshalb neu !
Also:
jatzt kann ich alle pbc Dateien einlesen.
aber beim Schreiben probleme !
https://www.herber.de/bbs/user/58643.jpg

Variable nicht definiert....
kans mal schuan !...
21.01.2009 09:55:23
Thread-ID: 1042071
3 Beiträge
ListenFelder füllen aus Spalten
Andre´

Hallo alle zusammen,
ich möchte vom aktiven Tabellenblatt die Spalten A, B, C, D in eine UserForm einlesen, beginnend ab Zeile 2 bis zu der Zeile, wo der letzte Eintrag in der Spalte A vorhanden ist.
Jede der genannten Spalten soll in einen eigenen Listenfeld erscheinen.
Ziel soll...
02.02.2009 16:41:17
Thread-ID: 1046318
4 Beiträge
Spalten-Hintergrundfarbe wiederherstellen
Werner

VBA-Level: befriedigend
Hallo Freunde,
wenn ich in Excel 2007 Dubletten aussondere, erscheinen in mit einer Hintergrundfarbe gefaerbten
Spalten immer weiße Stellen, oft bis zum Ende der Tabelle, und zwar durch die Reihe in allen Spalten.
Dies kann auch bei der Anpassung eines zu...
03.02.2009 08:22:16
Thread-ID: 1046503
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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