Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1480to1484
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
1480to1484
1480to1484
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Plz help me out with a small makro

Plz help me out with a small makro
14.03.2016 20:29:34
soletto
Hey, i encountered a problem in excel during importing of some datas. I can fix the problem by klicking into the cell and hiting enter. Thos procedure actualise my data.
THe makro for that is:
Range("BB6").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
NOw i have the problem that i need to do it for a many cells.
Is it possible to do it with faster with a programm code?
Now i copie and paste the code for every cell.
I need it for a table for example: BA1 to BE7
Can you guys help me out with a better makro?
THx =)

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Plz help me out with a small makro
15.03.2016 08:37:25
ChrisL
hi
In principle like this:
Range("BA1:BE7").FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Your sample in BB6 refers to cell CC3. I therefore wonder what the formula would be e.g. for BB1 (row minus 3, does not work).
cu
Chris

AW: Plz help me out with a small makro
15.03.2016 19:51:38
soletto
automatic calculation is activated. But it still not aktualise my link ;-(
Both scripts doesnt work :-(
This is how my makro works:
Range("AO6").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AO7").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AO8").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AO9").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AO10").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AO11").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AO12").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AO13").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AO14").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AO15").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AO16").Select
Range("AP6").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AP7").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AP8").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AP9").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AP10").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AP11").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AP12").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AP13").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AP14").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AP5").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AP16").Select
Range("AQ6").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AQ7").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AQ8").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AQ9").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AQ10").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AQ11").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AQ12").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AQ13").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AQ14").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AQ5").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AQ16").Select
Range("AR6").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AR7").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AR8").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AR9").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AR10").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AR11").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AR12").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AR13").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AR14").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AR5").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AR16").Select
Range("AS6").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AS7").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AS8").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AS9").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AS10").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AS11").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AS12").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AS13").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AS14").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AS5").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AS16").Select
Range("AT6").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AT7").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AT8").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AT9").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AT10").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AT11").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AT12").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AT13").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AT14").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AT5").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AT16").Select
Range("AU6").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AU7").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AU8").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AU9").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AU10").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AU11").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AU12").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AU13").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AU14").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AU5").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AU16").Select
Range("AV6").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AV7").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AV8").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AV9").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AV10").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AV11").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AV12").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AV13").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AV14").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AV5").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AV16").Select
Range("AW6").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AW7").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AW8").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AW9").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AW10").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AW11").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AW12").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AW13").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AW14").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AW5").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AW16").Select
Range("AX6").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AX7").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AX8").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AX9").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AX10").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AX11").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AX12").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AX13").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AX14").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AX5").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AX16").Select
Range("AY6").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AY7").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AY8").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AY9").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AY10").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AY11").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AY12").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AY13").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AY14").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AY5").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AY16").Select
Range("AZ6").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AZ7").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AZ8").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AZ9").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AZ10").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AZ11").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AZ12").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AZ13").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AZ14").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AZ5").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("AZ16").Select
Range("BA6").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("BA7").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("BA8").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("BA9").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("BA10").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("BA11").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("BA12").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("BA13").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("BA14").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("BA15").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("BA16").Select
Range("BB6").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("BB7").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("BB8").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("BB9").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("BB10").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("BB11").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("BB12").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("BB13").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("BB14").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("BB15").Select
ActiveCell.FormulaR1C1 = "=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
Range("BB16").Select

Anzeige
AW: Plz help me out with a small makro
15.03.2016 19:52:54
soletto
When pushing this makro all my cells are actualise with the new numbers.
Dont have any ideas what else to do ;-(

AW: Plz help me out with a small makro
16.03.2016 09:52:44
ChrisL
Hi
Short version of your macro:
Sub tt()
Range("AO6:BB14,AP5:AZ5,AO15,BA15,BB15").FormulaR1C1 = _
"=IF(HPPipe!R[-3]C[27]=0,"""",HPPipe!R[-3]C[27])"
End Sub
cu
Chris

AW: Plz help me out with a small makro
15.03.2016 11:42:31
Steve
Hello Soletto,
that sounds like you turned off the automatic calculation for your workbook. Have you tried the command 
Application.Calculate
to actualise your formulas once?
And with the command 
Application.Calculation = xlCalculationAutomatic
you can turn it on.
Steve

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige