|
Hallo :)
Ich habe folgendes provlem und hoffe jmd kann mir weiterhelfen :
Dim wert As Integer
If Sheets("Input").Range("b9").Value = "" Or "0" And Sheets("Input").Range("c9").Value = "" Or "0" _
And Sheets("Input").Range("b11").Value = "" Or "0" Then
wert = InputBox("Messwerte der Verglasung für den Einstrahlwinkel von 60° nicht vorhanden - Bitte einen Wert für qroos aus der nebenstehenden Tabelle eingeben")
Range("b11") = wert
Range("b11").Select
End If
Irgnedwie funktioniert es nicht richtig, dass NUR wenn alle Zellen leer oder 0 sind, sich die inputbox öffnet.
Passt eigtl alles soweit, aber wenn in C9 ein Wert eingetragen ist, öffnet sich auch die infobox ???
Ist aber nur in B9 was eingetragen, läuft das Programm durch...an was liegt das ?
hoffe mir kann jemand helfen :)
lg jens
|