---

Guten morgen,

in meiner Stückliste tauchen immer wieder Zeilen auf, wo
"Dummy" und "Fert am 17.6.16  MW" stehen. Diese Zeilen möchte ich löschen.
Die Zeile mit "Dummy" habe ich geschafft zu löschen mit:

Range("A1:A3").Select
    For Each cell In Selection
      If cell.Value = "Dummy" Then cell.EntireRow.Delete
  Next

muß dazu sagen, das Wort Dummy taucht wenn, immer in den ersten 3 Zeilen, auf in Spalte D.

"Fert am 17.6.16  MW" ist nicht immer gleich, da sich Datum und Ersteller ändern, deshalb reicht ja wenn man nach "Fert am* sucht und das wollte ich so erledigen:

Range("A1 :biggrin:3").Select
    For Each cell In Selection
      If cell.Value = "Fert am*" Then cell.EntireRow.Delete
  Next

Leider funktioniert das nicht. Das Wort steht immer in Spalte D und meistens in der 2. Zeile.

Danke mal

[Diese Nachricht wurde von röhmler am 06. Apr. 2017 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ähm,

der Smiley war nicht gewollt

Range ("A1 : D3).Sel.........

muß es heissen (ohne leer dann)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

OT:
Jetzt hast du Leerzeichen UND ein fehlendes "

Im Antwort-Dialog, links vom Eingabefeld, steht der Link zur Hilfe der verfügbaren UBB-CODEs, dabei ist CODE interessant.
Auch könnte man die Verwendung von Smilies in einer Antwort ausschalten, dies ist ebenfalls in im Antwort-Dialog, jedoch unterhalb der System-Info, als Option wählbar / Smilies deaktivieren.

Code:

---

Range("A1:D3").Select
    For Each cell In Selection
      If cell.Value = "Dummy" Then cell.EntireRow.Delete
  Next

-

(defun c:DasTollsteProgramm nil
    (alert ":D:D:D:D:")
)

-

[CommandMethod("D:LOL")]
public static void testDimUpdate()
{
Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;
try
{

---

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus, man kann die Beiträge ändern  und das Makro in einen Code packen

Code:

---

If cell.Value Like "*put text here" Then

---

------------------
<----- Bitte Systeminfo eintragen, warum siehst du hier. Schöne Grüsse aus der Steiermark  Bernd P.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hab ich das richtig verstanden Bernd?

Anstatt

Range("A1:D3").Select
    For Each cell In Selection
      If cell.Value = "Fert am*" Then cell.EntireRow.Delete
  Next

If cell.Value Like "*Fert am" Then

????
Dann geht gar nix mehr

[Diese Nachricht wurde von röhmler am 06. Apr. 2017 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ne.... anstatt "=" "Like" verwenden.

Code:

---

Range("A1:D3").Select
    For Each cell In Selection
      If cell.Value Like "*Fert am" Then cell.EntireRow.Delete
    Next

---

------------------
<----- Bitte Systeminfo eintragen, warum siehst du hier. Schöne Grüsse aus der Steiermark  Bernd P.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke,

es funktioniert, wenn ich anstatt "*Fert am "
"Fert am *" schreibe.

Danke und schönes Weekend

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP