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
|