Zelleninhalt in Makro übernehmen

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