Makto wert verändern
26.01.2009 10:43:24
ms_michael_2002@yahoo.de
Wollte über inputbox eine zahl eingeben die dann solange bestehen bleibt oder verglichen wird, bis das program beendet ist. Muss man dann eine funktion eingeben? Keine Ahnung.
Gruß Michael
Sub p()
dim zahl as integer
zahleingeben
If Sheets("Tabelle1").Range("A1") > zahl Then
Msgbox(" Achtung")
End If
End Sub
Sub zahleingeben()
dim zahl as integer
zahl = inputBox ("Zahl eingeben: ")
End Sub