579 Aufrufe
Gefragt in Tabellenkalkulation von
Hallo
Habe mir ein Makro zum Kopieren aufgezeichnet, ohne
Passwort läuft  es einwandfrei
Nach dem hinzufügen des [xurl=https://supportnet.de/faqsthread/854|Auswahl des richtigen Passwortes (Paßwort / Passwort)!]Passworts[/url] bleibt es nach dem
zweiten ausführen mit der fetten Markierung stehen.

Sub HKa()
' A1-HK
    Selection.Copy
    Sheets("In Touch").Select
    ActiveSheet.Unprotect Password:="neinnein"
    Range("D6").Select
   [b] Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False[/b]
    ActiveSheet.Protect Password:="neinnein"
    Sheets("Filtern & Suchen").Select
    Application.CutCopyMode = False
End Sub

Was muss ich ändern um dies zu vermeiden?

Gruss
Hans

5 Antworten

0 Punkte
Beantwortet von fedjo Experte (2.2k Punkte)
Hallo Hans,

Sub HKa()
' A1-HK
Application.ScreenUpdating = False
Sheets("In Touch").Unprotect Password:="neinnein"
ActiveCell.Copy
Sheets("In Touch").Select
Range("D6").PasteSpecial
Sheets("In Touch").Protect Password:="neinnein"
Sheets("Filtern & Suchen").Select
 Application.ScreenUpdating = True
End Sub

Gruß
fedjo
0 Punkte
Beantwortet von
Hallo fedjo
Vielen dank für deine schnelle Hilfe.
Werde es morgen testen.

Gruß
Hans
0 Punkte
Beantwortet von
Hallo
Nach einigen ausprobieren bin ich auf folgendes gestoßen :-(
In einer neuen Excel Datei läuft alles einwandfrei – aber
In meiner vorhandenen Datei im Sheets("Filtern & Suchen") stehen
Formeln aus denen sollen die Werte Kopiert  und  im Sheets("In Touch")
eingefügt werden mit der Formatierung aus dem Sheets("In Touch")
Mit dem aktuellen Makro funktioniert dies leider noch nicht, hatte ich auch
aus Unwissenheit vergessen zu erwähnen.

Gruß
Hans
0 Punkte
Beantwortet von fedjo Experte (2.2k Punkte)
Hallo Hans,
dann vielleicht so:

Sub HKa()
Application.ScreenUpdating = False
Sheets("In Touch").Unprotect Password:="neinnein"
Sheets("In Touch").Range("D6").Value = ActiveCell.Value
Sheets("In Touch").Protect Password:="neinnein"
 Application.ScreenUpdating = True
End Sub

Gruß
fedjo
0 Punkte
Beantwortet von
Hallo fedjo
1A - wunderbar das war die Lösung für mein Anliegen.

Beste Grüße an alle Excel Könner!
Hans
...