Excel & Vba Problem mit Messagebox

Computer: Software & Programmierung Visual Basic
#1

Hallo Experten,

Ich habe eine Exceltabelle in der ich eine Füllmengenüberpfrüfung einbauen will.

in der Zelle C13 habe ich den aktuellen tankfüllstand. In der Zelle H13 gebe ich ein wieviel öl ich nachgefüllt habe und in der Zelle L7 steht die maximale Tankgrösse.

Nun möchte ich gerne eine Messagebox per popup anzeigen lassen, falls die Zellen C13+H13 summiert mehr als Zelle L7 ergeben.
d.h. ich habe einen Tank mit einer maximalen Füllung con 10000 Litern. Der aktuelle Messstand beträgt z.b. 7000 Liter, und wenn ich nun bei der Nachfüllung z.b. 5000 eingebe muss eine Messagebox erscheinen die mir sagt dass dies nicht möglich ist, da sonst der Tank überlaufen würde.

Ist so was realisierbar??

Liebe Grüsse

Sascha

#2

Hallo Sascha.

Du kannst den folgenden Code in das WorksheetChange-Ereignis des entsprechenden Tabellenblattes schreiben:

Private Sub Worksheet\_Change(ByVal Target As Range)
 On Error GoTo Fehler
 If Cells(13, 3) + Cells(13, 8) \> Cells(7, 12) Then
 MsgBox "So läuft der Tank aber über.", vbCritical
 End If
Ende:
 Exit Sub
Fehler:
 Resume Ende
End Sub

Viele Grüße
Carsten

#3

Hi Carsten,

Vielen lieben Dank. Das hat geholfen! :smile:)

SUPER