Excel / Office 365 Suchen und ersetzen mehrere Textzeilen mit Umbrüchen /CR /N (?)

Hallo Tim,

ich verstehe immer noch nicht richtig. Teste mal:

Sub Ersetzen()

Dim rngC As Range

Dim LRow As Long

Dim suchStr As String
suchStr = "politics" & Chr(10) & "fact-checker" & Chr(10)With ActiveSheet

   LRow = .Cells(.Rows.Count, "C").End(xlUp).Row

   .Range("C1:C" & LRow).Replace what:=suchStr, replacement:=Chr(10)

End With

End Sub

Claus

Hallo Tim,

deine Beschreibung ist nicht ganz eindeutig.

Wenn du nur Worte löschen willst, die zwischen zwei Zeilenumbrüchen stehen, dann probiere mal folgendes Makro an einer Kopie deiner Mappe.

Schreibe die zu löschenden Wörter in das Array, passe eventuell den Bereich an (im Moment wird nur in Spalte A gesucht und ersetzt):

Sub Ersetzen()

Dim rngC As Range

Dim LRow As Long

Dim varDel As Variant

Dim i As Integer
varDel = Array("politics", "fat checker")
With ActiveSheet

   LRow = .Cells(.Rows.Count, "A").End(xlUp).Row

   For i = LBound(varDel) To UBound(varDel)

      .Range("A1:A" & LRow).Replace what:=Chr(10) & varDel(i) & Chr(10), replacement:=Chr(10)

   Next

End With

End Sub

Claus

Hey Claus,

danke dir für die schnelle Antwort und Hilfe!

Hm, ich versuche mich nochmal nach genauer auszudrücken:

Ich hab die Textspalte C mit ArticleTexten.

Recht schlecht gescraped, aber naja, deswegen hab ich hier einen Nebenjob..

Es gibt feste Muster am Ende des Textes, dass ich durch Massen Suchen und Ersetzen löschen möchte:

Also wie:

"politics\n

fact-checker"

^- in zwei Zeilen.

Bisher kann ich nur in Excel eine ganze Zeile löschen. Ist dann mühselig, weil ich das Suchen und Ersetzen Skript 12-30 mal ausführen muss und funktioniert das auch nicht:

politics

und

fact-checker

kommen in journalistischen Fact-Checking Artikeln sicher öfter in Zeilen vor, da würde einzeln löschen also Sachen löschen, die ich nicht löschen möchte.

Hier noch ein Screenshot zur Verdeutlichung:

https://imgur.com/a/uB76IJd

Da sieht du die verschiedenen Patterns, die z.B. die 2 Wörter haben können

das erste Pattern

"politics\n

fact-checker" möchte ich löschen.

Die restlichen Muster oder einzelne Wörter nicht.

Ergebnis des Makros war dieses:

Hat leider also nicht das richtige gemacht. Komme aber auch nicht drauf, warum das Makro so gehandelt hat.

Gruß Timmy

Hallo CR,



Ich benötige die Email des Benutzers, damit ich im System nach dem Benutzer suchen kann und einige Eigenschaften prüfen kann.



Mit freundlichen Grüßen,



Georgi Taskov



Microsoft Office 365 Support Engineer

ich arbeite auf einem PC. In den Agenturen musste ich zwar mit MAC's arbeiten, aber Word bleibt Word... dachte ich.

Hab das mit den Seitenzahlen jetzt, wie gesagt, umgangen, indem ich die Seitenzahlen zentriert habe.

Habe nun aber das Problem, dass Word ab und zu die Seiten ein paar Zeilen (oder auch nur eine) früher beendet als die anderen. Und um das Buch noch ein wenig dichter zu setzen (und Seiten zu sparen, weil mehr Seiten beim Druck erheblich mehr Geld kosten), suche
ich nun nach einem Weg, die nächste/n Zeile/n auf die vorherige Seite noch zu setzen.

Schließlich sehe ich an den anderen Seiten, dass da noch eine oder zwei Zeilen hineinpassen würden.

Es ist kein Umbruch aktiv, kein Leerzeichen o.ä.

Wie bekomme ich nun diese Zeilen noch auf die vorherige Seite?

Liebe Grüße,

Franziska