nochmals Bitte um Hilfe für eine Änderung in VBA:
Nachstehende Makros aus Herbers Archiv funktioniert einwandfrei.
benötige aber, dass die Eingabe über Tabelle erfolgt:
Option Explicit
Sub x()
Dim vb As Object, lngCounter As Long
lngCounter = 0
Workbooks.Open "C:\Users\Peter\Desktop\Mappe1.xlsm"
For Each vb In ActiveWorkbook.VBProject.VBComponents
lngCounter = lngCounter + ChangeCode(vb.codemodule, "Tag", "Nacht")
Next
ActiveWorkbook.Close True
MsgBox lngCounter, , "Änderungen"
End Sub
Function ChangeCode(vb As Object, strAlt As String, strNeu As String) As Long
Dim i&, strOneLine$, lngI As Long
lngI = 0
For i = 1 To vb.countoflines
strOneLine = vb.Lines(i, 1)
If InStr(strOneLine, strAlt) Then
vb.ReplaceLine i, Replace(strOneLine, strAlt, strNeu)
lngI = lngI + 1
End If
Next
ChangeCode = lngI
End Function
In Tabelle A1 steht "Tag" in B1 "Nacht". Wenn nun aus "Nacht" "Tag" wird soll dies über o.a. Makros geändert werden. Gleichzeitig muss dann der Wert von B1 mit A1 getauscht werden, um beim nächsten Mal den alten Wert zu finden.Danke für Eure Hilfe.
Gruss Peter