Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
884to888
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
884to888
884to888
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Kleines Problem

Kleines Problem
10.07.2007 19:30:38
Salim

Hallo zusammen,
mit viel Hilfe habe ich folgendes Code erarbeitet. Wollte dazu das Copy.Pastespecial einfügen, jetzt funktioniert irgendwas nicht ;( bitte sagt mir warum ;) Danke Salim


Private Sub CommandButton1_Click()
Me.Hide
Inp = InputBox("Geben Sie das Passwort ein", "")
If Inp <> "Beispiel" Then
MsgBox "Falsches Passswort"
Exit Sub
End If
Dim wks As Worksheet, wbThis As Workbook, wbSave As Workbook
Dim rng As Range
Set wbThis = ThisWorkbook
With wbThis.Worksheets("Abrechnungsblatt")
strDateiname = ThisWorkbook.Path & "\" & .Range(" J4") & "_" & .Range("R8") & "_" & _
.Range("R6") & "_" & "Backup" & "_" & Format(Date, "YYYYMMDD") & ".xls"
End With
wbThis.SaveCopyAs strDateiname
Set wbSave = Workbooks.Open(Filename:=strDateiname)
wbSave.Unprotect
For Each wks In wbSave.Worksheets
wks.Unprotect
For Each rng In wks.UsedRange.Cells
rng.Copy
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
If Not IsEmpty(rng) Then rng.Locked = True
Next rng
wks.Protect
Next wks
wbSave.Protect
wbSave.Close savechanges:=True
End Sub


3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kleines Problem
10.07.2007 19:35:18
Chaos
Servus Salim,
da steht Selection.PasteSpecial...
Welche Selection ?
Du hast doch garnichts selected.
Gruß
Chaos

AW: Kleines Problem
10.07.2007 21:32:34
Wolfgang
Es sollte klappen, wenn Du


rng.Copy
rng.select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


machst. Gruß, Wolli

AW: Kleines Problem
11.07.2007 09:04:47
Salim
Vielen Dank!!!
Ich dachte über rng copy wäre es schon selected.....
Gruss
Salim

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige