Microsoft Excel

Herbers Excel/VBA-Archiv

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

Spalte auswerten und neuen Wert eintragen

Betrifft: Spalte auswerten und neuen Wert eintragen von: Max
Geschrieben am: 27.08.2004 22:03:18

Hallo!

Habe folgedes Problem:
Ich möchte, daß, wenn ich in Spalte 2 eine Eingabe mache, in Spalte 4 der selben Zeile folgende Zahl eingetragen wird:

Eingabe Spalte2: 101 bis 125 - Ausgabe in Spalte4: 1
Eingabe Spalte2: 150 bis 165 - Ausgabe in Spalte4: 1
Eingabe Spalte2: 201 bis 225 - Ausgabe in Spalte4: 2
Eingabe Spalte2: 250 bis 265 - Ausgabe in Spalte4: 2
Sollte eine andere Zahl eingetragen werden, soll sich eine MsgBox öffnen.

Es müßte mit dem Change-Ereignis funktionieren, krieg es aber nicht hin :o(
Ist das möglich und kann mir jemand behilflich sein?

Vielen Dank
Max

  


Betrifft: AW: Spalte auswerten und neuen Wert eintragen von: Roland Hochhäuser
Geschrieben am: 27.08.2004 22:24:31

Hallo Max,
versuche das mal (Ins Klassenmodul der Tabelle)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
Select Case Target.Row
Case 101 To 125
Target.Offset(0, 2) = 1
Case 150 To 165
Target.Offset(0, 2) = 1
Case 201 To 225
Target.Offset(0, 2) = 2
Case 250 To 265
Target.Offset(0, 2) = 2
Case Else
MsgBox ("Cursor ist im falschen Bereich!")
End Select
End Sub

Gruß
Roland


  


Betrifft: AW: Spalte auswerten und neuen Wert eintragen von: Roland Hochhäuser
Geschrieben am: 27.08.2004 22:26:41

gehört natürlich in
Private Sub Worksheet_Change(ByVal Target As Range)
Gruß´
Roland


  


Betrifft: AW: Spalte auswerten und neuen Wert eintragen von: Max
Geschrieben am: 27.08.2004 23:17:07

Danke für die Superschnelle Antwort.
Funktioniert aber erst, wenn man statt:

Select Case Target.Row

Select Case Cells(Target.Row, 2).Value

einsetzt. Dann klappt's :o)

Danke
Max


  


Betrifft: Hatte gerade kein Excel 97 da o.T. von: Roland Hochhäuser
Geschrieben am: 27.08.2004 23:35:03




 

Beiträge aus den Excel-Beispielen zum Thema "Spalte auswerten und neuen Wert eintragen"