Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Zellwert nach Eingabe vergleichen



Excel-Version: 9.0 (Office 2000)

Betrifft: Zellwert nach Eingabe vergleichen
von: Lisa
Geschrieben am: 12.06.2002 - 10:52:19

Hallo zusammen,
ich möchte nach EINGABE eines Wertes in eine Zelle, diesen Wert mit dem einer anderen Spalte (gleiche Zeile) vergleichen.
Mit folgendem Code wird immer nur die aktive Zelle verglichen,
nicht die, die durch ENTER verlassen wurde!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

MsgBox Target
If Target.Column <> 11 Or IsEmpty(Target) Then Exit Sub
If Cells(Target.Row, Target.Column) <= Cells(Target.Row, 21) Then
Cells(Target.Row, 21).Value = Cells(Target.Row, Target.Column).Value
End If

End Sub

Weiß jemand, wie ich das Ereignis 'Verlassen einer Zelle' abfange!
Danke für die Mühe und einen lieben Gruß


  

Re: Zellwert nach Eingabe vergleichen
von: Hajo
Geschrieben am: 12.06.2002 - 10:55:35

Hallo Liasa

damit nach Eingabe muß es wie folgt lauten
Private Sub Worksheet_Change(ByVal Target As Range)


und für
If Cells(Target.Row, Target.Column) <= Cells(Target.Row, 21) Then
Cells(Target.Row, 21).Value = Cells(Target.Row, Target.Column).Value
könntest Du
If Target.value <= Cells(Target.Row, 21) Then
Cells(Target.Row, 21).Value = Target.Value

Schreiben

Gruß Hajo


  

Re: Zellwert nach Eingabe vergleichen
von: PeterW
Geschrieben am: 12.06.2002 - 10:55:44

Hallo Lisa,

statt Worksheet_SelectionChange Worksheet_Change benutzen.

Gruß
Peter


  

Re: Zellwert nach Eingabe vergleichen
von: Lisa
Geschrieben am: 12.06.2002 - 11:01:31

Dankeschön
Lisa

 

Beiträge aus den Excel-Beispielen zum Thema "Zellwert nach Eingabe vergleichen"