kann mal bitte Jemand über das Makro schauen... Ich habe da irgendeinen Denkfehler :-(
Sub cmdBlattAufruf_Click()
Dim sPassWord As String
sPassWord = InputBox("Paßwort eingeben:", , "")
Select Case sPassWord
Case Wert = Worksheets("Tabelle1").Cells(25, 8).Value
With Worksheets("Tabelle2")
.Visible = True
.Selektion
End With
Case ""
Case Else
Beep
MsgBox "War wohl nix!"
End Select
End Sub
Idee war, dass Passwort aus der Excel Tabelle zu übernehmen. Wenn ich:
Case 123
Verwende, funktioniert alles mit dem Passwort 123
Danke im Voraus.
Gruß
Martin