Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
788to792
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
788to792
788to792
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Problem mit InputBox

Problem mit InputBox
10.08.2006 10:48:18
Thomas
Guten Morgen allerseits,
ich weis nicht weiter und hoffe Ihr könnt mir helfen.
Bei nachstehendem Makro wird zurerst eine InputBox geöffnet und ein Passwort abgefragt. Leider läuft das Makro aber auch weiter, UND DAS DARF ES NICHT, wenn ich den Abbruch-Button klicke.


Private Sub Abschluss()
If InputBox("Bitte Paßwort eingeben""Abfrage") = "test" Then
'Einblenden
Sheets("Einstellungen").Visible = True
Sheets("Gesamt").Visible = True
End If
   Dim strFrage, strNam As String
   Dim datJahr As Date
   On Error Resume Next
      If CDate(Year([B1]) < Year(Date)) Then
         Range("A1").Select
         Exit Sub
      End If
        strFrage = MsgBox("Soll ein Jahreswechsel durchgeführt werden ?" & Chr(13) & Chr(13) _
        & "Vorsicht, es werden alle Einträge des alten Jahres gelöscht !", vbYesNo, "Jahreswechsel")
        If strFrage = 6 Then
            ActiveWorkbook.Save
            Application.ScreenUpdating = False
            Application.Run "Löschen"
Else:
'Ausblenden
Sheets("Einstellungen").Visible = False
Sheets("Gesamt").Visible = False
End If
   Cells(1, 1).Activate
   Application.ScreenUpdating = True
End Sub


Was muss hier geändert werden, dass wenn ich den Abbruch-Button klicke, das Makro endet aber die Blätter "Einstellungen" und "Gesamt" müssen wieder ausgeblendet werden.
Könnt Ihr mir bitte hellfen.
Vielen Dank
Gruß
Thomas

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Problem mit InputBox
10.08.2006 11:14:51
P@ulchen
Hallo Thomas,
versuch mal so:


Option Explicit
Private Sub Abschluss()
Dim strFrage, strNam As String
Dim datJahr As Date
If InputBox("Bitte Paßwort eingeben", "Abfrage") = "test" Then
    'Einblenden
    Sheets("Einstellungen").Visible = True
    Sheets("Gesamt").Visible = True
    On Error Resume Next
    If CDate(Year([B1]) < Year(Date)) Then
         Range("A1").Select
         Exit Sub
    End If
    strFrage = MsgBox("Soll ein Jahreswechsel durchgeführt werden ?" & Chr(13) & Chr(13) _
        & "Vorsicht, es werden alle Einträge des alten Jahres gelöscht !", vbYesNo, "Jahreswechsel")
    If strFrage = 6 Then
        ActiveWorkbook.Save
        Application.ScreenUpdating = False
        Application.Run "Löschen"
    End If
Else
    'Ausblenden
    Sheets("Einstellungen").Visible = False
    Sheets("Gesamt").Visible = False
End If
   Cells(1, 1).Activate
   Application.ScreenUpdating = True
End Sub


Gruß aus Leipzig
P@ulchen
www.excel-werkstatt.de

Anzeige
Hi P@ulchen, Danke das war es. o.T.
10.08.2006 11:36:13
Thomas

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige