Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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
;

Forumthreads zu verwandten Themen

Formel automatisch durch Wert ersetzen (vba)
Tanja

Hallo liebe Leute,
Ich hab in meiner excel-Mappe, in den Zellen: M2:M14 Formeln, die eine ganze Zahl als Ergebnis erzeugen.
So, und nun möchte ich das 1. Berechnungs-Ergebnis quasi "einfrieren".
Mein Problem: Ich möchte kein Makro per Hand auslösen müssen, sondern der Code soll voll...
07.08.2008 21:59:00
Thread-ID: 1000110
5 Beiträge
SUMMENPRODUKT in VBA übersetzen
Olaf

Hallo Leute,
ich habe versucht, folgende "SummenProdukt" Formel:
=SUMMENPRODUKT((A1:A1000=A27)*(C1:C1000=C27);U1:U1000)
ins VBA zu übersetzen:
WorksheetFunction.SumProduct((Range("A1:A1000") = Range("A" & EEE)) * (Range("C1:C1000") = Range("C" & EEE)), Range("U1:U1000"))...
28.08.2008 15:03:42
Thread-ID: 1005459
4 Beiträge
Dinge in Abhängigkeit ersetzen
sascha76er

Hallo,
ich möchte gerne in der Spalte B den Wert "[#p Stück]" durch -Links- oder -Rechts- in Abhängigkeit vom letzten Buchstaben in der Artikelnummer entsprechend ersetzen.
Kann mir jemand sagen wie dies lösen kann?
Hier meine Datei: https://www.herber.de/bbs/user/55000.xls
Gru...
28.08.2008 16:25:34
Thread-ID: 1005516
2 Beiträge
Anzeige
"#Wert!" suchen, durch "" ersetzen
Detlef

Hallo Experten,
warum lässt sich im VBA der Ausdruck "#Wert!" nicht durch "" ersetzen.
(im Excel geht es)
mit "1234567" geht es auch ohne Probleme ?
Selection.Replace What:="#WERT!", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
macht er nich...
29.08.2008 11:23:20
Thread-ID: 1005759
6 Beiträge
Anzeige
, ersetzen durch einen .
andreas

Hallo,
wenn ich in einer Spalte ein , durch einen . ersetzen will verschiebt sich der Punkt um 2 Stellen nach links und macht dann z. B. aus 14,7204 dann 0.147204.
Kann mir jemand sagen wie ich aus der Zahl mit dem Komma exakt die Zahl mit dem Punkt bekomme.
Vielen Dank
Andreas<...
07.09.2008 18:47:00
Thread-ID: 1007995
3 Beiträge
Ersetzen mit Bedingung in VBA
bully

Hallo zusammen,
ich möchte mit VBA alle Werte in der Spalte G (Standardwert "300") mit einer 1 ersetzen, wenn in der gleichen Zeile der Spalte F eine 2 (Standardwert "1") steht.
Wie mache ich das am einfachsten.
Gruss bully
07.09.2008 20:41:15
Thread-ID: 1008002
3 Beiträge
Ersetzen mit VBA in allen Arbeitsblättern
Walter

Hallo,
ich habe eine Frage:
Wenn ich einen Text in der ganzen Arbeitsmappe ersetzen will, so treffe ich im Dialogfeld SUCHEN/ERSETZEN einfach die Einstellung: Suchen --- "Arbeitsblatt".
Wenn ich disen Vorgang aufzeichen, kommt folgender Code heraus:
Selection.Replace What:= _
11.09.2008 15:35:53
Thread-ID: 1009157
6 Beiträge
Exceltabelle durch userform ersetzen
Peter

Hallo
ich habe im Internet einen Funktion zur Steuerberechnung gefunden und möchte diese in meine Datei ein binden.
In der Funktion sind die eingabe Felder mit den Zeilen und Spalten Bsp. B2 bezeichnet.
jetz habe ich meine Userform erweitert um Comboboxen und zur Eingabe und Label z...
28.09.2008 19:00:00
Thread-ID: 1012973
6 Beiträge
Funktion "Ersetzen" von Zahlenwerten im Textformat
Zahlenwerten

Hallo liebe Excel-Freunde,
mein Problem bezieht sich auf die Funktion Suchen/Ersetzen in Excel.
In Text formatierte Zahlenwerte werden dabei nicht als Text, sondern als mathematische Zahlenwerte ausgegeben.
Konkret:
Ich habe eine Excel-Tabelle, in der zig Tausend verschiedene Ge...
06.10.2008 19:55:29
Thread-ID: 1014539
7 Beiträge
Funktion "Ersetzen" von Zahlenwerten im Textformat
Zahlenwerten

Hallo liebe Excel-Freunde,
mein Problem bezieht sich auf die Funktion Suchen/Ersetzen in Excel.
In Text formatierte Zahlenwerte werden dabei nicht als Text, sondern als mathematische Zahlenwerte ausgegeben.
Konkret:
Ich habe eine Excel-Tabelle, in der zig Tausend verschiedene Ge...
06.10.2008 20:18:00
Thread-ID: 1014553
3 Beiträge
TextBox Werte in Spalte Q ersetzen ?
Selma

Hallo Leute,
ich habe eine Frage zu UserForm. Beim Klick auf CommandButton1 sollen die Zahlen aus TextBox1 mit Werten in Spalte Q ab Zeile 12 ersetzt werden. Dies soll nur dann erfolgen, wenn in TextBox1 die Zahlen stehen bzw. der TextBox gefüllt ist.
Ersetzt sollen nur die vorhandene W...
13.10.2008 15:42:00
Thread-ID: 1016083
3 Beiträge
Mail-Adressen ersetzen
dani

Hallo zusammen,
ich habe ein Excel-Problem - ich hoffe, jemand kann mir weiterhelfen :)
In einer Excel-Datei habe ich eine Spalte mit Mail-Adressen, z.B. max.mustermann@firma_x.de
Da sich die Firmierung geändert hat, müssen sämtliche Domainnamen geändert werden in max.mustermann@fir...
15.10.2008 09:39:22
Thread-ID: 1016481
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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