Das Archiv des Excel-Forums

Formel ersetzen

Bild

Betrifft: Formel ersetzen
von: Steffen

Geschrieben am: 05.10.2003 13:34:50

Hallo und guten Tag,

ich habe ein Problem bei dem Ich Eure Hilfe brauche.

Und zwar habe ich in einer Zelle eine Formel stehen, z.b:

=A1+A2 --> nur Beispiel

nun möchte ich diese Formel ergänzen und zwar um Wenn(C1=1;1;A1+A2)

mein Problem ist das ich diesen Teil der Formel nicht ersetzen kann weil eine Klammer fehlt, wie bekomme ich dies hin?

Jede Formel hat den gleichen Anfangsteil, den ich ersetzen kann.

Danke Euch schon vielmals

Steffen
Bild


Betrifft: AW: Formel ersetzen
von: Christoph
Geschrieben am: 05.10.2003 14:04:32

Hi Steffen,
was meinst du mit "weil eine Klammer fehlt"???
wie heißt denn deine Originalformel? In der Regel erstelle ich Formeln in der ersten relevanten Zeile und ziehe diese dann nach unten. Die Fixbezüge entsprechend in $-Zeichen gesetzt.
Ich fürchte, du musst das Problem nochmal erklären.
Gruß
Christoph


Bild


Betrifft: AW: Formel ersetzen
von: heinz
Geschrieben am: 05.10.2003 15:14:01

=Wenn(C1=1;1;A1+A2)
bei mir funktionierts


Bild


Betrifft: Nochmal helfen
von: Steffen
Geschrieben am: 05.10.2003 16:48:24

Also die Formel lautet z.b:

=[04allg.xls]Allgemein!$N$13

Und soll gegen

=Wenn(A1=0;0;[04allg.xls]Allgemein!$N$13)

ersetzt werden.

Das Problem ist aber dass die Formel unterschiedlich sein kann, also verschiedene Verweise innerhalb der Tabelle.

Das einzige was bei allen gleich ist, ist =[04allg.xls]Allgemein!

Wie kann ich dies machen.

LEider kann ich keine manuelle ersetzung machen, da es sich um ca. 3000 Zellen handelt!

Danke Euch nochmals

Steffen


Bild


Betrifft: AW: Nochmal helfen
von: Holger Levetzow
Geschrieben am: 05.10.2003 16:59:32

woher kommt die Adresse der Zelle N3?
Holger


Bild


Betrifft: AW: Nochmal helfen
von: Panicman
Geschrieben am: 05.10.2003 18:07:16

Hallo Steffen,

hier mal ein Ansatz:

Sub Wenn_Formel_einfügen()
Set FormulaCells = ActiveSheet.UsedRange.SpecialCells(xlFormulas, 23)
For Each Zelle In FormulaCells
f = Zelle.FormulaR1C1
If InStr(f, "[04allg.xls]Allgemein!") Then
Formel = Mid(f, 2, Len(f))
Zelle.FormulaR1C1 = "=IF(A1=0,0," & Formel & ")"
End If
Next Zelle
End Sub



Gruß
Holger


Bild


Betrifft: hab was, aber klappt nicht, bitte hilfe
von: Steffen
Geschrieben am: 05.10.2003 19:46:22

Zur Einleitung

Und zwar möchte ich die Formel

='[TB1.xls]NW-Mod'!$I$53

per Makro in

=WENN($C$1=0;0;'[TB1.xls]NW-Mod'!$I$53)

ersetzen

Dies muss ich per Code machen, da unterschiedlich zellen

Mein Code bis jetzt:


Sub formel_ersetzen()
If FEHLER = 1 Then Exit Sub
On Error Resume Next
If X = 1 Then alter = "0"
For Each c In Selection.SpecialCells(xlCellTypeFormulas)
If Selection.Cells.Count = 1 Then Set c = ActiveCell
ALT = c.FormulaLocal
If ALT = "" Then GoTo 10
TEXT = "'" & c.FormulaLocal
If c.FormulaLocal Like "=WENN(" & vorn & "*" Then GoTo 20
c.Value = TEXT
c.Characters(1, 1).Delete
TEXT = c.FormulaLocal
vorn = Workbooks(ThisWorkbook.Name).Sheets("quelle").Range("C6").Value
mitte = Workbooks(ThisWorkbook.Name).Sheets("quelle").Range("C7").Value
NEU = "=" & vorn & mitte & ";" & TEXT & ")"
Range("C1").Value = NEU
c.FormulaLocal = NEU
If Selection.Cells.Count = 1 Then Exit Sub
20:
Next c
10:
End Sub


Bei mir kommt als Ergebnis immer:

'[TB1.xls]NW-Mod'!$I$53

raus.

Nehme ich aber eine Formel die so lautet =A2+A3, dann klappts.

Was mache ich falsch?

Danke schonmal

Steffen


Bild


Betrifft: AW: hab was, aber klappt nicht, bitte hilfe
von: Christoph
Geschrieben am: 05.10.2003 20:42:19

Hi Steffen:
schreib die betreffende Zeile im Code folgendermaßen:
NEU = "=" & vorn & mitte & ";'" & Text & ")"

Gruß
Christoph
PS: ich bin kein Programmierer, aber sowas verbogenes hab ich nie gesehn...


Bild


Betrifft: AW: hab was, aber klappt nicht, bitte hilfe
von: Panicman
Geschrieben am: 05.10.2003 21:17:40

Hallo Steffen,

aus deiner Programmierung werd ich nicht schlau.
Bei meiner vorhin war leider auch ein Fehler.
Aber jetzt:

Sub Wenn_Formel_einfügen()
Set FormulaCells = ActiveSheet.UsedRange.SpecialCells(xlFormulas, 23)
For Each Zelle In FormulaCells
f = Zelle.FormulaR1C1
If InStr(f, "=IF(R1C3=0,0,[04allg.xls]Allgemein!") = 0 Then
If InStr(f, "[04allg.xls]Allgemein!") Then
Formel = Mid(f, 2, Len(f))
Zelle.FormulaR1C1 = "=if(R1C3=0,0," & Formel & ")"
End If
End If
Next Zelle
End Sub


Setzt vor deine Formel "Wenn($C$1=0;0" und wenn das schon drin steht macht es nichts.

Gruß
Holger


Bild


Betrifft: habs jetzt, danke, code anbei
von: Steffen
Geschrieben am: 07.10.2003 09:35:21

Hier mein fertiger Code:


Sub Wenn_Formel_einfügen()
altf = Workbooks(ThisWorkbook.Name).Sheets("quelle").Range("C5").Value
vorn = Workbooks(ThisWorkbook.Name).Sheets("quelle").Range("C6").Value
mitte = Workbooks(ThisWorkbook.Name).Sheets("quelle").Range("C7").Value
On Error Resume Next
For Each Zelle In Selection.SpecialCells(xlCellTypeFormulas)
If Selection.Cells.Count = 1 Then Set Zelle = ActiveCell
ALT = Zelle.FormulaLocal
If ALT = "" Then GoTo 10
If Zelle.FormulaLocal Like "=" & vorn & "*" Then GoTo 20
f = Zelle.FormulaLocal
If InStr(f, altf) Then
Formel = Mid(f, 2, Len(f))
'Zelle.FormulaR1C1 = "=IF(A1=0,0," & Formel & ")"
Zelle.FormulaLocal = "=" & vorn & mitte & ";" & Formel & ")"
End If
If Selection.Cells.Count = 1 Then Exit Sub
20:
Next Zelle
10:
End Sub


Danke Euch nochmal vielmals

Steffen


 Bild

Excel-Beispiele zum Thema " Formel ersetzen"

Anzeigen von Werten und Formeln download Zeile einfügen und Formeln und Werte übernehmen download
Formeln mit Zelladressen speichern download Zeilenumbruch in Formel erzwingen download
Aktueller Arbeitsblattname in Formel download Variable in Formel einbauen download
Ein Zeichen in einer Formel suchen download Variable in Excel-Formel einbauen. download
Summenformel unter Zahlenreihe eintragen download Arbeitszeittabelle und SVERWEIS-Formel download
Zeilen mit leeren Formeln beim Druck unterdrücken download Ausgabe einer benutzerdefinierten Funktion in Matrixformel download
Listung der mit der Formel KOMBINATIONEN() ermittelten Elemente download Alle Formeln und Links in Werte wandeln download
Formel bis zur letzten Zeile der Nebenspalte kopieren download Summenformel per VBA eintragen download
Namen löschen ohne Formeln zu zerstören download Anzeige der Formel mit Quellblattangabe download
Alle Formeln und Zahlen löschen download Textstring in berechenbare Formel umwandeln download
Spielpaarungen von Vorrunde bis Finale durch Formeln ermitteln download Zahlenstring mit Formel auslesen und Fehlermeldung verhindern download
Wahrheitsprüfung einer mit Zellwerten zusammengestzten Formel download SVERWEIS-Formel über mehrere Fundstellen download
Mittelwert einer Zahlenreihe bis zur Zeile mit der Formel download SVERWEIS-, WVERWEIS- und Matrixformel-Beispiele download
Beispiel für die Anwendung der SUMMEWENN-FORMEL download Datei auswählen, öffnen und Formelsuchdialog anzeigen download
Formelbereich in Einzelelemente aufschlüsseln download Signal, wenn sich Formelwert über eine Grenze bewegt download
Formeleingabe über ShortCut download UserForm-Aufruf, wenn Formel-Wert Grenze überschreitet download
In Abhängigkeit von einem Formelwert Makro starten download In Abhängigkeit von einem Formelwert Mail mit Outlook versenden download
Anzahl nach 2 Kriterien ermitteln mit DB-Funktion und MatrixFormel download Sortierung mit Formel-Leerstrings am Ende download
Nach Formelkalkulation Zellwert erhöhen download Markierung von Formeln über bedingte Formatierung download
Zellschutz nur für Formeln download Text in Formel und Formel in Text download
Blatt ohne Code, Steuerelement und Formeln speichern download Zählen von in einer Formel vorkommenden Zahlen download
Temporärer VBA-Einsatz einer Matrixformel download Eintragen von Matrixformeln in eine Jahres-/Monatsmatrix download
Dynamischer Blattname in SVERWEIS-Formel download Bei Eintrag Übernahme der Formel aus Nebenzelle download
TextBox-Eingabe mit Formel weiterberechnen und zurückgeben download Formeltexte anzeigen download
Formel zur Ermittlung von Ostersonntag download Ermittlung von Datenbank- und Array-Formelergebnissen per VBA download
Einige Zeilen in einer sequentiellen Datei ersetzen download Alle #DIV/0!-Fehlerwerte in Tabelle durch 0 ersetzen download
Zellkontextmenü durch Jahreskalender ersetzen download Suchen in 2. Tabelle und Ersetzen der Quelldaten download
Tabellen vergleichen und Zeilen ersetzen download Errechneten Wert durch nächsthöheren ersetzen download
Wert aus Gültigkeitsliste durch eine Zahl ersetzen download Bundesländernamen durch Abkürzungen ersetzen download
Telefonnumern mit Liste vergleichen und durch Namen ersetzen download Doppelt vorkommende Anführungszeichen in Textdatei ersetzen download
Zeichenfolgen in Textdatei suchen und ersetzen download