Herbers Excel-Forum - das Archiv

Ende einer Formel ersetzen

Bild

Betrifft: Ende einer Formel ersetzen
von: Daniel

Geschrieben am: 20.12.2006 11:31:56
Hallo,
per Makro möchte ich gerne das Ende einer Formel ändern.
Die Formel endet immer mit ?entryTime.23456.3459983457, wobei
der zweite Teile nach dem "." andere Längen annehmen kann (es müssen nicht immer 10 Zahlen sein).
Dies würde ich gerne ersetzen druch ?entryTime.1
Wie mache ich das? Die Zahlen sind ja immer anders, also kann ich "Replace" nicht nutzen, oder?
Danke für Tipps!
Daniel
Bild

Betrifft: AW: Ende einer Formel ersetzen
von: UweD

Geschrieben am: 20.12.2006 11:53:08
Hallo
so..
2 Möglichkeiten...
Sub endeErsetzen()
Dim Beispiel$, Neu$, Was$, Punkt%
Beispiel = "ABCDEF?entryTime.23456.3459983457"
Was = "." 'Erster Punkt wird gesucht
'Was = "?entryTime." 'Wenn vorher schon Punkte vorhanden sind
Punkt = InStr(1, Beispiel, Was) + Len(Was) - 1
Neu = Left(Beispiel, Punkt) & "1"
MsgBox Neu
End Sub

Gruß UweD
(Rückmeldung wäre schön)
Bild

Betrifft: AW: Ende einer Formel ersetzen
von: Daniel

Geschrieben am: 20.12.2006 12:19:48
Hi Uwe,
die Formeln stehen in N.
wie muss ich das hier integrieren?
Mit
Beispiel = c.Value
??
With Sheets("OrderSheet")
For Each c In .Range("N4:N" & .Range("N65536").End(xlUp).row)
Sorry, bin da nicht so firm.
Grüße,
Daniel
Bild

Betrifft: AW: Ende einer Formel ersetzen
von: UweD

Geschrieben am: 20.12.2006 13:31:37
Hallo
so dürfte es gehen..


      
Sub EndeErsetzen()
    
Dim TT$, Was$, Punkt%, c
    Was = 
"?entryTime."
    
With Sheets("OrderSheet")
        
For Each c In .Range("N4:N" & .Range("N65536").End(xlUp).Row)
            TT = c.Value
            
If InStr(1, TT, Was) > 0 Then 'nur wenn Text enthalten ist
                Punkt = InStr(1, TT, Was) + Len(Was) - 1
                c.Value = Left(TT, Punkt) & 
"1"
            
End If
        
Next
    
End With
End Sub 

Gruß UweD
(Rückmeldung wäre schön)
Bild

Betrifft: AW: Ende einer Formel ersetzen
von: Daniel
Geschrieben am: 20.12.2006 15:28:15
Hallo Uwe,
vielen Dank.
Ich musste jedoch c.Value in c.Formula ändern!
Grüße,
Daniel
 Bild
Excel-Beispiele zum Thema "Ende einer Formel ersetzen"
Anzeigen von Werten und Formeln Zeile einfügen und Formeln und Werte übernehmen
Formeln mit Zelladressen speichern Zeilenumbruch in Formel erzwingen
Aktueller Arbeitsblattname in Formel Variable in Formel einbauen
Ein Zeichen in einer Formel suchen Variable in Excel-Formel einbauen.
Summenformel unter Zahlenreihe eintragen Arbeitszeittabelle und SVERWEIS-Formel