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

Kompilierungsfehler

Kompilierungsfehler
23.12.2004 09:15:37
Peter
Hallo Excels,
ich habe einen Code derschon Jahre funktioniert aber plötzlich kommt eine Fehlermeldung.(Fehler beim Kompilieren)
(Hatte kurz Adobe Reader 7.0 installiert)

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
TextBox7 = Date
Else
CheckBox1.Value = False
datum.Show
End If
End Sub

Mein Versuch funktioniert auch nicht.

Private Sub CheckBox1_Click()
Dim dat
dat = Date
If CheckBox1.Value = True Then
TextBox7 = dat
Else
CheckBox1.Value = False
datum.Show
End If
End Sub

Danke schon mal für eure Hilfe
Gruss Peter

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kompilierungsfehler noch einer
23.12.2004 09:19:18
Peter
noch ein Fehler bei "msoControlButton"

Sub MenüErstellen()
Dim AktiveMenüLeiste As Object, MeinMenü As Object, Befehl As Object, MB As Object
On Error Resume Next
Application.CommandBars("Auftragsbücher").Delete
'Menü löschen, falls das Makro nochmal aufgerufen wurde
CommandBars.ActiveMenuBar.Controls("Auftragsbücher").Delete
Set AktiveMenüLeiste = CommandBars.ActiveMenuBar
'Menü erstellen
Set MeinMenü = AktiveMenüLeiste.Controls.Add(Type:=msoControlPopup, Temporary:=True)
MeinMenü.Caption = "&Auftragsbücher"
'Erster Befehl im Menü
Set Befehl = MeinMenü.Controls.Add(Type:=msoControlButton, Id:=1)
With Befehl
.Caption = "&EVC"
.OnAction = "GeheZUElt"
End With
'Zweiter Befehl im Menü
Set Befehl = MeinMenü.Controls.Add(Type:=msoControlButton, Id:=1)
With Befehl
.Caption = "&GVC"
.OnAction = "GeheZUGas"
End With
'ditter Befehl im Menü
Set Befehl = MeinMenü.Controls.Add(Type:=msoControlButton, Id:=1)
With Befehl
.Caption = "&FWC"
.OnAction = "GeheZUFern"
End With
'vierter Befehl im Menü
Set Befehl = MeinMenü.Controls.Add(Type:=msoControlButton, Id:=1)
With Befehl
.Caption = "&CHD"
.OnAction = "GeheZUCHD"
End With
'fünfter Befehl im Menü
Set Befehl = MeinMenü.Controls.Add(Type:=msoControlButton, Id:=1)
With Befehl
.Caption = "&SWC"
.OnAction = "GeheZUSWC"
End With
End Sub

Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige