ich habe jetzt meinen Makro soweit fertig (glaube ich).
Wie kann ich ihn jetzt auf ein Button legen und darüber auslösen???
Wenn ihr dann noch ein bischen Zeit habt, könnt ihr euch ja kurz den unten stehenden Programmteil anschauen um vielleicht schwerwiegende Fehler zu entdecken.
Gruß
Christine
Sub KostenSt()
Dim KostenSt As Variant
Dim Zelle As Range
Dim Suchbegriff
Dim ErgWert
KostenSt = Application.InputBox("Geben Sie eine Kostenstelle ein:")
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
End If
Next
Range("F2") = ErgWert
End Sub