Excel Daten löschen Wichtig

[TheLamer]

Hallo,

Ich hab folgendes Problemm ich hab ein Programm in dem man über eine TextBox Daten aus einer Excel Tabelle suchen kann die dann in einer 2 TextBox angezeigt werden können. Die Excel Tabelle hat 3 Spalten und 120 Zeilen in der 1 Spalte stehen Kunden Nr. in der 2 Spalte steht die Auftrags Nr und in der 3 Spalte steht eine Beschreibung.
Wen man nach was sucht gibt man in die 1 Textbox Z.b. die Kunden Nr. ein und Kriegt in der 2 Textbox Die Auftrags Nr + Beschreibung raus.

Nun mein Problem
Ich will eine Lösch Taste einbauen die den Inhalt Löscht den man Grad angezeigt bekommt über die TextBox.
Ich hoffe ihr könnt mir Helfen.

 

[Yoah]

Moin,

wenn ich das richtig verstehe, hast du alles, was
du brauchst, fehlt nur das Knöpfchen zum löschen

Du liest ja die Box aus, in der der besagte Text steht, mit
dem löschen Button musst du dann nur die Stelle, bzw. Zelle mit "" (nix) befüllen,
ist im Prinzip das gleiche wie löschen!

WBook.Sheets(1).cells(Reihe, Spalte).Value = ""

 

[TheLamer]

Danke erst einaml für deine Antwort
aber mein Problemm ist ja das er die reihe (Spalte) löschen soll die er mir grad anzeigt
ich kann ich nicht im vorfeld sagen welche reihe(Spalte) er löschen soll da ich ja nicht weiß nach welchen eintrag grad gesucht wird.

 

[TheLamer]

Hi

kann mir den niemand Helfen oder hab ich das zu ungenau beschrieben ?

 

[ulki]

Hi,

bin bei meinen Recherchen zu meinem Probelm über dies gestolpert:

Rows(i).Delet

dabei gibt i den Index der Zeile an. Oder aber:

ActiveCell.EntireRow.Delet

löscht die gesamte Zeile in der sich die makierte Zelle befindet.

Möchte aber für nichts garantieren habe es selbst nicht getestet.

ulki

 

[blackdeath]

Hi..

Also da gibt es mehrere Möglichkeiten.. wenn du nur den Inhalt löschen möchtest ohne zeilen nachrücken.. Dann geht das mit ClearContents.

z.B.

Activesheet.Rows("2:2").ClearContents

Mit dieser Variante, wird die komplette Zeile gelöscht und die unteren 1x nach oben geschoben.

Activesheet.Rows("2:2").Delete Shift:=xlUp

Was du jetzt noch machen musst ist einfach.. Wenn du die gefundene Zeile im TxtFenster ausgibst einfach..

mit .row die zeile auslesen und diese dann oben ersetzen in Rows(iCellDel)

Wenn du was im Excel machen willst, gibt es einen sehr einfachen Trick..
Mach einfach Record Macro und dann kannst du pfuschen.. danach auf Stop.. Mit Alt+F11 in die Programmierumgebung und im neuen generierten Modul findest du dann die CodeZeilen zu deinem Macro..

Hoffe das hilft dir mal bisschen weiter.