Problem mit VBA Code

Question

Hallo zusammem,

habe folgenden Code ( ist nur ein Teil ) der auch so weit funktioniert, nur dachte ich eben das der folgende Teil nur dann ausgeführt wird, wenn ich die Zelle ai1 ( Manuelle eingabe ) ändere aber sobald ich auch in eine andere Zelle was eingebe wird der Code ausgeführt.
Hoffe das ich mich verständlich ausgedrückt habe.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "ai1" Then

If Range("B5") = 1 Then CommandButton1.Visible = True
If Range("B5") = 2 Then CommandButton1.Visible = False
If Range("B6") = 1 Then CommandButton2.Visible = True
If Range("B6") = 2 Then CommandButton2.Visible = False
If Range("B7") = 1 Then CommandButton3.Visible = True



grüße
Achim

Answer 1

Hi Achim,

wenn der Code nur bei Eingabe in AI1 ausgeführt werden darf, dann muss es so heißen:

If Target.Address = "$AI$i1" Then

Beachte bitte die absolute Zelladressierung.

Bis später,
Karin

Answer 2

Hallo Karin,

danke schön, jetzt funktioniert es.

grüße
Achim