Hallo,
ich habe folgende Funktion gebastelt. Ich habe zum Beispiel in der Spalt B code=+069**10 stehen und en rEst mit anderen Daten. Jetzt soll er alle löschen, bis auf die mit Code=+069**10 bis Code=+069**59. Dies habe ich bis jetzt so erledigt, das der Parameter Rufnummer immer um eins hochgezählt wird und vergliechen mit dem Wert in der Spalte. Super Zeitschleife dies Schleife. Diese Funktion muss aber eigentlich nur nach Code=+069** suchen, was danach steht, ist mir egal. Nun dacht ich, ich lese Einfach den Wert in der Spalte mit bw = Selection.Left(spalte, 11) oder so ähnlich aus und vergleiche dies mit Code=+069. Diesen befehl gibt es aber in dieser Form so nicht und ich habe keine Idee. Ich könnte mir dann die ganze Schleife Rufnummer ersparen und somit einiges an Zeit.
AStart:
i = i + 1
spalte = "B" & i
Range(spalte).Select
bw = Selection
' Left(spalte, 11)
For Rufnummer = 10 To 59
suchen = "CODE=+069**" & Rufnummer
If bw = "" Then GoTo loeschen
If bw = suchen Then GoTo AStart
Next Rufnummer
Rows(i).Select
Selection.Delete Shift:=x1UP
i = i - 1
GoTo AStart
Vielen Dank für eure Hilfe
Gruss Jan