Ich habe folgenden Code zusammengestellt um 3 Userformen zu öffnen. Leider erscheint immer die Fehlermeldung:
Fehler beim Kompilieren: Mehrdeutiger Name Range
Weiss jemand wo der Fehler liegt?
Vielen Dank für die Hilfe.
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 1
If (Target.Column = 3 And Target.Row 'Userform GMOMobiCasa oeffnen wenn MobiCasa
ElseIf (Target.Column = 4 And Target.Row 'Userform GMOMobiPro oeffnen wenn MobiPro
ElseIf (Target.Column = 4 And Target.Row