ich probiere schon die ganze Zeit eine MsgBox in meinen Programmteil einzubinden, die eine Fehlermeldung ausgibt wenn man einen falschen Wert eingibt, aber irgendwie baue ich nur Endlosschleifen. :-(
Kann mir jemand weiterhelfen unten steht das Programm.
Sub Auswahl()
Dim KostenSt As Variant
Dim Suchbegriff
Dim ErgWert
KostenSt = Application.InputBox("Geben Sie eine Kostenstelle ein:")
Range("E1") = "KostenSt"
Range("E2") = KostenSt
Suchbegriff = Range("E2")
ErgWert = 0
For Each zell In Range("b1:b3000")
If zell.Value = Suchbegriff Then
ErgWert = ErgWert + Range("d" & Range(zell.Address).Row).Value
Next
Range("F2") = ErgWert
Range("F1") = "GesamtSaldo"
End Sub
Gruß
Christine