Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1348to1352
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

VBA: Formel auslesen und verändern

VBA: Formel auslesen und verändern
17.02.2014 12:26:41
Sabine
Hallo Profis,
ich habe in Zelle P7 folgende Formel: =[RWH 2013-01.xls]Jahreswerte'!$O$20
Ich würde gerne mittels VBA die 01 in meiner Formel um jeweils 1 erhöhen.
Ergebnis soll dann sein: =[RWH 2013-02.xls]Jahreswerte'!$O$20, beim nächsten Durchlauf
=[RWH 2013-03.xls]Jahreswerte'!$O$20 usw.
Wie bekommt man das hin?
Danke im Voraus!
Sabine

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

Betreff
Datum
Anwender
Anzeige
AW: VBA: Formel auslesen und verändern
17.02.2014 13:08:56
Rudi
Hallo,
eine Möglichkeit:
Sub aaaa()
Dim f, x, y, z
f = Range("P7").Formula
x = Split(f, "]")
y = Split(x(0), "-")
z = Split(y(1), ".")
z(0) = Format(z(0) + 1, "00")
z = Join(z, ".")
y = Join(Array(y(0), z), "-")
f = Join(Array(y, x(1)), "]")
Range("P7").Formula = f
End Sub

Gruß
Rudi

Danke
17.02.2014 13:32:27
Sabine
Vielen Dank für die beiden Lösungsvorschläge!!!
Sabine

VBA: Formel verändern
17.02.2014 13:11:55
Erich
Hi Sabine,
probier mal

Option Explicit
Sub FmlAend()
Dim sF As String, pp As Long, mm, jj
With Cells(7, 16)
sF = .Formula
pp = InStr(sF, "RWH 2")
If pp = 0 Then Exit Sub
mm = Mid(sF, pp + 9, 2)
If Not IsNumeric(mm) Then Exit Sub
If 0 + mm 
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich
Anzeige

307 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige