Herbers Excel-Forum - das Archiv

Bestätigung

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Bestätigung
von: Gunnar

Geschrieben am: 06.04.2005 23:13:44
Hallo,
Ich benötige Hilfe zu der VBA.
Wie ist es möglich in der VBA eine Box einzublenden, die angibt ob das PW falsch o.richtig ist?
Oder ist es vielleicht möglich im Tabellenbl.die Markierung in eine Zelle springen zulassen, welche mit OK oder Falsch belegt ist?
Ich hoffe ich konnte mich verständlich ausdrücken.
Vorab schon mal Danke für eure Hilfe!
Gruß
Gunnar
Userbild
Bild

Betrifft: AW: Bestätigung
von: Springer

Geschrieben am: 07.04.2005 00:06:46
Hallo Gunnar,
Beispiel 1:
If kw = "test1" Then Sheets("Test1").Visible = True Else MsgBox "Kennwort falsch"
Beispiel 2:
If kw = "test1" Then
Sheets("Test1").Visible = True
MsgBox "Kennwort richtig"
Else: MsgBox "Kennwort falsch"
End If

Gruß, Martin
Bild

Betrifft: AW: Bestätigung
von: WernerB.

Geschrieben am: 07.04.2005 08:15:59
Hallo Gunnar,
wie gefällt Dir das?
Sub Abfrage()
Dim sh As Worksheet, _
kw As String
kw = InputBox("Bitte geben Sie Ihr Kennwort ein ...")
Select Case kw
Case "test1"
Sheets("Test1").Visible = True
Case "test2"
Sheets("Test2").Visible = True
Case "test3"
Sheets("Test3").Visible = True
Case "test4"
Sheets("Test4").Visible = True
Case "rasch"
For Each sh In active.Workbook.Sheets
If sh.Name <> kw Then sh.Visible = True
Next sh
Case Else
MsgBox "Falsches Kennwort !" & vbCr & vbCr & "Makro-Abbruch !", _
vbCritical, "Dezenter Hinweis für " & Application.UserName & ":"
Exit Sub
End Select
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
Bild

Betrifft: AW: Danke
von: Gunnar
Geschrieben am: 07.04.2005 12:46:45
Genau das was ich suchte!
Bild

Betrifft: AW: Danke
von: Gunnar
Geschrieben am: 07.04.2005 12:50:05
Genau das was ich suchte!
 Bild