Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1492to1496
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Selektion funzt noch nicht

Selektion funzt noch nicht
27.05.2016 08:45:24
Rolf
Hallo Forum
Hallo Daniel
Der COde von Daniel funktioniert, aber meine Änderung nur halbwegs.
Das Problem sind die ersten beiden Zeilen.
Die Abfrage kommt auch dann, wenn der Text im Dokument nicht vorhanden ist, also wenn Find eigentlich ein Falsch zurück geben sollte.
Selection.Find.Text = "Zusatzschild: Ohne Schild"
If Selection.Find.Text = "Zusatzschild: Ohne Schild" = True Then
(wenn nicht TRUE, dann soll er den Teil überspringen, also zu End If, tut er aber nicht)
b = MsgBox("Zusatzschild: Ohne Schild entfernen?", vbYesNo, "Zeilen entfernen")
If b = vbYes Then
With Selection.Find
.Text = "Zusatzschild: Ohne Schild"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
Else
End If
End If

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Selektion funzt noch nicht
27.05.2016 10:05:38
Daniel
Schwer zu sagen, mit Word-Vba kenne ich mich nicht aus.
beim IF reicht normalerweise ein
If a = b Then
Das
If a = b = True Athen
Ist unnötig und verfälscht das Ergebnis
Gruß Daniel
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige