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

Kompilierungsfehler in verborgenem Modul

Kompilierungsfehler in verborgenem Modul
24.10.2005 11:37:44
Stefanie
Hallo zusammen,
habe ein Problem. Ich habe ein Tool gebastelt in dem eine Art Fragebogen in Excel mit Option Buttons existiert. Dahinter liegen Werte, welche dann beim Absenden der Antworten ausgegeben werden. Bei mir funktioniert das einwandfrei. Habe das Tool jemandem geschickt. Dabei hab ich den VBA Code Passwortgeschützt. Dort kommt nun folgender Fehler: Kompilierungsfehler in verborgenem Modul: Tabelle 1
HAbe mir genau dieses Tool zurücksenden lassen und bei mir funtkioniert es nach wie vor einwandfrei. Woran kann das liegen?
Kann leider nicht vor Ort den Fehler beheben, da dazwischen 600km Entfernung liegen.
Wäre toll wenn jemand Rat weiß.
Beste Grüße
Stefanie

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kompilierungsfehler in verborgenem Modul
24.10.2005 11:41:03
u_
Hallo,
da musst du entweder einen Hellseher befragen oder den relevanten Code posten.
Gruß
Geist ist geil!
@ u_ @ EtoPHG
24.10.2005 12:07:55
Stefanie
Hallo,
habe er hat Excel 2002 und ich 2003. Glaube aber, dass das nicht das Problem ist. Der Code ist denkbar einfach gestaltet und greift auf keine besonderen Komponenten hin.
Der Code ist bestimmt unheimlich umständlich aber er funktioniert bei mir und auch bei anderen gut, nur halt bei meinem Firmenkontakt nicht und dort ist es ja am wichtigsten, dass es funktioniert.
Vieleicht fällt Euch ja noch was ein.
Ich danke Euch ganz herzlich.
Beste Grüße
Stefanie
Ich poste mal den Code:

Private Sub CommandButton1_Click()
If OptionButton1.Value = True Then
Antwort1 = 2
ElseIf OptionButton2.Value = True Then
Antwort1 = 0
ElseIf OptionButton3.Value = True Then
Antwort1 = 1
ElseIf OptionButton4.Value = True Then
Antwort1 = 2
End If
If OptionButton5.Value = True Then
Antwort2 = 2
ElseIf OptionButton6.Value = True Then
Antwort2 = 0
ElseIf OptionButton7.Value = True Then
Antwort2 = 1
ElseIf OptionButton8.Value = True Then
Antwort2 = 2
End If
If OptionButton9.Value = True Then
Antwort3 = 2
ElseIf OptionButton10.Value = True Then
Antwort3 = 0
ElseIf OptionButton11.Value = True Then
Antwort3 = 1
ElseIf OptionButton12.Value = True Then
Antwort3 = 2
End If
If OptionButton13.Value = True Then
Antwort4 = 2
ElseIf OptionButton14.Value = True Then
Antwort4 = 0
ElseIf OptionButton15.Value = True Then
Antwort4 = 1
ElseIf OptionButton16.Value = True Then
Antwort4 = 2
End If
If OptionButton17.Value = True Then
Antwort5 = 2
ElseIf OptionButton18.Value = True Then
Antwort5 = 0
ElseIf OptionButton19.Value = True Then
Antwort5 = 1
ElseIf OptionButton20.Value = True Then
Antwort5 = 2
End If
If OptionButton21.Value = True Then
Antwort6 = 2
ElseIf OptionButton22.Value = True Then
Antwort6 = 0
ElseIf OptionButton23.Value = True Then
Antwort6 = 1
ElseIf OptionButton24.Value = True Then
Antwort6 = 2
End If
If OptionButton25.Value = True Then
Antwort7 = 2
ElseIf OptionButton26.Value = True Then
Antwort7 = 0
ElseIf OptionButton27.Value = True Then
Antwort7 = 1
ElseIf OptionButton28.Value = True Then
Antwort7 = 2
End If
If OptionButton29.Value = True Then
Antwort8 = 2
ElseIf OptionButton30.Value = True Then
Antwort8 = 0
ElseIf OptionButton31.Value = True Then
Antwort8 = 1
ElseIf OptionButton32.Value = True Then
Antwort8 = 2
End If
If OptionButton33.Value = True Then
Antwort9 = 2
ElseIf OptionButton34.Value = True Then
Antwort9 = 0
ElseIf OptionButton35.Value = True Then
Antwort9 = 1
ElseIf OptionButton36.Value = True Then
Antwort9 = 2
End If
If OptionButton37.Value = True Then
Antwort10 = 2
ElseIf OptionButton38.Value = True Then
Antwort10 = 0
ElseIf OptionButton39.Value = True Then
Antwort10 = 1
ElseIf OptionButton40.Value = True Then
Antwort10 = 2
End If
If OptionButton41.Value = True Then
Antwort11 = 2
ElseIf OptionButton42.Value = True Then
Antwort11 = 0
ElseIf OptionButton43.Value = True Then
Antwort11 = 1
ElseIf OptionButton44.Value = True Then
Antwort11 = 2
End If
If OptionButton45.Value = True Then
Antwort12 = 2
ElseIf OptionButton46.Value = True Then
Antwort12 = 0
ElseIf OptionButton47.Value = True Then
Antwort12 = 1
ElseIf OptionButton48.Value = True Then
Antwort12 = 2
End If
If OptionButton49.Value = True Then
Antwort13 = 2
ElseIf OptionButton50.Value = True Then
Antwort13 = 0
ElseIf OptionButton51.Value = True Then
Antwort13 = 1
ElseIf OptionButton52.Value = True Then
Antwort13 = 2
End If
If OptionButton53.Value = True Then
Antwort14 = 2
ElseIf OptionButton54.Value = True Then
Antwort14 = 0
ElseIf OptionButton55.Value = True Then
Antwort14 = 1
ElseIf OptionButton56.Value = True Then
Antwort14 = 2
End If
If OptionButton57.Value = True Then
Antwort15 = 2
ElseIf OptionButton58.Value = True Then
Antwort15 = 0
ElseIf OptionButton59.Value = True Then
Antwort15 = 1
ElseIf OptionButton60.Value = True Then
Antwort15 = 2
End If
If OptionButton61.Value = True Then
Antwort16 = 2
ElseIf OptionButton62.Value = True Then
Antwort16 = 0
ElseIf OptionButton63.Value = True Then
Antwort16 = 1
ElseIf OptionButton64.Value = True Then
Antwort16 = 2
End If
If OptionButton65.Value = True Then
Antwort17 = 2
ElseIf OptionButton66.Value = True Then
Antwort17 = 0
ElseIf OptionButton67.Value = True Then
Antwort17 = 1
ElseIf OptionButton68.Value = True Then
Antwort17 = 2
End If
If OptionButton69.Value = True Then
Antwort18 = 2
ElseIf OptionButton70.Value = True Then
Antwort18 = 0
ElseIf OptionButton71.Value = True Then
Antwort18 = 1
ElseIf OptionButton72.Value = True Then
Antwort18 = 2
End If
If OptionButton73.Value = True Then
Antwort19 = 2
ElseIf OptionButton74.Value = True Then
Antwort19 = 0
ElseIf OptionButton75.Value = True Then
Antwort19 = 1
ElseIf OptionButton76.Value = True Then
Antwort19 = 2
End If
If OptionButton77.Value = True Then
Antwort20 = 2
ElseIf OptionButton78.Value = True Then
Antwort20 = 0
ElseIf OptionButton79.Value = True Then
Antwort20 = 1
ElseIf OptionButton80.Value = True Then
Antwort20 = 2
End If
If OptionButton81.Value = True Then
Antwort21 = 2
ElseIf OptionButton82.Value = True Then
Antwort21 = 0
ElseIf OptionButton83.Value = True Then
Antwort21 = 1
ElseIf OptionButton84.Value = True Then
Antwort21 = 2
End If
If OptionButton85.Value = True Then
Antwort22 = 2
ElseIf OptionButton86.Value = True Then
Antwort22 = 0
ElseIf OptionButton87.Value = True Then
Antwort22 = 1
ElseIf OptionButton88.Value = True Then
Antwort22 = 2
End If
If OptionButton89.Value = True Then
Antwort23 = 2
ElseIf OptionButton90.Value = True Then
Antwort23 = 0
ElseIf OptionButton91.Value = True Then
Antwort23 = 1
ElseIf OptionButton92.Value = True Then
Antwort23 = 2
End If
If OptionButton93.Value = True Then
Antwort24 = 2
ElseIf OptionButton94.Value = True Then
Antwort24 = 0
ElseIf OptionButton95.Value = True Then
Antwort24 = 1
ElseIf OptionButton96.Value = True Then
Antwort24 = 2
End If
If OptionButton97.Value = True Then
Antwort25 = 2
ElseIf OptionButton98.Value = True Then
Antwort25 = 0
ElseIf OptionButton99.Value = True Then
Antwort25 = 1
ElseIf OptionButton100.Value = True Then
Antwort25 = 2
End If
If OptionButton101.Value = True Then
Antwort26 = 2
ElseIf OptionButton102.Value = True Then
Antwort26 = 0
ElseIf OptionButton103.Value = True Then
Antwort26 = 1
ElseIf OptionButton104.Value = True Then
Antwort26 = 2
End If
If OptionButton105.Value = True Then
Antwort27 = 2
ElseIf OptionButton106.Value = True Then
Antwort27 = 0
ElseIf OptionButton107.Value = True Then
Antwort27 = 1
ElseIf OptionButton108.Value = True Then
Antwort27 = 2
End If
If OptionButton109.Value = True Then
Antwort28 = 2
ElseIf OptionButton110.Value = True Then
Antwort28 = 0
ElseIf OptionButton111.Value = True Then
Antwort28 = 1
ElseIf OptionButton112.Value = True Then
Antwort28 = 2
End If
If OptionButton113.Value = True Then
Antwort29 = 2
ElseIf OptionButton114.Value = True Then
Antwort29 = 0
ElseIf OptionButton115.Value = True Then
Antwort29 = 1
ElseIf OptionButton116.Value = True Then
Antwort29 = 2
End If
If OptionButton117.Value = True Then
Antwort30 = 2
ElseIf OptionButton118.Value = True Then
Antwort30 = 0
ElseIf OptionButton119.Value = True Then
Antwort30 = 1
ElseIf OptionButton120.Value = True Then
Antwort30 = 2
End If
If OptionButton121.Value = True Then
Antwort31 = 2
ElseIf OptionButton122.Value = True Then
Antwort31 = 0
ElseIf OptionButton123.Value = True Then
Antwort31 = 1
ElseIf OptionButton124.Value = True Then
Antwort31 = 2
End If
If OptionButton125.Value = True Then
Antwort32 = 2
ElseIf OptionButton126.Value = True Then
Antwort32 = 0
ElseIf OptionButton127.Value = True Then
Antwort32 = 1
ElseIf OptionButton128.Value = True Then
Antwort32 = 2
End If
If OptionButton129.Value = True Then
Antwort33 = 2
ElseIf OptionButton130.Value = True Then
Antwort33 = 0
ElseIf OptionButton131.Value = True Then
Antwort33 = 1
ElseIf OptionButton132.Value = True Then
Antwort33 = 2
End If
If OptionButton133.Value = True Then
Antwort34 = 2
ElseIf OptionButton134.Value = True Then
Antwort34 = 0
ElseIf OptionButton135.Value = True Then
Antwort34 = 1
ElseIf OptionButton136.Value = True Then
Antwort34 = 2
End If
If OptionButton137.Value = True Then
Antwort35 = 2
ElseIf OptionButton138.Value = True Then
Antwort35 = 0
ElseIf OptionButton139.Value = True Then
Antwort35 = 1
ElseIf OptionButton140.Value = True Then
Antwort35 = 2
End If
If OptionButton141.Value = True Then
Antwort36 = 2
ElseIf OptionButton142.Value = True Then
Antwort36 = 0
ElseIf OptionButton143.Value = True Then
Antwort36 = 1
ElseIf OptionButton144.Value = True Then
Antwort36 = 2
End If
If OptionButton145.Value = True Then
Antwort37 = 2
ElseIf OptionButton146.Value = True Then
Antwort37 = 0
ElseIf OptionButton147.Value = True Then
Antwort37 = 1
ElseIf OptionButton148.Value = True Then
Antwort37 = 2
End If
If OptionButton149.Value = True Then
Antwort38 = 2
ElseIf OptionButton150.Value = True Then
Antwort38 = 0
ElseIf OptionButton151.Value = True Then
Antwort38 = 1
ElseIf OptionButton152.Value = True Then
Antwort38 = 2
End If
Worksheets("Konzeptanalyse").Range("J5").Value = Antwort1
Worksheets("Konzeptanalyse").Range("J6").Value = Antwort2
Worksheets("Konzeptanalyse").Range("J7").Value = Antwort3
Worksheets("Konzeptanalyse").Range("J8").Value = Antwort4
Worksheets("Konzeptanalyse").Range("J9").Value = Antwort5
Worksheets("Konzeptanalyse").Range("J10").Value = Antwort6
Worksheets("Konzeptanalyse").Range("J11").Value = Antwort7
Worksheets("Konzeptanalyse").Range("J13").Value = Antwort8
Worksheets("Konzeptanalyse").Range("J14").Value = Antwort9
Worksheets("Konzeptanalyse").Range("J15").Value = Antwort10
Worksheets("Konzeptanalyse").Range("J16").Value = Antwort11
Worksheets("Konzeptanalyse").Range("J17").Value = Antwort12
Worksheets("Konzeptanalyse").Range("J18").Value = Antwort13
Worksheets("Konzeptanalyse").Range("J19").Value = Antwort14
Worksheets("Konzeptanalyse").Range("J20").Value = Antwort15
Worksheets("Konzeptanalyse").Range("J21").Value = Antwort16
Worksheets("Konzeptanalyse").Range("J22").Value = Antwort17
Worksheets("Konzeptanalyse").Range("J23").Value = Antwort18
Worksheets("Konzeptanalyse").Range("J24").Value = Antwort19
Worksheets("Konzeptanalyse").Range("J25").Value = Antwort20
Worksheets("Konzeptanalyse").Range("J26").Value = Antwort21
Worksheets("Konzeptanalyse").Range("J28").Value = Antwort22
Worksheets("Konzeptanalyse").Range("J29").Value = Antwort23
Worksheets("Konzeptanalyse").Range("J30").Value = Antwort24
Worksheets("Konzeptanalyse").Range("J31").Value = Antwort25
Worksheets("Konzeptanalyse").Range("J32").Value = Antwort26
Worksheets("Konzeptanalyse").Range("J33").Value = Antwort27
Worksheets("Konzeptanalyse").Range("J34").Value = Antwort28
Worksheets("Konzeptanalyse").Range("J35").Value = Antwort29
Worksheets("Konzeptanalyse").Range("J36").Value = Antwort30
Worksheets("Konzeptanalyse").Range("J37").Value = Antwort31
Worksheets("Konzeptanalyse").Range("J38").Value = Antwort32
Worksheets("Konzeptanalyse").Range("J39").Value = Antwort33
Worksheets("Konzeptanalyse").Range("J40").Value = Antwort34
Worksheets("Konzeptanalyse").Range("J41").Value = Antwort35
Worksheets("Konzeptanalyse").Range("J42").Value = Antwort36
Worksheets("Konzeptanalyse").Range("J43").Value = Antwort37
Worksheets("Konzeptanalyse").Range("J44").Value = Antwort38
End Sub


Private Sub CommandButton2_Click()
Sheets("Diagramm_Konzept_EV").Visible = True
Sheets("Diagramm_Konzept_EV").Select
End Sub

Anzeige
AW: Kompilierungsfehler in verborgenem Modul
24.10.2005 11:41:41
Rene
Hallo!
Das deutet auf einen Codefehler hin. Ohne den Code kann aber niemand helfen. Schicke das Tool doch mal zu mir. Mal sehen, ob es bei mir funktioniert. Wenn nicht, müsstest Du Deinen Code mal untersuchen. Meine Mail rmh.installationen@t-online.de (hoffendlich löscht die kein Moderator).
Grüße, Rene
AW: Kompilierungsfehler in verborgenem Modul
24.10.2005 11:47:38
Stefanie
Hallo Rene,
schicke Dir mal das gesamte Tool(auf Deine Adresse). Ist wirlich sehr umfangreich. Aber wenn ich was draus extrahiere, dann wird das schwierig, weil vieles mit einander verbunden ist.
Beste Grüße
Stefanie
AW: Kompilierungsfehler in verborgenem Modul
24.10.2005 12:00:15
EtoPHG
Hallo Stefanie,
Mögliche Ursachen könnten sein:
a) Anwender hat eine andere EXCEL Version wie Du --- Uberprüfen.
b) Anwender hat gewisse Komponenten (im VBE Extras Verweise) nicht, die Du ansprichst
Gruss Hansueli
Anzeige
AW: Kompilierungsfehler in verborgenem Modul
24.10.2005 22:56:08
Stefanie
Hallo zusammen,
das Problem wurde gelöst. Es lag an einem Kalendersteuerelement, welches von Access gezogen wird und deshalb alles durcheinander bringt, wenn man Access nicht installiert hat.
Ich danke allen für Ihre Bemühungen.
Beste Grüße
Stefanie

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige