Userform öffnen mit verschiedenen eingaben
02.12.2008 11:31:00
Thierry
Ich habe folgenden VBA Code "geschrieben" Dieser öffnet mir eine Userform, wenn in der Zelle eine 1 steht. Wie kann ich diesen Code ändern, damit sich die Userform auch öffnet, wenn sich in der Zelle eine Zahl zwischen 1 und 52 befindet. Muss ich den Code 52 mal wiederholen oder gibt es eine einfachere Lösung.
Vielen Dank für eine Antwort.
Thierry
Code
Option Explicit
Private Sub Worksheet_change(ByVal Target As Range)
On Error GoTo Fehler
Dim intRow As Integer
intRow = Target.Row
'Userform DatiGenerali oeffnen
If (Target.Column = 3 And Target.Row