VBA Excel 2010 Cursor Spalte G Wert aus Zelle A "xyz" Userform öffnen

Computer: Software & Programmierung Visual Basic
#1

Hallo !
Ich möchte das die Userform sich öffnet wenn  in Spalte G der Cursor steht und in Spalte A ein bestimmter Wert steht und nur dann soll die Userform sich öffnen. Diesen code habe ich eingeben:

 If Not Intersect(Target, Range(„G:G“)) Is Nothing And ActiveCell.Offset(0, -7).Select = („xyz“ Or „abc“ Or „ghi“) Then UserForm1.Show Else: Exit Sub End If

Leider wird die Userform bei jeder änderung in der aktiven Zeile angezeigt.

Für Hilfe wäre ich sehr dankbar
Vielen Dank
Susanne

#2

Hallo !

Hallo Susanne,

Ich möchte das die Userform sich öffnet wenn  in Spalte G der
Cursor steht und in Spalte A ein bestimmter Wert steht und nur
dann soll die Userform sich öffnen. Diesen code habe ich
eingeben:

 If Not Intersect(Target, Range(„G:G“)) Is Nothing And
ActiveCell.Offset(0, -7)

Da kriegst du ein Problem: Wenn du in Spalte G (Spalte 7) bist und machst einen SpaltenOffset von -7, dann kommst du auf eine Spalte 0, die gibt’s nicht.

.Select = („xyz“ Or „abc“ Or „ghi“)

Hier müsstest du auch einen Fehler kriegen, denn diesen Ausduck kann VBA nicht auswerten: Ein Text kann nicht oder ein anderer text oder ein dritter Text sein.

Then UserForm1.Show Else: Exit Sub End If

Leider wird die Userform bei jeder änderung in der aktiven
Zeile angezeigt.

Für Hilfe wäre ich sehr dankbar

Ich versuchs mal anders:

Private Sub Worksheet\_SelectionChange(ByVal Target As Range)
 If Target.Column = 7 And \_
 (Cells(Target.Row, 1).Value = "xyz" Or \_
 Cells(Target.Row, 1).Value = "abc" Or \_
 Cells(Target.Row, 1).Value = "ghi") Then UserForm1.Show
End Sub

Vielen Dank

Bitte schön.

Susanne

Gruß, Andreas

#3

Hallo Andreas,

vielen Dank für Deine Antwort. Leider öffnet die Userform jetzt gar nicht mehr.
Hast Du vielleicht noch eine Idee?
viele Grüße
Susanne

#4

Danke Andreas Code funktioniert doch!!!

vielen vielen Dank!!!