Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA: Auswahl einer Zelle bei Änderung einer Zelle

VBA: Auswahl einer Zelle bei Änderung einer Zelle
16.06.2014 14:17:11
Erik
Hallo Leute,
ich weiß nicht recht wie ich das Problem darstellen bzw. schildern soll, aber ich versuchs mal.
Aktuell sieht der Code in der Arbeitsmappe wie folgt aus:
Code:

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="123"
If Target.Address = "$B$22" Then Range("AO:AZ").EntireColumn.Hidden = True = isEmpty(Target)
If Target.Address = "$B$22" Then Range("BA:BA").EntireColumn.Hidden = True = IsEmpty(Target)
If Target.Address = "$B$22" Then Range("23:24").EntireRow.Hidden = True = IsEmpty(Target)
If Target.Address = "$B$22" Then Range("AC:AM").EntireColumn.Hidden = False = IsEmpty(Target)
If Target.Address = "$B$22" Then Range("AO:AZ").EntireColumn.Hidden = False =
Not IsEmpty(Target)
If Target.Address = "$B$22" Then Range("AC:AM").EntireColumn.Hidden = True =
Not IsEmpty(Target)
If Target.Address = "$B$22" Then Range("BA:BA").EntireColumn.Hidden = True =
Not IsEmpty(Target)
If Target.Address = "$B$22" Then Range("23:24").EntireRow.Hidden = False =
Not IsEmpty(Target)
If Target.Address = "$B$23" Then Range("AO:AZ").EntireColumn.Hidden = True =
(Range("B24")  0 And Not IsEmpty(Range("B22"))))
If Target.Address = "$B$23" Then Range("AC:AM").EntireColumn.Hidden = False =
(Range("B24")  0 And Not IsEmpty(Range("B22"))))
If Target.Address = "$B$23" Then Range("BA:BA").EntireColumn.Hidden = False =
(Range("B24")  0 And Not IsEmpty(Range("B22"))))
If Target.Address = "$B$22" Then Range("BA:BA").EntireColumn.Hidden = True =
IsEmpty(Target)
ActiveSheet.Protect Password:="123"
End Sub

Jetzt soll noch hinzugefügt werden, dass folgendes passiert:
Wenn in der Zelle B22 etwas verändert wird, dann soll eine MSG Box aufpoppen und anschließend die Zelle B23 auswählen (Select) und danach SendKeys {F2}
Hat jemand eine Idee?
Vielen Dank!
Erik

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Doppel! Unten antworten! owT
16.06.2014 14:18:42
Luc:-?
:-?
Anzeige

378 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige