Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: #WERT! suchen und löschen

#WERT! suchen und löschen
05.08.2004 14:10:30
Robson
Hallo Leute,
ich hoffe ihr könnt mir bei meinem Problem helfen.
Ich habe folgenden Code zur Prüfung (danach löschen) ob in einer Zelle #WERT! steht, das funktioniert auch wunderbar:
'Prüfung ob ein Konstanten-Fehler in der Spalte vorhanden ist
Range("A1").Select
Selection.SpecialCells(xlCellTypeConstants, 16).Select
Selection.EntireRow.Delete
Jetzt zu meinem Problem.
Wenn ich aber in dieser Tabelle keinen Fehler habe, dann bringt mir VBA eine Fehlermeldung in dieser Zeile:
Selection.EntireRow.Delete
Gibt es eine Möglichkeit, dass erst geprüft wird und jenachdem ob ein Fehler existiert "Selection.EntireRow.Delete" gemacht wird sonst nicht?
Danke
mfg Robson
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: #WERT! suchen und löschen
Ulf
Das ist einer der Fälle, wo es nur mit einer On Error- Anweisung geht.
Range("A1").Select
On Error goto Errhandler
Selection.SpecialCells(xlCellTypeConstants, 16).Select
Selection.EntireRow.Delete
exit sub
Errhandler:
Msgbox "Keine Fehlerwerte!"
Ulf
AW: #WERT! suchen und löschen
Robson
Ulf danke für deine schnell Hilfe, aber leider hat es noch nicht funktioniert.
Dieser Code, den ich aufgeschrieben habe, ist schon in einem Unterprogramm.
Es läuft folgendermassen ab:
Ich kopiere bestimmte Spalten in ein neues Tabellenblatt...
Nun will ich eine Untersuchung machen, ob ein #WERT!-Fehler in irgendeiner Zelle in diesem neuen Tabellenblatt ist. Falls ein #WERT!-Fehler dabei ist, sollen diese kompletten Zeilen gelöscht werden und falls nicht, dann soll er im Programm einfach weiter machen und keine MsgBox die mir irgendwas sagt. Deswegen habe ich versucht nur diesen Teil einzubauen:
Range("A1").Select
On Error goto Errhandler
Selection.SpecialCells(xlCellTypeConstants, 16).Select
Selection.EntireRow.Delete
aber hier hat er einen Fehler bei Errhandler gebracht (Sprungmarke nicht definiert).
Ich hoffe du kannst mir nochmal helfen
Anzeige
AW: #WERT! suchen und löschen
Ulf
Errhandler: (Wichtig, der :) muss direkt vor End Sub stehen:
Range("A1").Select
On Error goto Errhandler
Selection.SpecialCells(xlCellTypeConstants, 16).Select
Selection.EntireRow.Delete
exit sub
Errhandler:
Ulf
AW: #WERT! suchen und löschen
Robson
Danke Ulf, ich glaube es hat funktioniert. Muss nur noch etwas testen...
Gruß Robson
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige