Anzeige
Archiv - Navigation
1644to1648
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
Inhaltsverzeichnis

per VBA Formel in Zelle schreiben

per VBA Formel in Zelle schreiben
23.09.2018 19:38:26
Schneider
Hallo Freunde
ich komme nicht weiter, ich versuche mir monatliche Arbeit zu erleichtern. Folgende Beispiellinks kopiere ich in hunderte von Zellen. Das sollte eine VBA-Routine auch können. Leider will es nicht:
='[Dienstplan Juni 2018.xlsb]Dienstplan'!G9
Sub Link_tausch()
' Link_tausch Makro
Dim ze As Integer, sp As Integer
For ze = 6 To 6
For sp = 5 To 6
Cells(ze, sp).FormulaR1C1 = "='[Dienstplan Juni 2018.xlsb]Dienstplan'!" & sp & ze
Next
Next
End Sub

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: per VBA Formel in Zelle schreiben
23.09.2018 19:41:59
Hajo_Zi

Option Explicit
Sub Link_tausch()
' Link_tausch Makro
Dim ze As Long, sp As Integer
For ze = 6 To 6
For sp = 5 To 6
Cells(ze, sp).Formula = "='[Dienstplan Juni 2018.xlsb]Dienstplan'!" & Cells(ze, sp). _
Address
Next
Next
End Sub


Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
AW: per VBA Formel in Zelle schreiben
23.09.2018 19:58:05
Schneider
Hallo Hajo
Vielen Dank, das war schneller wie der Blitz.
AW: per VBA Formel in Zelle schreiben
24.09.2018 00:04:56
Daniel
Hi
könnte man so machen:
Sub Link_tausch()
' Link_tausch Makro
Dim ze As Integer, sp As Integer
For ze = 6 To 6
For sp = 5 To 6
Cells(ze, sp).FormulaR1C1 = "='[Dienstplan Juni 2018.xlsb]Dienstplan'!R" & sp & "C" & ze
Next
Next
End Sub
einfacher, da der Zellbezug in der Formel gleich der Zelle mit der Formel ist (außer dem Tabellenblattnamen), wäre ein relativer Zellbezug:
Sub Link_tausch()
' Link_tausch Makro
Dim ze As Integer, sp As Integer
For ze = 6 To 6
For sp = 5 To 6
Cells(ze, sp).FormulaR1C1 = "='[Dienstplan Juni 2018.xlsb]Dienstplan'!RC"
Next
Next
End Sub
den könnte man, da die Formel durch den Relativen Zellbezug für alle Zellen gleich ist, auch in alle Zellen gleichzeitig in einem Schritt schreiben:
Sub Link_tausch()
' Link_tausch Makro
Cells(6, 5).Resize(1, 2).FormulaR1C1 = "='[Dienstplan Juni 2018.xlsb]Dienstplan'!RC"
End Sub
Gruß Daniel
Anzeige

379 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige