Hallo,
ich durchsuche eine Spalte nach Kostensellen die immer mit 6334 anfangen aber eine variable Endung haben. Ist eine Zelle
mit der entsprechenden Kostenstelle gefunden werden Kosten aus einer anderen Zelle zu den Gesamtkosten addiert.
Das funktioniert alles problemlos, wenn ich die ganze Kostensetllennummer eingebe, also bspw. 633424. Da ich aber alle Punkte
der Kostenstellen 6334 abfangen möchte habe ich
"6334*"
geschrieben. Wenn ich mir die ActiveCell vor und in der
If
Bedingung
ausgeben lasse, sieht man, dass der Code nie in die
If
-Bedingung springt.
Warum erkennt das Programm diesen
Like
-Operator nicht?
Vielen Dank schonmal für jede Hilfe. Gruß Simon
Do
Until
ActiveCell =
""
ActiveCell.Offset(1, 0).Activate
If
ActiveCell =
"6334*"
Then
AktuelleZeile = ActiveCell.Row
Kosten = Kosten + Cells(AktuelleZeile, SpalteKosten).Value
End
If
Loop
Debug.Print
"Die Gesamtkosten betragen "
& KostenMLB1