hinter jede Formel soll /$G$1

Forumthread: hinter jede Formel soll /$G$1

08.12.2014 15:29:38

Giesarazu

Hi Leute,
ich habe in einer Tabelle viele Zellen mit Formeln. Hinter jede Formel soll nun einfach "/$G$1" (also dividiere mit dem Wert aus G1)
Geht das irgendwie schneller als jede Zelle manuell zu ändern ?
Danke Euch
Stefan

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: hinter jede Formel soll /$G$1

08.12.2014 15:44:56

yummi
AW: hinter jede Formel soll /$G$1

08.12.2014 15:51:48

Giesarazu
AW: hinter jede Formel soll /$G$1

08.12.2014 15:45:41

Matthias
AW: hinter jede Formel soll /$G$1

08.12.2014 15:50:43

Giesarazu
...ohne VBA

08.12.2014 16:02:18

EtoPHG
AW: ...ohne VBA

08.12.2014 17:30:08

Giesarazu
AW: hinter jede Formel soll /$G$1

08.12.2014 16:01:19

Daniel
AW: hinter jede Formel soll /$G$1

08.12.2014 17:29:26

Giesarazu

AW: hinter jede Formel soll /$G$1

08.12.2014 15:44:56

yummi

Hqallo Stefan,


Sub ergaenze()
Dim Zelle As Object
Dim rng As Range
Set rng = ActiveSheet.Range("A1:O200")  'anpassen
' prüfen ob aktive Zelle in Spalte A
For Each Zelle In rng
If Zelle.HasFormula = True Then
' dann Formel aus linker Zelle in aktive Zelle eintragen
Zelle.Formula = Zelle.Formula & "/$G$1"
End If
Next
Set Zelle = Nothing
End Sub

und laufen lassen ;-)
Grüße
yummi

AW: hinter jede Formel soll /$G$1

08.12.2014 15:51:48

Giesarazu

hi Yummi,
besten Dank ! Ich dachte zwar eher an eine Lösung ohne VBA, aber hatte
ich vergessen zu sagen. Hilft mir aber genau so ;)
Super !

AW: hinter jede Formel soll /$G$1

08.12.2014 15:45:41

Matthias

Hallo
Probier mal diese VBA-Code an einer Kopie! Deiner Datei
Hier mal für das aktuelle Tabellenblatt und ohne Fehlerbehandlung.

Dim rng
For Each rng In Cells.SpecialCells(xlCellTypeFormulas, 23)
rng.FormulaLocal = rng.FormulaLocal & "/$G$1"
Next

Gruß Matthias

AW: hinter jede Formel soll /$G$1

08.12.2014 15:50:43

Giesarazu

super, ich Danke Dir, geht es wohl auch ohne VBA (obwohl mir das auch reicht), nur interessehalber ?

...ohne VBA

08.12.2014 16:02:18

EtoPHG

Hallo,
1. Eine Zahl, die sonst nirgends in der Tabelle vorkommt in G1 schreiben, z.B. -4.711
2. Zelle G1 markieren / Ctrl-C
3. Ctrl-G - Inhalte... (x) Formeln - [v] Zahlen - OK
4. Inhalte Einfügen.. (x) Dividieren - OK
5. Ctrl-G - Inhalte... (x) Formeln - [v] Zahlen - OK
6. Ctrl-H Suchen nach:-4.711 Ersetzen durch: $G$1 - Alle ersetzen
7. Wert in G1 überschreiben...
Gruess Hansueli

AW: ...ohne VBA

08.12.2014 17:30:08

Giesarazu

Hi Hansueli,
super Tipp, vielen Dank !!!!
Gruß
Stefan

AW: hinter jede Formel soll /$G$1

08.12.2014 16:01:19

Daniel

Hi
1. schreibe in eine freie Zelle eine Zahl, die in den Formeltexten nicht vorkommt (z.B. 999)
2. kopiere diese Zelle
3. markiere die Zellen mit den Formeln
4. füge die kopierte Zelle in die markierten Zellen ein mit den Einstellungen
Inhalte Einfügen - Einfügen: Werte - Vorgang: Dividieren
5. ersetze mit der Ersetzen-Funktion in den markierten Zellen die Zahl 999 durch den Zellbezug $G$1
Gruß Daniel

AW: hinter jede Formel soll /$G$1

08.12.2014 17:29:26

Giesarazu

woow, ultracool.. hätt ich auch selbst drauf kommen können :)
Vielen Dank !!!!!!!

Beliebteste Forumthreads (12 Monate)

Forumthread: hinter jede Formel soll /$G$1

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread