Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1676to1680
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
Inhaltsverzeichnis

Code funzt nicht bei Office 2016/win10

Code funzt nicht bei Office 2016/win10
02.03.2019 18:28:17
Henno
Hallo zusammen, ich habe folgendes Problem.
Unter meiner "Heim-Umgebung" (Office 2013/ win10) funktioniert folgender Code problemlos:
Sub Progressbar3()
Set wb = ActiveWorkbook
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:="***"
ActiveSheet.Copy
VBALöschen
Dim oWSHShell As Object
Set oWSHShell = CreateObject("WScript.Shell")
GetDesktop = oWSHShell.SpecialFolders("Desktop")
ActiveWorkbook.SaveAs "" & GetDesktop & "\Kopie vom " & Format(Date,"YYYY_MM_DD") & ".xlsx"  _
, FileFormat:=xlOpenXMLWorkbook, WriteResPassword:="tigger"
ActiveSheet.Shapes.SelectAll
Selection.Delete
ActiveSheet.Rows("77:167").Clear
ActiveSheet.Columns("C:G").ClearContents
ActiveSheet.Columns("C:G").Delete
ActiveSheet.Columns("G:CU").ClearContents
ActiveSheet.Columns("G:CU").Delete
ActiveSheet.Columns("AL:AW").ClearContents
ActiveSheet.Columns("AM:AW").Delete
ActiveSheet.Columns("BP:CA").ClearContents
ActiveSheet.Columns("BQ:CA").Delete
ActiveSheet.Columns("CV:DG").ClearContents
ActiveSheet.Columns("CW:DG").Delete
ActiveSheet.Columns("EA:EL").ClearContents
ActiveSheet.Columns("EB:EL").Delete
ActiveSheet.Columns("FG:FR").ClearContents
ActiveSheet.Columns("FH:FR").Delete
ActiveSheet.Columns("GL:GW").ClearContents
ActiveSheet.Columns("GM:GW").Delete
ActiveSheet.Columns("HR:IC").ClearContents
ActiveSheet.Columns("HS:IC").Delete
ActiveSheet.Columns("IX:JI").ClearContents
ActiveSheet.Columns("IY:JI").Delete
ActiveSheet.Columns("KC:KN").ClearContents
ActiveSheet.Columns("KD:KN").Delete
ActiveSheet.Columns("LI:LT").ClearContents
ActiveSheet.Columns("LJ:LT").Delete
ActiveSheet.Columns("MN:MY").ClearContents
ActiveSheet.Columns("MO:MY").Delete
ActiveSheet.Columns("NT:OE").ClearContents
ActiveSheet.Columns("NU:OE").Delete
ActiveSheet.Columns("OZ:PM").ClearContents
ActiveSheet.Columns("OZ:PM").Delete
Formel = "=DATUM(JAHR($DA$1);MONAT($DA$1);TAG(1))"
ActiveSheet.Range("G3").FormulaLocal = Formel
ActiveSheet.Cells.Select
With Selection.Validation
.Delete
.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
:=xlBetween
.IgnoreBlank = True
.InCellDropdown = True
.ShowInput = True
.ShowError = True
End With
ActiveSheet.Cells.Select
Selection.SpecialCells(xlCellTypeComments).ClearComments
Application.Goto Reference:=ActiveSheet.Cells(1, 1), Scroll:=True
ActiveWorkbook.Save
ActiveWorkbook.Protect Password:="***", Structure:=True, Windows:=False
ActiveWorkbook.Close
wb.Activate
Tabelle1.Activate
ThisWorkbook.Sheets("Jahresübersicht").Range("D1").Value = Date
ActiveSheet.Protect Password:="***", Userinterfaceonly:=True, DrawingObjects:=False,  _
Contents:=True, Scenarios:=True, AllowFormattingCells:=True
Dim lSpalte  As Variant
With ThisWorkbook.Worksheets("Jahresübersicht")
lSpalte = WorksheetFunction.Match(CDbl(Date), .Rows(3), 0)
If IsNumeric(lSpalte) Then
Application.Goto Reference:=ActiveSheet.Cells(3, (lSpalte - Day(Date) + 1)), Scroll:=  _
True
End If
End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Unload PB3
MsgBox "-Kopie- wurde auf dem Desktop gespeichert!"
End Sub
Ich erstelle damit aus einer großen Übersicht eine Kopie, lösche alle Buttons, lösche verschiedene Teile des Sheets, die bei der Kopie unwichtig sind bzw. in der Kopie-Ansicht nicht gezeigt werden sollen.
Anschließend will ich alle Kommentare in der neuen Datei löschen.
Bei dem Befehl "activesheet.cells.select" wird bei Office 2016 plötzlich als Fehler angezeigt, "Die Methode Select ist bei dem Objekt Range fehlgeschlagen".
Es lässt sich auch nicht debuggen, sondern Excel schliesst sich komplett und muss neu gestartet werden.
Diesen Fehler bei Google eingegeben mit Fehlernummer (-21.............(8.........)) brachte mir nicht die Erleuchtung.
Vielleicht ist hier ein Crack, der das Problem lösen kann.
Danke im Voraus,
Gruß Henno
PS: Meine VBA-Kenntnisse beschränken sich auf Makrorekorder sowie Code-Schnipsel aus dem Internet, also nix fundiertes...daher vielleicht der ein oder andere Befehl, wo andere die Hände über den Kopf zusammenschlagen.....Aber Hey...it works....jedenfalls fast ;)

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code funzt nicht bei Office 2016/win10
02.03.2019 18:44:09
onur
Nebenbei bemerkt:
Die zweite Zeile macht jeweils die erste Zeile völlig überflüsig:
ActiveSheet.Columns("C:G").ClearContents
ActiveSheet.Columns("C:G").Delete

AW: Code funzt nicht bei Office 2016/win10
02.03.2019 18:45:51
onur
Poste mal die ganze Datei.
AW: Code funzt nicht bei Office 2016/win10
02.03.2019 19:17:06
Henno
Ist leider nicht möglich, hab jetzt alles rausgelöscht, was unwichtig ist bzw. nicht öffentlich sein soll (Geht um die Personalplanung im Betrieb, die Kopie soll dann eine Übersicht für die Mitarbeiter sein), Datei ist aber immer noch zu groß
AW: Code funzt nicht bei Office 2016/win10
02.03.2019 19:18:08
onur
Nimm Dropbox.
AW: Code funzt nicht bei Office 2016/win10
02.03.2019 19:42:30
Henno
https://www.file-upload.net/download-13523836/TestMakro.xlsm.html
AW: Code funzt nicht bei Office 2016/win10
02.03.2019 20:01:44
onur
file-upload.net HAT MIR SCHON MAL VERSUCHT, EINEN VIRUS UNTERZUJUBELN!
FINGER WEG!!!
Anzeige
AW: Code funzt nicht bei Office 2016/win10
02.03.2019 21:53:02
Luschi
Hallo Henno,
Onur's Hinweis kann ich nur bestätigen:
- 2x sollte ich eine TestMakro.xlsm.exe downloaden
- 1x eine Win-Repair.exe
- und 3x meldete der Browse einen Zertifikatsfehler
Gruß von Luschi
aus klein-Paris

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige