Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Date | Herbers Excel-Forum


Betrifft: Date von: holger
Geschrieben am: 22.11.2009 09:32:49

Hallo zusammen,

seit der Umstellung von Office 2003 auf 2007 bekomme ich immer bei Date eine Fehlermeldung.
Hier ist die Fehlermeldung: Fehler beim Kompilieren, Projekt oder bibliothek nicht gefunden.

Hier ist der Code.

Private Sub Workbook_Open()
On Error Resume Next
Dim MonatNr As Integer
Dim Zelle As Range
Dim Pass As String
Const TabName = "Tabelle"
Dim cb As CommandBar
Application.ScreenUpdating = False
Sheets("Startseite").Visible = False
Worksheets("Startseite").ScrollArea = "$A$32:$A$32"
'CommandBars ausblenden
Application.DisplayAlerts = False      'zum bearbeiten ausschalten
    
    MsgBox "Die Datei kann bis zum 01.12.2009 frei benutzt werden", vbOKOnly + vbCritical, " _
Wichtige Information von Holger Schremb"

If Date > CDate("01.12.09") Then
    Application.Quit
    ThisWorkbook.Close
End If

Sheets("Stammdaten").Select
Sheets("Stammdaten").Activate
ActiveSheet.Unprotect
Pass = Range("K1").Value
If Pass = "scott" Then _
GoTo ende
UserForm6.Show
ende:


'neu
With ActiveWindow

'Reiter einblenden
.DisplayWorkbookTabs = True
End With



  MonatNr = Month(Now())
  On Error GoTo fehler
  Sheets(TabName & MonatNr).Activate
  
  For Each Zelle In ActiveSheet.UsedRange
        If Zelle.Value = Date Then
            Zelle.Select
            Exit Sub
        End If
    Next Zelle
 UserForm4.Show
Exit Sub
fehler:
 'MsgBox "Es gibt kein Blatt mit dem Namen " & TabName & MonatNr
 
 
 UserForm4.Show
 Application.ScreenUpdating = True
End Sub
für eure Mühe und Hilfe bedanke ich mich schon

LG: Holger

  

Betrifft: AW: Date von: Hajo_Zi
Geschrieben am: 22.11.2009 09:41:28

Hallo Holger,

Date, Left usw fehlt
http://www.ms-office-forum.net/forum/showthread.php?t=148516
NICHT VORHANDEN deaktivieren

GrußformelHomepage


  

Betrifft: Danke jetzt läuft es von: holger
Geschrieben am: 22.11.2009 10:28:59

vielen Dank Hajo,
jetzt funktionier es.

Lg

Holger