title image


Smiley VBE: Textteile im Code ersetzen
Hallo zusammen,



ich möchte mittels VBE Textteile im Code ersetzen. Im konkreten Beispiel (s.u.) den Teilstring "MoveTo" durch "SetCursorPos".

Mittels "Find" und "GetSelection" finde ich zwar den gesuchten String und kenne auch seine genaue Position im Code, ich weiß jedoch nicht, wie ich "nur" diesen Teilstring ersetzen kann ?

Es soll nicht die gesamte Codezeile ersetzt werden !



Danke & Gruß

Horst



Sub Konvertierung_ExtraBasic()



'VBProject

Dim VBProj As VBProject

Set VBProj = ThisWorkbook.VBProject



'VBComponent

Dim VBComp As VBComponent

Set VBComp = ThisWorkbook.VBProject.VBComponents("GH040_Auslesen")



'CodeModule

Dim VBCodeMod As CodeModule

Set VBCodeMod = ThisWorkbook.VBProject.VBComponents("GH040_Auslesen").CodeModule



Set VBCodeMod = ThisWorkbook.VBProject.VBComponents("GH040_Auslesen").CodeModule



Dim w As Long

Dim x As Long

Dim y As Long

Dim z As Long

w = 1

x = 1

y = 100

z = 100



r = VBCodeMod.Find("MoveTo", w, x, y, z, True, False)



VBCodeMod.CodePane.GetSelection w, x, y, z

VBCodeMod.CodePane.CodeModule.ReplaceLine 3, "SetCursorPos"



End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: