Suchen und Ersetzen

Forumthread: Suchen und Ersetzen

Suchen und Ersetzen

01.09.2006 08:34:06

JensB

Guten Morgen,
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

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Suchen und Ersetzen

01.09.2006 09:18:34

bst
AW: Suchen und Ersetzen

01.09.2006 09:34:47

JensB
AW: Suchen und Ersetzen

01.09.2006 09:38:20

fcs
Suchen und Ersetzen

01.09.2006 09:52:13

JensB

AW: Suchen und Ersetzen

01.09.2006 09:18:34

bst

Morgen JensB,
cells bezieht sich auf die Tabelle in deren Klassenmodul der Code steht, nicht auf Kalender. Mach dort mal einen "debug.print cells.parent.name, cells.parent.parent.name" rein, dann siehst Du das. Nimm With Sheets("Kalender") und .Cells.
cu, Bernd

AW: Suchen und Ersetzen

01.09.2006 09:34:47

JensB

Hallo Bernd,
habe With Sheets("Kalender") eingetragen, leider ohne Erfolg.
Richtige Stelle?


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
With Sheets("Kalender")
Cells.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
End With
'Application.ScreenUpdating = False
End Sub

AW: Suchen und Ersetzen

01.09.2006 09:38:20

fcs

Hallo Jens,
mit folgenden Anpassungen sollte es funktionieren.
Deaktiviere "On Error Resume next" dann siehst du auch wo das Makro ggf. Probleme hat.


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
With Workbooks(Ursprung).Sheets("Kalender")
.Select
.Unprotect
.Cells.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
End With
'Application.ScreenUpdating = False
End Sub

Gruß
Franz

Suchen und Ersetzen

01.09.2006 09:52:13

JensB

Danke, jetzt läuft das Makro!
Jens

Beliebteste Forumthreads (12 Monate)

Forumthread: Suchen und Ersetzen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread