Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


Modul läuft unter Excel 2013 nicht mehr
#1

.xlsm   Abwesenheit österreichisch.xlsm (Größe: 170,69 KB / Downloads: 10)
Hallo,

ich habe ein Problem mit einer Datei, die unter Excel 2003, Excel 2007 und Excel 2010 einwandfrei läuft.
Als sie jetzt unter Excel 2013 geöffnet werden soll, wird das Öffnen mit einem Compilierungsfehler in einem Modul (ist ein Code hinter einer Userform) abgelehnt.

Da ich kein Excel 2013 habe, kann ich diesen Fehler nicht konstatieren und mit ungeschütztem VBA-Code möchte ich die Datei nicht weitergeben.

Vielleicht kann ein Experte von Excel 2013 einmal über den nachstehenden Modul-Code schauen und mir sagen, was Excel 2013 daran nicht gefällt und was ich wie ändern muss?

Hier der Code:
Option Explicit

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
   If CloseMode = 0 Then Cancel = True
End Sub

Private Sub UserForm_Activate()
   CommandButton2.Visible = False      'Übernehmen
   Label1.Visible = False              'Mitarbeitereingabe
   Label2.Visible = False              'Bezeichnung: Name
   Label3.Visible = False              'Bezeichnung: Vorname
   Label4.Visible = False              'Bezeichnung: Bereich
   Label5.Visible = True               'Handlungsentscheidung
   Label6.Visible = False              'Mitarbeiterauswahl
   Label7.Visible = False              'Bezeichnung: Eintritt
   Label8.Visible = False              'Bezeichnung: Urlaub
   Label9.Visible = False              'Bezeichnung: Anspruch aus Vorjahr
   ListBox1.Visible = False            'Listenfeld
   OptionButton1.Visible = True        'Zugang
   OptionButton2.Visible = True        'Abgang
   OptionButton3.Visible = True        'Urlaub
   OptionButton4.Visible = True        'Korrektur
   TextBox1.Visible = False            'Name
   TextBox2.Visible = False            'Vorname
   TextBox3.Visible = False            'Bereich
   TextBox4.Visible = False            'Eintritt
   TextBox5.Visible = False            'Urlaub
   TextBox6.Visible = False            'Resturlaub aus Vorjahr
   Label1.Visible = False
   OptionButton1.SetFocus
   Flag = False                        'Entscheidung: False = Zugang, True = Abgang
End Sub

Private Sub CommandButton1_Click()      'Abbrechen
   Unload Me
End Sub

Private Sub CommandButton2_Click()      'Übernehmen
   Call Übernehmen
End Sub

Private Sub Übernehmen()
   If MitName = "" Then
       Auswahl.Show
       Exit Sub
   End If

   Sheets("Alles").Unprotect Password:=""

   If Flag = False Then                'Mitarbeiter-Zugang
       If TextBox1.Value = "" Then Exit Sub
       For i = 13 To 42
           If Cells(i, 2) = 0 Then
               Cells(i, 2) = MitName
               Cells(i, 3) = MitVorname
               Cells(i, 4) = MitBereich
               Cells(i, 5) = MitEintritt
               Cells(i, 7) = MitUrlaub
               Cells(i, 8) = MitVorjahr
               Exit For
           End If
       Next

       If i > 42 Then
           Fehler.Show
           Sheets("Alles").Protect Password:=""
           Exit Sub
       End If

       TextBox1 = ""                   'Name
       TextBox2 = ""                   'Vorname
       TextBox3 = ""                   'Bereich
       TextBox4 = ""                   'Eintrirtt
       TextBox5 = ""                   'Urlaub
       TextBox6 = ""                   'Resturlaub aus Vorjahr
       TextBox1.SetFocus
   Else                                'Mitarbeiter-Abgang
       If MitName = "" Then Unload Me
       j = 0
       For i = 13 To 42
           If Cells(i, 2) = MitName Then
               If Cells(i, 3) = MitVorname Then
                   Anfrage.Show
                   If j = 1 Then
                       Range(Cells(i, 2), Cells(i, 106)).ClearContents
                       Range(Cells(i + 36, 16), Cells(i + 36, 106)).ClearContents
                       Range(Cells(i + 72, 16), Cells(i + 72, 107)).ClearContents
                       Range(Cells(i + 108, 16), Cells(i + 108, 107)).ClearContents
                       Cells(i, 10).FormulaLocal = "=WENN(B" & i & "=0;"""";SUMME(G" & i & ":I" & i & ")+0,001)"
                       Cells(i, 12).FormulaLocal = "=WENN(J" & i & "="""";"""";J" & i & "-K" & i & ")"
                       Cells(i, 14).FormulaLocal = "=WENN(B" & i & "=0;"""";L" & i & "-M" & i & ")"
                       Cells(i, 15).FormulaLocal = "=ZÄHLENWENN(P" & i & "Big GrinB" & i & ";""k"")+ZÄHLENWENN(P" & i + 36 & "Big GrinB" & i + 36 & ";""k"")+ZÄHLENWENN(P" & i + 72 & "Big GrinC" & i + 72 & ";""k"")+ZÄHLENWENN(P" & i + 108 & "Big GrinC" & i + 108 & ";""k"")"
                       Application.CutCopyMode = False
                       j = 0
                   End If
               End If
           End If
       Next

       Flag = False                    'Entscheidungsrückstellung: Zugang
       Unload Me
   End If

   Sheets("Alles").Protect Password:=""
   'Unload Me
End Sub

Private Sub Weiter()
   Label5.Visible = False              'Handlungsentscheidung
   OptionButton1.Visible = False       'Zugang
   OptionButton2.Visible = False       'Abgang
   OptionButton3.Visible = False       'Urlaubsdaten
   OptionButton4.Visible = False       'Korrektur

   If OptionButton1 = True Then
       CommandButton2.Visible = True   'Übernehmen
       Label1.Visible = True           'Mitarbeitereingabe
       Label2.Visible = True           'Bezeichnung: Name
       Label3.Visible = True           'Bezeichnung: Vorname
       Label4.Visible = True           'Bezeichnung: Bereich
       Label7.Visible = True           'Bezeichning: Eintritt
       Label8.Visible = True           'Bezeichnung: Urlaub
       Label9.Visible = True           'Bezeichnung: Anspruch aus Vorjahr
       TextBox1.Visible = True         'Name
       TextBox2.Visible = True         'Vorname
       TextBox3.Visible = True         'Bereich
       TextBox4.Visible = True         'Eintritt
       TextBox5.Visible = True         'Urlaub
       TextBox6.Visible = True         'Resturlaub aus Vorjahr
       TextBox1.SetFocus

   ElseIf OptionButton2 = True Then
       Call Dateiliste
       Label6.Visible = True           'Mitarbeiterauswahl
       ListBox1.Visible = True         'Listenfeld
       ListBox1.List() = Mitarbeiter   'Mitarbeiterliste
       Flag = True                     'Entscheidung: Abgang

   ElseIf OptionButton3 = True Then
       Unload Me
       Anspruch.Show
   Else
       Call Dateiliste
       Unload Me
       Korrektur.Show
   End If
End Sub

Private Sub Listbox1_Click()
   MitVollname = ListBox1.List(ListBox1.ListIndex, 0)
   MitName = Left(MitVollname, InStr(MitVollname, ",") - 1)
   MitVorname = Mid(MitVollname, Len(MitName) + 3)
   Call Übernehmen
End Sub

Private Sub OptionButton1_Click()
   Call Weiter
End Sub

Private Sub OptionButton2_Click()
   Call Weiter
End Sub

Private Sub OptionButton3_Click()
   Call Weiter
End Sub

Private Sub OptionButton4_Click()
   Call Weiter
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   MitName = TextBox1.Value
End Sub

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   MitVorname = TextBox2.Value
End Sub

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   MitBereich = TextBox3.Value
End Sub

Private Sub Textbox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   If IsDate(TextBox4.Value) Then
       MitEintritt = Format(CDate(TextBox4.Value), "dd/mm/yyyy")
       TextBox4.Value = MitEintritt
   Else
       TextBox4.Value = ""
   End If
End Sub

Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   If IsNumeric(TextBox5.Value) Then
       MitUrlaub = TextBox5.Value
   Else
       TextBox5.Value = ""
   End If
End Sub

Private Sub TextBox6_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   If IsNumeric(TextBox6.Value) Then
       MitVorjahr = TextBox6.Value
   Else
       TextBox6.Value = ""
   End


VBA/HTML - CodeConverter für Office-Foren, AddIn für Excel/Word 2000-2013 - komplett in VBA geschrieben von Lukas Mosimann. Projektbetreuung durch mumpel

Code erstellt und getestet in Office 15


Es kann sich doch eigentlich nur um einen Befehl handeln, den es in Excel 2013 nicht mehr gibt.
Wenn die komplette Datei benötigt wird, liegt sie als Anhang bei - allerdings geschützt.
?mage
Gruß Günter
aus der Messe-, Buch-, Universitäts- und Autostadt Leipzig
Windows 7 32 Bit / Windows 8.1 64 Bit • Excel 2000 / Excel 2003 / Excel 2007 / Excel 2010 - alle 32 Bit
to top
#2
Hallo, könnte es das sein??

unter 2013 ist bei Menü "Extras - Verweise" im VB-Editor, das Häkchen bei "Nicht Vorhanden" gesetzt, entfernen, dann funktioniert auch Date wieder!
Bei mir funktioniert es jetzt auch.

Hier gefunden:
http://www.ms-office-forum.net/forum/sho...p?t=250065
Gruß
Fred0



Meine Antworten sind freiwillig und ohne Gewähr!
Wenn nichts angegeben beziehe ich mich auf Excel 2016

to top
#3
Hallo Fred,

danke für die Antwort, ich werde sie weitergeben und sehen, ob es auch dann dort funktioniert.
Gebe Rückmeldung!
?mage
Gruß Günter
aus der Messe-, Buch-, Universitäts- und Autostadt Leipzig
Windows 7 32 Bit / Windows 8.1 64 Bit • Excel 2000 / Excel 2003 / Excel 2007 / Excel 2010 - alle 32 Bit
to top
#4
Hi Günter,

(13.04.2015, 12:48)Glausius schrieb: Als sie jetzt unter Excel 2013 geöffnet werden soll, wird das Öffnen mit einem Compilierungsfehler in einem Modul (ist ein Code hinter einer Userform) abgelehnt.
[...]
Es kann sich doch eigentlich nur um einen Befehl handeln, den es in Excel 2013 nicht mehr gibt.
Wenn die komplette Datei benötigt wird, liegt sie als Anhang bei - allerdings geschützt.

also, ich konnte die Datei ganz normal mit 2013 öffnen, abspeichern und dann auch die Makros aktivieren.
https://dl.dropboxusercontent.com/u/4839...hisch.xlsm
Gruß Ralf

?mage

Die deutsche Rechtschreibung ist Freeware, d.h. du kannst sie kostenlos nutzen.
Allerdings ist sie nicht Open Source, deswegen darfst du sie nicht verändern oder in veränderter Form veröffentlichen.
to top
#5
(13.04.2015, 18:04)Rabe schrieb: also, ich konnte die Datei ganz normal mit 2013 öffnen, abspeichern und dann auch die Makros aktivieren.

ich denke mal es hat damit zu tun, dass du noch die Version 2010 hast und du daher mscal.ocx bei dir ist, die gibts es wohl ab 2013 nicht mehr, warum kA.
Beim reinen Office 2013 kannste mit der Datei nichts anfangen, ist zumindest bei mir so und bei Günter halt auch weil u.a. wohl diese mscal.ocx fehlt.

Anders kann ich mir das nicht erklären, gibt ja ein paar Threads im Netz die es jedenfalls so schreiben.
Gruß
Fred0



Meine Antworten sind freiwillig und ohne Gewähr!
Wenn nichts angegeben beziehe ich mich auf Excel 2016

to top
#6
Hi

@Fred
mich verwundert dass du Verweise in einem geschützten Projekt verändern kannst, unter 2007 funktioniert das jedenfalls nicht. Wenn ich Recht habe wird auch der Endanwender das nicht ändern können und es muss eine andere Lösung her

@Günter
hier eine geschützte Datei einzustellen ist ungefähr so wie ein mit Klopapier umwickeltes Schaf in eine Herde Wölfe zu stellen und darauf zu hoffen das würde es schützen :-)
Grüße,
Winny
to top
#7
Hi Fred,

(13.04.2015, 19:34)Fred0 schrieb: ich denke mal es hat damit zu tun, dass du noch die Version 2010 hast und du daher mscal.ocx bei dir ist, die gibts es wohl ab 2013 nicht mehr, warum kA.
Beim reinen Office 2013 kannste mit der Datei nichts anfangen, ist zumindest bei mir so und bei Günter halt auch weil u.a. wohl diese mscal.ocx fehlt.

nene, es ist ein neuer Rechner mit nur Office 2013. Aber ich kann es morgen auch mal in der 4ma mit noch 'nem 2013er testen.

Ich konnte die VBA-Verweise nicht öffnen.

Aber beim Starten kam keine Fehlermeldung.

Jedoch: Wenn ich einen der drei rechten Buttons (Mitarbeiterverwaltung, Zeiten verwalten, Auswertung einblenden) drücke, dann kommt die Fehlermeldung (mit jeweils anderem ausgeblendeten Modul):
   
Gruß Ralf

?mage

Die deutsche Rechtschreibung ist Freeware, d.h. du kannst sie kostenlos nutzen.
Allerdings ist sie nicht Open Source, deswegen darfst du sie nicht verändern oder in veränderter Form veröffentlichen.
to top
#8

.xlsm   Abwesenheit österreichisch frei.xlsm (Größe: 174,79 KB / Downloads: 9)
Hallo Zusammen,

ich hatte die Datei nur zum Anschauen und den Code das betreffenden Moduls eingestellt, in der Hoffnung, man könnte darin den Fehler und den falschen Befehl, der zum "Streik" von Excel 2013 führt, sehen und beheben.

Ein Geheimnis ist diese Datei nicht und Daten enthält sie auch noch nicht, außer eben die österreichischen Feiertage und nicht die deutschen.

Um mir Weiterhelfen zu können, habe ich nun die Datei mit freigeschaltenem VBA-Projekt eingestellt.
?mage
Gruß Günter
aus der Messe-, Buch-, Universitäts- und Autostadt Leipzig
Windows 7 32 Bit / Windows 8.1 64 Bit • Excel 2000 / Excel 2003 / Excel 2007 / Excel 2010 - alle 32 Bit
to top
#9
Hallo Günter

es liegt tatsächlich an dem fehlenden MSCAL.ocx. Wenn Du den Verweis entfernst sollte die Datei funktionieren. Evtl.hast du einmal ein solches ActiveX benutzt weshalb es den Verweis noch gibt. Nach dem Entfernen kannst Du ja leicht die Funktionalität prüfen und dann sehen ob bei dir etwas an Funktionalität fehlt
Grüße,
Winny
to top
#10
Hallo Günter,

der Verweis fehlt auch bei meinem Office 2010.

   

Gruß Uwe
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
Exclamation sverweis nach links - mehr Treffer erwünscht WergibtmirRat 15 229 13.11.2016, 20:32
Letzter Beitrag: Jockel
  Werte in Userform unter bestimmter Bediengung michel34497 5 97 12.11.2016, 20:50
Letzter Beitrag: schauan
Smile GoogleMaps Enternungsberechnung ab Excel 2013 ohne VBA inkl. zu Fuß, Fahrad, Auto chris-ka 15 1.459 09.11.2016, 19:43
Letzter Beitrag: Fionare
  Excel 2013 - Berechnungen in mehreren Spalten nightmare77 2 92 24.10.2016, 19:31
Letzter Beitrag: nightmare77
  Datum unter Bedingung in einem Bereich gesucht leipzigfragt 12 155 24.10.2016, 14:25
Letzter Beitrag: neopa
  Verknüpfung funktioniert nicht mehr (Nach Neu-Installation) Thomas der Xte 5 83 24.10.2016, 10:33
Letzter Beitrag: neopa
  Makro funktionieren in neuer Version nicht mehr skadfg1 1 78 12.10.2016, 15:48
Letzter Beitrag: skadfg1
  Neuer Sverweis - Zeilenzugehörige Werte stimmen nicht mehr Buslik 2 140 02.10.2016, 05:28
Letzter Beitrag: schauan
  Excel rechnet nicht trotz Formel bonnie 7 269 21.09.2016, 10:34
Letzter Beitrag: bonnie
  Macro läuft auf neuer exselversion nicht Hagen 22 931 16.09.2016, 17:02
Letzter Beitrag: Hagen

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste