title image


Smiley Re: VBE: Textteile im Code ersetzen
hiho



Sub Konvertierung_ExtraBasic()

Dim w As Long, Strbearbeit As String

Dim x As Long

Dim y As Long

Dim z As Long

w = 1

x = 1

y = 100

z = 100



With ThisWorkbook.VBProject.VBComponents("Modul1")

r = .CodeModule.Find("Weitersuchen ?", w, x, y, z)

If r Then

Strbearbeit = .CodeModule.Lines(w, 1)

.CodeModule.ReplaceLine w, Replace(Strbearbeit, "Weitersuchen ?", "xx")

End If

End With

End Sub







das musst du nur mehr anpassen
Feedback nicht vergessen ! Gutes gelingen wünscht Chris

I didn't write this; a very complex macro did.

0110110001101001011001010110001001100101001000000110011101110010111111001101111101100101001000000110001101101000011100100110100101110011

geschrieben von


Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: