excel-vba-frage

Lieber Besucher, herzlich willkommen bei: MastersForum. Falls dies Ihr erster Besuch auf dieser Seite ist, lesen Sie sich bitte die Hilfe durch. Dort wird Ihnen die Bedienung dieser Seite näher erläutert. Darüber hinaus sollten Sie sich registrieren, um alle Funktionen dieser Seite nutzen zu können. Benutzen Sie das Registrierungsformular, um sich zu registrieren oder informieren Sie sich ausführlich über den Registrierungsvorgang. Falls Sie sich bereits zu einem früheren Zeitpunkt registriert haben, können Sie sich hier anmelden.

fast_boozo

Profi

Beiträge: 1 590

Wohnort: Vechta

Beruf: GER

18.02.2005, 23:30

excel-vba-frage

nabend

folgende aufgabe:

tabelle - spalte C - telefonnummern(ohne führende 0)

ich möchte jetzt alle zeilen mit telefonnummern löschen, die nicht mit 4 anfangen.

habs bislang mit hilfsspalte gemacht und dort mit

"teil(c4;1;1)"

die erste stelle isoliert, danach mit folgendem makro

lz = Cells(Rows.Count, 1).End(xlUp).Rows.Row
For t = lz To 2 Step -1
If Cells(t, 7).Value <> "4" Then
Rows(t).Delete shift:=xlUp
End If
Next t

die zeilen löschen lassen.

das muss doch auch noch einfacher zu lösen sein.

also entweder die hilfsspalte per makro generieren lassen, oder die abfrage direkt mit ins makro packen.

anschliessend sollen noch doppelte nummern gelöscht und danach sortiert werden, aber das krieg ich wohl selber hin.

Danke schonmal

It's nice to be important, but it's more important to be nice!