Office: Wert suchen und alle Inhalte darunter in der Spalte entfernen

Hallo ,

benötige eure Hilfe.
Ich suche in einer Tabelle einen Wert und wenn der gefunden ist soll mir
ab dem Wert alles was darunter in der Spalte steht entfernt werden.

Versucht habe ich es so:

PHP:

         Do
Set Such = ActiveSheet.UsedRange.Find("Daten 2")
If Not Such Is Nothing Then Such.EntireColumn.Value = ""
Loop Until Such Is Nothing


:)

 

Range( Such, Cells( Such(1048576, Such.column)).clearcontents

Bitte berücksichtige das Themen die Erledigt sind als Erledigt markiert werden können. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.





Meine Homepage Homeseite - Hajo's Excelseiten

 

Hi,

wenn du eine Zelle gefunden hast, kombinierst Du .Resize() mit Offset() und entfernst die Inhalte.

Durch UsedRange weisst Du wieviel Zellen noch übrig sind.
Durch die Zeilennumer bei einem Fund weisst Du wo Du bist.
Damit fütterst du Resize().

Offset(1) hinten dran, damit du dein Fund nicht auch mitlöscht.

Probiers aus. Den Code vorkauen möchte ich nicht, aber wenn Du dieser Idee folgend etwas lieferst supporte ich gerne *Smilie


Edit:
Sorry Hajo, zu spät gesehen.
Da unterschiedlich würde ich gern stehen lassen.

 

Vielen Dank ,

Versuche es jetzt mal umzusetzen

 

Hallo ,

Hajo funktioniert . Vielen Dank

Versuche gerade beide Lösungen umzusetzen bzw zu verstehen.

Mase ich kriege das kombinieren von Resize() mit Offset() irgendwie nicht hin.

Habe es jetzt mal so versucht :

Do
Set Such = ActiveSheet.UsedRange.Find("Daten 2")
If Not Such Is Nothing Then Such.Offset(1, 0).Resize(1000, 1).Clear
Loop Until Such Is Nothing

Das ist allerdings nicht das was du vorgeschlagen hasst.
Funktioniert zwar aber ich weiß nicht warum es nicht auf alle Spalten angewandt wird und nach dem ersten finden abbricht.

Vielleicht kann mir noch jemand eine Hilfestellung geben

Danke

 

Ersetze .Clear mit .Select, dann siehst Du was passiert ohne Inhalte zu entfernen. Nun die hartcodierten Werte durch verfügbare Eigenschaften ersetzen, um das Ganze dynamisch zu gestalten.

.Row liefert Zeile
.Rows.Count Anzahl Zeilen.

So verhält es sich auch mit Spalten -> .Column.

Das dann mit UsedRange kombinieren.

 

Danke

 

Gern. Dann Ergebnis hier als Feedback posten, dann haben Andere vielleicht auch mal was davon *wink.gif*

 

Werde ich tun sobald mein Projekt fertig ist.