Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
828to832
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
828to832
828to832
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Ende einer Formel ersetzen

Ende einer Formel ersetzen
20.12.2006 11:31:56
Daniel
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

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

Betreff
Datum
Anwender
Anzeige
AW: Ende einer Formel ersetzen
20.12.2006 11:53:08
UweD
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)
AW: Ende einer Formel ersetzen
20.12.2006 12:19:48
Daniel
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
Anzeige
AW: Ende einer Formel ersetzen
20.12.2006 13:31:37
UweD
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)
Anzeige
AW: Ende einer Formel ersetzen
20.12.2006 15:28:15
Daniel
Hallo Uwe,
vielen Dank.
Ich musste jedoch c.Value in c.Formula ändern!
Grüße,
Daniel

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige