Microsoft Excel

Herbers Excel/VBA-Archiv

SelectChange | Herbers Excel-Forum


Betrifft: SelectChange von: Gerd S.
Geschrieben am: 30.01.2010 20:09:15

Hallo!

Habe ein Problem mit einer Select Change Abfrage.

Hänge eine Probedatei an

https://www.herber.de/bbs/user/67653.xls

Fall 1 funktioniert: wenn ich von aktive Zeile Spalte 2 auf 3 springe und in Spalte 2 ein Eintrag ist, dann wird in Spalte 4 "OK" eingtragen.

Möchte es gerne ändern wie Fall 2, aber schaffe das nicht

Springe nach dem Eintrag der aktiven Zeile B auf A der nächsten Zeile und dann soll der Eintrag OK erfolgen

Bitte um Hilfe

Gruß
Gerd S.

  

Betrifft: AW: SelectChange ?? von: hary
Geschrieben am: 30.01.2010 21:10:03

Hallo Gerd
wenn nach Eintrag in SpalteB, dann.....????

Private Sub Worksheet_Change(ByVal Target As Range)
     If Not Intersect(Target, Range("B3:B231")) Is Nothing Then
       Target.Offset(1, -1).Select
        Target.Offset(0, 2) = "OK"
     End If
End Sub

gruss hary