Bestätigung

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
InputBox MsgBox
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

Beiträge aus den Excel-Beispielen zum Thema "bild in excel austauschen"