suchen ersetzen

21/05/2009 - 12:52 von Felix Uesbeck | Report spam
************ Versuch 1. ********* dann wird alles mehfach geàndert!
Dim Suchtext, Ersatztext
Dim Bereich As Object
Dim Suche As Object

Suchtext = 2
Ersatztext = "1/2 jàhrlich"

Set Bereich = .Columns(Spalte) 'zu suchenden Bereich festlegen
Set Suche = Bereich.Find(what:=Suchtext, LookIn:=-4123, LookAt:=2)

'Application.ScreenUpdating = False

Do
Suche.Value = Replace(Suche.Value, Suchtext, Ersatztext)
Set Suche = Bereich.FindNext(Suche)
Loop Until Suche Is Nothing

*************Versuch 2. ********************* mit fehler medung. "excel
kann keine daten zum ersetzen finden"
' .Columns(Spalte).Replace what:="1", Replacement:="jàhrlich" ',
LookAt:=2, SearchOrder:=1, MatchCase:=False, SearchFormat:=False,
ReplaceFormat:=False
' .Columns(Spalte).Replace what:="2", Replacement:="1/2 jàhrlich" ',
LookAt:=2, SearchOrder:=1, MatchCase:=False, SearchFormat:=False,
ReplaceFormat:=False
' .Columns(Spalte).Replace what:="4", Replacement:="1/4 jàhrlich" ',
LookAt:=2, SearchOrder:=1, MatchCase:=False, SearchFormat:=False,
ReplaceFormat:=False
**************************************

Hallo
möchte von Access aus in Excel Daten àndern.
aus "1" wird "jàhrlich"
aus "2" wird "1/2 jàhrlich"
aus "4" wird "1/4 jàhrlich"

so das keine meldung erscheint.

gruß Felix
 

Lesen sie die antworten

#1 Eberhard Funke
21/05/2009 - 16:28 | Warnen spam
Am Thu, 21 May 2009 12:52:08 +0200 schrieb Felix Uesbeck:

möchte von Access aus in Excel Daten àndern.
aus "1" wird "jàhrlich"
aus "2" wird "1/2 jàhrlich"
aus "4" wird "1/4 jàhrlich"




Hallo Felix,

so würde es *in* Excel funktionieren. Vielleicht kannst Du damit etwas
anfangen:

Sub Ersetzen()
Dim arrW
Dim intI As Integer
Dim strBruch As String

arrW = Array(1, 2, 4)
With Columns("A")
For intI = 0 To 2
If arrW(intI) > 1 Then
strBruch = "1/" & arrW(intI) & " "
End If
.Replace What:=arrW(intI), Replacement:=strBruch _
& "jàhrlich", LookAt:=xlWhole
Next
End With
End Sub


Mit freundlichen Grüssen Eberhard
XP home XL 2000
Eberhard(punkt)W(punkt)Funke(at)t-online.de

Ähnliche fragen