Userform eingabe auslesen
22.02.2006 16:45:11
Torge
wer kann Hinweis geben?
Möchte die Eingabe bei einer Passwordabfrage in der Art auslesen, dass bei Eingabe von A Makro1 läuft und bei B Makro2. Ist das irgendwie zu realisieren?
Es soll je nach Eingabe des Buchstaben oder einer Zahl ein Bild im Tabellenblatt2 oder 3 gewechselt werden.
Dabei steht für den Bildwechsel folgender Code:
"In Tabelle1 steht"
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [A1] = "A" Or [A1] = "B" Or [A1] = "C" Then
BILD_ANSICHT
Else
Tabelle2.Shapes("Bild 1").Visible = False
Tabelle2.Shapes("Bild 2").Visible = False
Tabelle2.Shapes("Bild 3").Visible = False
End If
End Sub
"Im Modul steht"
Sub BILD_ANSICHT()
If Tabelle1.[A1] = "A" Then
Tabelle2.Shapes("Bild 1").Visible = True
Tabelle2.Shapes("Bild 2").Visible = False
Tabelle2.Shapes("Bild 3").Visible = False
End If
If Tabelle1.[A1] = "B" Then
Tabelle2.Shapes("Bild 1").Visible = False
Tabelle2.Shapes("Bild 2").Visible = True
Tabelle2.Shapes("Bild 3").Visible = False
End If
If Tabelle1.[A1] = "C" Then
Tabelle2.Shapes("Bild 1").Visible = False
Tabelle2.Shapes("Bild 2").Visible = False
Tabelle2.Shapes("Bild 3").Visible = True
End If
End Sub
Danke schon an dieser Stelle.
Torge