Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1272to1276
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
1272to1276
1272to1276
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellmarkierung aufheben

Zellmarkierung aufheben
Tim
Hallo,
ich verwende folgendes Makro, um Daten von einem Bereich in einen anderen zu kopieren.
Das klappt auch, allerdings bleiben am Ende des Makros immer die kopierten Zellen markiert und der Rand drumherum flimmert.
Kann mir jemand sagen, wie man das umehen kann ?
Option Explicit
Option Private Module
Sub DefaultData()
' prepares imported data
Application.ScreenUpdating = False
Worksheets(4).Select
With ActiveWorkbook.Worksheets(4)
Range("D11:J12").ClearContents
Range("D33:J34").Copy
Range("D11:J12").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
Application.ScreenUpdating = True
Range("C9").Select
End Sub
VG und vielen Dank Euch im Voraus,
Tim

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zellmarkierung aufheben
12.08.2012 17:26:12
Hajo_Zi
Hallo Tim,
den einen Teil
Application.CutCopyMode = False
vor End Sub

AW: Zellmarkierung aufheben
12.08.2012 17:34:42
Hajo_Zi
Hallo Tim,
Du sollltest die Punkt nicht vergessen wegen With. Die activierung der Tabelle ist nicht notwendig. 
Option Explicit
Sub DefaultData()
' prepares imported data
Application.ScreenUpdating = False
With ActiveWorkbook.Worksheets(1)
.Range("D11:J12").ClearContents
.Range("D33:J34").Copy
.Range("D11:J12").PasteSpecial Paste:=xlPasteValues
End With
Application.ScreenUpdating = True
Application.CutCopyMode = False
End Sub

Gruß Hajo
Anzeige
AW: Zellmarkierung aufheben
12.08.2012 17:39:50
Hajo_Zi
Hallo Tim und aufheben der Markierung. 
Option Explicit
Sub DefaultData()
' prepares imported data
Application.ScreenUpdating = False
With ActiveWorkbook.Worksheets(1)
.Range("D11:J12").ClearContents
.Range("D33:J34").Copy
.Range("D11:J12").PasteSpecial Paste:=xlPasteValues
.Range("A1").Copy
.Range("A1").PasteSpecial Paste:=xlPasteAll
End With
Application.ScreenUpdating = True
Application.CutCopyMode = False
End Sub
Gruß Hajo
AW: Zellmarkierung aufheben
12.08.2012 18:38:07
Tim
Hallo Hajo,
vielen Dank dafür - das klappt super und v.a. die Erklärung ist eine riesen Hilfe ! :-)
Jetzt verstehe ich den Ablauf hier und kann es auch in einer anderen Tabelle anpassen - danke !
Ich habe noch eine kleine andere Frage - vielleicht hast Du dazu auch noch eine Idee ?
Ich verwende als von Workbook_Open in dieser Tabelle folgenden Code, um bestimmte Tasten mit einer MessageBox bzw. einem Makro zu verbinden.
Kannst Du mir sagen, was ich hier ändern muss (und wo genau), damit sich das nur auf diese eine Arbeitsmappe bezieht ?
Private Sub Workbook_Open()
With Application
.DisplayFormulaBar = False
.OnKey "^c", "FeatureDeactivated_Msg"
.OnKey "^p", "FeatureDeactivated_Msg"
.OnKey "{F12}", "ShowUserForm7"
.OnKey "%{F2}", "FeatureDeactivated_Msg"
.OnKey "%{F8}", "FeatureDeactivated_Msg"
End With
End Sub
VG und nochmals vielen Dank,
Tim
Anzeige
AW: Zellmarkierung aufheben
12.08.2012 18:40:43
Hajo_Zi
Hallo Tim,
bei
Private Sub Workbook_Activate()
mußt Du Sie setzen und bei
Private Sub Workbook_Deactivate()
löschen. Unter DieseArbeitsmappe.
Gruß Hajo
AW: Zellmarkierung aufheben
12.08.2012 18:51:57
Tim
Hallo Hajo,
danke nochmal !
Ich gehe bei Workbook_Open einen Umweg über eine UserForm, d.h. beim Öffnen der Arbeitsmappe erscheint zunächst eine UserForm mit einem Text und wenn man den bestätigt, wird durch den Button in der UF der obige Code gestartet.
Daher kann ich Workbook_Activate hier leider nicht verwenden - ginge hier evtl. auch Worksheet_Activate oder etwas anderes ?
VG,
Tim
Anzeige
AW: Zellmarkierung aufheben
12.08.2012 19:07:24
Hajo_Zi
Halo Tim,
das bedeutet dann aber für alle Tabellen.
Gruß Hajo
AW: Zellmarkierung aufheben
12.08.2012 19:28:46
Tim
Hallo Hajo,
das heißt, Worksheet_Activate geht, nur dass ich es dort in jedem Blatt separat einfügen muss ?
Das wäre kein Problem.
Habe ich es richtig verstanden und gibt es hier noch etwas zu beachten ?
VG,
Tim
AW: Zellmarkierung aufheben
12.08.2012 19:30:51
Hajo_Zi
Hallo Tim.
das hast Du ricvhtig verstanden. Du mußt nur beachten das Du die Zuweisung nicht mehrmals machhs, ich vermute das löst ein Fehler aus.
Gruß Hajo
Anzeige
AW: Zellmarkierung aufheben
12.08.2012 20:02:05
Tim
Klasse - vielen Dank für alles, Hajo !
Viele Grüße und einen schönen Abend noch,
Tim
Anzeige

Links zu Excel-Dialogen

UserForm MessageBox

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