Hallo liebe Excel Helfer,
ein frohes neues Jahr allen hier im Forum.
Wir haben in unserer Firma an vielen Aussendienstmitarbeitern Programme ausgegeben, die aber zum Teil sehr unterschiedlich geändert worden sind. Jetzt soll eine ganz bestimmte Zeile (nur ist diese nirgends an der gleichen Stelle) geändert werden. Das Prog ist geschützt, VBA Passwort ist bekannt.
Ich habe hier im Archiv schon gesucht und einiges gefunden, komme aber nicht weiter und bitte um Hilfe.
Es soll ein kleines Prog geschrieben werden (update.xls) welches sich im gleichen Verzeichniss wie die Ursprungsdatei befinden müsste (Preise.xls)
Jetzt muss update.xls in Preise.xls folgendes ändern
von .Caption = "Preise 2009"
nach .Caption = "aktuelle Preisliste"
Hier das was ich gefunden und gebastelt habe aber irgendiwe überhaupt nicht funktioniert:
Sub aufheben() 'VBA-Kennwort in Preise.xls aufheben
Workbooks.Open Filename:="Preise.xls"
SendKeys "%{F11} %Xi{TAB 9}" & "Passwort" & "{tab}{enter}{enter} %q"
With Workbooks("Preise.xls").VBProject
End Sub
' in ein ModulConst SuchZeile = ".Caption = ""Preise 2009"""
Const NeueZeile = ".Caption = ""aktuelle Preisliste"""
Sub VBAZeileÄndern()
Set VBE = ...... 'die gesuchten Zeilen stehen im Ursprungsprogramm in Diese Arbeitsmappe
' ob de Code ab hier wirklich richtig ist wage ich dann zu bezweifeln
With VBE
For x = 1 To .countoflines
i = .countoflines
If Trim(.Lines(x, 1)) = NeueZeile Then
.ReplaceLine x, SuchZeile
Exit Sub
End If
If Trim(.Lines(x, 1)) = SuchZeile Then
.ReplaceLine x, NeueZeile
Exit Sub
End If
Next x
End With
End Sub
Wer kann mir bitte helfenLiebe Grüße
Claudia