Excel: "lösche in einer Spalte alle zellen wo keine Zahlen drinn stehen", wie?

[drmaniac]

Hi,

kennt jemand eine schicke Formel o.ä., die mir ein einem bestimmen Bereich Zellen löscht, wenn etwas nicht zutrifft?

Beispiel:

in der Spalte A sind Zahlen, Leerzeilen und Text

0
1
2
10
20

Hallo
1
5
Text

2
3


Und ich suche eine Formel die den Bereich A1:A20 z.B. überprüft und den Text+Leer einfach löscht (Zellen nach oben verschieben).

Kann mir ja jemand helfen?

Oder ein Macro?

Das Problem ist, dass der Text, Leer, nicht immer in der selben Zeile vorkommen...


cu

[Gast]

Const Spalte = "A"
Const Zeilen = "1000"
Const Suchzeichen = "."

Sub ZeilenLöschen()
For x = Zeilen To 1 Step -1
If InStr(Range("A" & x), Suchzeichen) > 0 Then _
Rows(x & ":" & x).Delete Shift:=xlUp
Next x
End Sub


im netz gefunden

jetz musst du halt nur noch die bedingung mit der ersetzen die du haben willst, also quasi überprüfen ob da ne zahl drin steht und wenn nicht -> weg

[drmaniac]

Und für google falls jemand auch mal so ein Problem hat ;) :


Problem gelöst :)





Sub weg()
On Error Resume Next
[A1:A20].SpecialCells(4).Delete Shift:=-4162
[A1:A20].SpecialCells(2, 2).Delete Shift:=-4162
End Sub

Also neues Macro erstellen, Code einfügen, Macro laufen lassen fertig :)

Danke an den Horst und Kay :D

Excel Problem Lösungs Realtime Forum ;) http://www.herber.de/cgi-bin/forum/call_forum.pl


cu

.

edit: danke trotzdem @Gast:)


.