Msg Box einblenden nach Prüfung
12.03.2004 22:40:42
Stefan
ich versuche gerade ein VBA-Makro zu schreiben, dass folgendes durchführt:
Es soll zunächst einen Wert in einer Zelle prüfen.
Falls Wertj größer 0, dann Msg Box, bei Klick auf OK soll der Vorgang abgebrochen werden
Falls Wert gleich 0, dann keine Msg Box und Ablauf des restlichen Makros (Ausblenden von Zellen)
Sub evenly()
Range("J65").Select
If Wert = 1
MsgBox "Sorry, the number of classes is not devidible by the number of bands", vbOKOnly, "not devisible"
End If
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.SmallScroll Down:=13
Rows("79:103").Select
Selection.EntireRow.Hidden = True
End Sub
Ich bin bei der VBA-Programmierung total blank, und kann deshalb auch mit den Fehlermeldungen herzlich wenig anfangen.
Deshalb bin ich für jede Hilfestellung sehr dankbar.
Danke im voraus,
Stefan