ich möchte über einen VBA- Code der in der ersten exceldatei gespeichert ist, eine zweite Datei Werte öffnen, Werte suchen und ersetzen.
Das öffnen klappt, aber ersetzt wird nichts....
Vielleicht könnt ihr mir helfen?
Private Sub CommandButton1_Click()
Dim Ursprung As String
Dim konvert As String
konvert = ActiveWorkbook.Name
'Application.ScreenUpdating = False
On Error Resume Next
'Datei öffnen
MsgBox "Jetzt Datei 2006 öffnen !"
Application.Dialogs(xlDialogOpen).Show ("C:\*.xls")
Ursprung = ActiveWorkbook.Name
'Daten ersetzen
Windows(Ursprung).Activate
Sheets("Kalender").Select
ActiveSheet.Unprotect
ActiveCell.Replace What:="2007", Replacement:="2008", LookAt:=xlPart, _
SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:="2006", Replacement:="2007", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:="2005", Replacement:="2006", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
'Application.ScreenUpdating = False
End Sub