Punkt vor Formel weg......ersetzen?

Forumthread: Punkt vor Formel weg......ersetzen?

12.03.2009 22:04:48

robert

hi,
ich möchte diese daten in eine funktionierende formel umwandeln-
punkt entfernen.
ersetzten geht, mit makro nicht!
warum?
bitte um hilfe und erklärung
gruß
robert
https://www.herber.de/bbs/user/60273.xls

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Punkt vor Formel weg......ersetzen?

12.03.2009 22:15:45

Renee
AW: Punkt vor Formel weg......ersetzen?

12.03.2009 22:48:12

Tino
Korrektur

12.03.2009 22:55:47

Tino
AW: SUPER aber Nachfrage...

13.03.2009 07:44:43

robert
keine Ahnung! Frage offen oT.

13.03.2009 08:05:55

Tino
AW: SUPER aber Nachfrage...

13.03.2009 09:51:38

schauan
AW:Danke Andre- SUPER owT

13.03.2009 09:59:07

robert

AW: Punkt vor Formel weg......ersetzen?

12.03.2009 22:15:45

Renee

Hi robert,
so:


Sub Makro1()
Dim rC As Range
For Each rC In Range("A1:A32")
rC.Formula = Replace(Replace(rC.Value, ".=WENN", "=IF"), ";", ",")
Next rC
End Sub

GreetZ Renée

AW: Punkt vor Formel weg......ersetzen?

12.03.2009 22:48:12

Tino

Hallo Robert,
hier mal eine etwas andere Version.

Sub FormalErstellen()
Dim Bereich As Range
Dim myArea
Dim strTemp As String

Set Bereich = Range("A1", Cells(Rows.Count, 1).End(xlUp))
myArea = Bereich

With Application
 strTemp = Join(.Transpose(myArea), "||")
 strTemp = Replace(strTemp, ".=WENN(", "=IF(")
 myArea = .Transpose(Split(strTemp, "||"))
End With

Bereich.FormulaLocal = myArea
End Sub

Gruß Tino

Korrektur

12.03.2009 22:55:47

Tino

Hallo,
muss natürlich bei FormulaLocal mit Wenn sein.

Sub FormalErstellen()
Dim Bereich As Range
Dim myArea
Dim strTemp As String

Set Bereich = Range("A1", Cells(Rows.Count, 1).End(xlUp))
myArea = Bereich

With Application
 strTemp = Join(.Transpose(myArea), "||")
 strTemp = Replace(strTemp, ".=WENN(", "=WENN(")
 myArea = .Transpose(Split(strTemp, "||"))
End With

Bereich.FormulaLocal = myArea
End Sub

Gruß Tino

AW: SUPER aber Nachfrage...

13.03.2009 07:44:43

robert

hi,
lösungen tadellos :-)))
aber warum ist das so, dass es bei manueller änderung geht, mit makro über
makrorecorder aber nicht ?
will versuchen , es zu verstehen
danke und gruß
robert

keine Ahnung! Frage offen oT.

13.03.2009 08:05:55

Tino

AW: SUPER aber Nachfrage...

13.03.2009 09:51:38

schauan

Hallo,
der makrocode wandelt Texte mit replace nicht unmittelbar in Formeln um.
Eine Alternative ohne Schleife wäre auch

Range("a1:a32").Replace What:=".=W", Replacement:="'=W", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("a1:a32").FormulaLocal = Range("a1:a32").FormulaLocal

Gruß, Andre

AW:Danke Andre- SUPER owT

13.03.2009 09:59:07

robert

Beliebteste Forumthreads (12 Monate)

Punkt vor Formel weg......ersetzen?

Forumthread: Punkt vor Formel weg......ersetzen?

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread