Hallo ,
habe längere Zeit in VBA nichts gemacht nun stehe ich vor folgender Aufgabe. Wir wollen im Unternehmen Besetzungen besser auswerten. Die Daten liegen in Excel vor.
With Sheets("PersStammdatei")
.Activate
For z = 2 To .Range("A65536").End(xlUp).Row
If .Cells(z, 2).Value = "E" Then ' es wird geprüft ob das Kennzeichen des Datensatzes E lautet
persn = .Cells(z, 1).Value 'übertragen in eine Variable
With Sheets("Datenstellen") 'In der anderen Tabelle wird nach der Variable gesucht.
For y = 2 To .Range("AC65536").End(xlUp).Row
If .Cells(y, 29).Value = persn Then .Cells(y, 29).Value = "" 'Wird dort die Variable gefunden, dann wird die Celle mit "leer" gesetzt.
Next
End With
Cells(z, 2).EntireRow.Select
Selection.Delete Shift:=xlUp
geloescht = geloescht + 1
End If
Next
End With
Soweit funktioniert es gut. Es gibt aber Fälle dort steht in der Zelle mehrere "persn" getrennt durch ein Leerzeichen oder ein Alt-Return. das Programm soll dann in dieser Zelle die eine pers nummer finden und nur diese eliminieren.
Kann mir da jemend einen Tip geben?
Danke