Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
19.04.2024 11:45:34
Feld im SAP auslesen
19.04.2024 10:59:29
Datei Auswählen und öffnen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1056to1060
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1056to1060
1056to1060
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
Anzeige
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

Anzeige
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

Anzeige
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
Anzeige
AW:Danke Andre- SUPER owT
13.03.2009 09:59:07
robert

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige