Hallo Forum
Habe das seit einiger Zeit nich mehr gemacht, und deswegen etwas probleme , das so hinzukriegen, dass es funktioniert.
Was ich will:
Zwei Abfragen hintereinander per MsgBox vb YesNo.
-Suche Zeile mit Text "VIK: Ohne VIK"
wenn Zeile vorhanden dann MsgBox "Zeile löschen?" vb YesNo
Wenn nein: nächste MsgBox
wenn Ja: Zeile löschen
nach 2 -ter MsgBox (mit anderer Zeile analog erster Box)
zu ende.
Ist zwar Word, aber ich denke, dass ich mit etwas hilfe auch eine Excel-COde dahiingehend anpassen kann, dass es funzt.
Hier mal mein (erbärmlicher) Versuch...
a = MsgBox("VIK: Ohne VIK entfernen?", vbYesNo, "Zeilen entfernen")
If a = vbNo Then GoTo weiter
Else
With Selection.Find
.Text = "VIK: Ohne VIK"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
End If
weiter:
b = MsgBox("Zusatzschild: Ohne Schild entfernen?", vbYesNo, "Zeilen entfernen")
If b = vbNo Then GoTo ende
Else
With Selection.Find
.Text = "Zusatzschild: Ohne Schild"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
End If
ende:
End Sub
Gruss
Rolf