Office: (Office 365) Führendes Hochkomma in Text Zelle einfügen

Hallo,
danke erstmal für die bisherige Hilfe. Jetzt ist noch etwas dazu gekommen:
Ich muss Zeilen Löschen die bestimmte Werte in den Zellen A1 bis 5000 enthalten. Etwas ähnliches hatte ich schon mal in Word mit Nutzung eines Arrays. Dort habe ich allerdings nur Zeichen gelöscht, in Excel würde ich gerne die ganze Zeeile löschen. Den Code würde ich gern in Excel auch benutzen, brauche aber fachkundige Hilfe :-). Den Word Code habe ich mal hier gepostet.

Sub Remove()

Dim ddl As Document: Set ddl = ActiveDocument 'Hier gehe ich mal davon aus Sheet und ActiveSheet statt Document?

Dim rngDoc As Range, strArr As Variant, sI As Long, strNom As String

strArr = Array("Chargenrückruf", "Btm Karteikarte", "Btm - Ordner", "Retourengebühr", "Pseudoartikel", "Allergien:!")

For sI = 0 To UBound(strArr)

strNom = strArr(sI)

trNom = Replace(strNom, ":!", "") 'hier habe ich verschiedene Zeichen gelöscht, in Excel möchte ich die ganze
'Zeile der Zelle löschen, in dem der Ausdruck im Array vorkommt.
strNom = Replace(strNom, "-", "")

strNom = Replace(strNom, " ", "")

Set rngDoc = dd1.Content

Ich hoffe mir kann jemand behilflich sein.

Danke
Alexander

 

Hi Alexander,

Code:

Sub ZeilenLoeschen()
    Dim strArr()
    Dim rngBereich As Range
    Dim lngZeile As Long
    Dim varZaehler As Variant
    Dim blnLoeschen As Boolean
    strArr = Array("Chargenrückruf", "Btm Karteikarte", "Btm - Ordner", "Retourengebühr", "Pseudoartikel", "Allergien:!")
    ' alle belegten Zellen der Spalte A auf Variable schreiben
    Set rngBereich = Columns(1).SpecialCells(xlCellTypeConstants)
    ' Schleife von letzter bis erster Zelle
    For lngZeile = rngBereich.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
        ' Inhalt der laufenden Zelle im Array suchen
        varZaehler = Application.Match(Cells(lngZeile, 1), strArr(), 0)
        ' Zellinhalt wurde im Array gefunden
        If Not IsError(varZaehler) Then
            ' Zelle leeren
            Cells(lngZeile, 1).ClearContents
            ' Prüfvariable auf True setzen falls auf False
            If blnLoeschen = False Then blnLoeschen = True
        End If
    Next lngZeile
    ' wenn Prüfvariable auf True dann Zeilen aller Leerzellen im Bereich löschen
    If blnLoeschen Then rngBereich.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Der Code wird im aktiven Tabellenblatt ausgeführt.

---

 

Mega toll von dir, danke, funktioniert prima.

Schönes WE
Alexander

 

Hallo Karin,
dies ist der Thread und die Fragestellung. Wie kann ich den Code anpassen, damit er auch mit anderen Spalten als A funktioniert. Verändern des Parameters Culomns(1) zu Culomns(x) funktioniert jedenfalls nicht
Gruß
Alexander

 

Hi Alexander,

da du dich nicht geäußerst hast, was GENAU nicht funktioniert, kann ich nur raten. Die Spalte wird nicht nur im Parameter bei Columns(1) angesprochen sondern auch hier: Cells(lngZeile, 1)

---

 

Hallo Karin,
der Code funktioniert absolut in Spalte A. Ich möchte ihn aber anpassen, dass er auch in einer anderen Spalte funktioniert, z.B. Spalte E. Hier würde ich Culomns(1) auf 5 und Cells(lngZeile, 1 ebenfalls auf 5 ändern damit der Code in Spalte E läuft?

 

Kann man den Code anpassen, dass er bei Auffinden des Ausdrucks im array nicht die Zeile löscht, sondern den gefundenen Ausdruck gegen einen anderen austauscht?

 

Genau - die Ziffer gibt die Spaltennummer an.

Wenn der Ausdruck nur ersetzt werden soll, dann musst du anstelle .ClearContents schreiben ="DeinErsatz". Außerdem musst du alle Zeilen löschen, die die Prüfvariable blnLoeschen enthalten.

---

 

...und wie oder wo gebe ich den zu ersetzenden Begriff ein?

 

Hi Alexander,

da ich deinen Begriff nicht kenne, der in die Zelle geschrieben werden soll, habe ich einfach mal an genommen er heißt "DeinErsatz" <- das musst du natürlich anpassen. Die betreffende Codezeile löscht dann nicht die Zeile im Tabellenblatt sondern schreibt stattdessen diesen speziellen Begriff in die Zelle.
Oder sollen es unterschiedliche Begriffe sein, die in Abhängigkeit vom Zellinhalt eingetragen werden sollen? Das müsstest du dann schon mal genau sagen - da ich deine Mappe nicht kenne kann ich immer nur raten.

---

 

Hallo Karin,
sorry, dass ich da so ungenau war. Ja es handelt sich um unterschiedliche Begriffe, die in Abhängigkeit vom Zellinhalt eingetragen werden sollen. Hier mal eine Beispiel Datei:
Als Beispiel die gelb gemarkerten Zeilen. Hier sollen die Ausdrücke "Aciclostad" "Gilurytmal" und "Pridax" gegen die Ausdrücke in Spalte E ausgetauscht werden.
Dies muss ich mit der gesamten Tabelle machen.

 

Hi Alexander,

und was ist mit den nicht gelb markierten Zeilen - sollen die Begriffe dort auch aus Spalte F nach Spalte A übertragen werden? Das kann man doch ohne Makro ganz einfach machen, indem man Spalte F komplett markiert, kopiert und dann in A einfügt - wo also ist das Problem?

---

 

Nein, leider nicht in allen. Lediglich in denen wo ein bestimmter Suchbegriff auftaucht.
Also in dem Feld Aciclostad soll dieser Begriff durch Aciclovir ersetzt werden
Gilurytmal durch Ajmalin usw.
Die nicht gelb markierten Felder können so stehen bleiben. Es soll auch lediglich das Wort in der Zelle ersetzt werden, nicht die gesamte Zelle.

 

Also das Makro soll Wörter in Spalte A durch Worte in Spalte E ersetzen und den Rest der Zelle A beibehalten.

 

Du hast geschrieben:

Wenn man z.B. beim Zellinhalt A12 "Aciclostad 400" den Begriff "Aciclostad" gegen den Ausdruck "Aciclostad 400 Tab" in E12 austauscht, dann erhält man "Aciclostad 400 Tab 400" - das kann es doch wohl nicht gewesen sein...

Du solltest dir schon genau überlegen, was wie gemacht werden soll.

---