Wer weiß Rat ? VBA
01.09.2004 19:02:43
Paul
ich hätte nochmal ein Anliegen,
in untenstehendem VBA-Skript habe ich das Problem, dass der wert in Zelle F18, bei Überschreitung des Schwellenwertes von 100 in Zelle F16, bestehen bleibt.
Ich hätte es eigentlich gerne, dass in F18 erst ein Wert eingesetzt wird, wenn in F16 ein Wert steht (Summe in F16 wird erst gebildet wenn in den darüberliegenden Zellen Werte eingetragen sind (Summenbildung über "Wenn-Istzahl-dann....")) Übersteigt die Summe in F16 den Wert 100, dann soll der Wert 1,75 in F18 gelöscht werden, um vom Anwender den enstsprechenden Wert eintragen zu lassen.
Geht sowas ?
Private Sub Worksheet_Calculate()
If [f16] < 100 Then
[f18] = 1.75
End If
End Sub
Desweiteren habe ich noch bei nachfolgendem Skript ein Problem:
Bei Eintrag des Schlüsselwortes "luft" in bspw. A1 das VBA-Skript ausgeführt. Allerdings muss das Schlüsselwort genau so in die Zelle eingetragen werden. Läßt sich auch realsieren, dass das Schlüsselwort "luft" ein Fragment des Eintrages in der Zelle sein kann (also bspw. "Luftkissen" o.ä.) und das Skript, unabhängig von Groß- oder Kleinschreibung, auch ausgeführt wird ?
Wenn der Anwender das Formular zurücksetzen möchte und dabei alle Einträge wieder löscht, dann meldet sich der Debugger. Offensichtlich macht es Probleme wenn ein Zelleintrag über die "Entf-Taste" gelöscht wird. Lässt sich sowas auch abstellen ?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim intRow As Integer
intRow = Target.Row
If Target.Column = 1 Then _
If Target = "luft" Then <== Diese Zeile markiert der Debugger
Ihr habt mir bisher schon erfolgreich helfen können. Würde mioch freuen, wenn es
für die letzten Probleme auch eine Lösung gäbe.
Gruß Paul