Formel aus Zelle in VBA einlesen und ändern

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Herbert und @ alle!
Mich hat's ziemlich gewurmt, dass ich nicht gleich ordentlich gelesen hab, und daher die beiden unnötigen Antworten verzapft habe; und daher hab ich mich nochmal vor dem Wochenende besonnen und auch eine Lösung erbastelt.
Ist mittlerweile unnötig, und mit Kapazundern wie Daniel und Rudi kann ich mich leider nicht mal im Ansatz messen, aber ich poste hier noch meine Lösung, weil ich das für mein eigenes VBA-Gewissen brauche ;-). Soweit ich es jetzt mal getestet hab müssten auch 2- und 3-Buchstaben- umfassende Spaltenbezüge möglich sein.

Sub FormelTausch()
Dim Formel As String
Dim Zeichen As String
Dim FolgeZeichen As String
Dim i As Integer
Dim Merker As Boolean
Dim Sammler As String
Formel = ActiveCell.FormulaLocal
Debug.Print Formel
For i = 1 To Len(Formel)
Zeichen = Mid(Formel, i, 1)
Select Case IsNumeric(Zeichen)
Case Is = True
If Merker = True Then
Sammler = Sammler & "3"
Merker = False
Else: Sammler = Sammler & Zeichen
End If
Case Is = False
FolgeZeichen = Mid(Formel, i + 1, 1)
Select Case FolgeZeichen
Case Is = "!"
Select Case Zeichen
Case Is = "A"
Merker = True
Sammler = Sammler & Zeichen
Case Else
Sammler = Sammler & Zeichen
End Select
Case Else
Sammler = Sammler & Zeichen
End Select
End Select
Next
Debug.Print Sammler
End Sub

Danke auch an alle Antworter hier - da hab ich auch gleich wieder was gelernt ;-). Allen wünsche ich damit ein schönes Wochenende!
LG
Michael

Sub HebbettG() Dim s As String, a, i As Integer s = Range("A2").FormulaLocal a = Split(s, "!") For i = 1 To UBound(a) If Right(a(i - 1), 6) = "InputA" Then a(i) = Replace(Left(a(i), 2), "2", "3") & Mid(a(i), 3) End If Next s = Join(a, "!") MsgBox s End Sub

Sub HebbettG() Dim s As String, a1, a2, i s = Range("A2").FormulaLocal a1 = Split(s, "!") For i = 1 To UBound(a1) If Right(a1(i - 1), 6) = "InputA" Then a2 = Split(a1(i), ";") a2(0) = Replace(a2(0), "2", "3") a1(i) = Join(a2, ";") End If Next s = Join(a1, "!") MsgBox s End Sub

Sub test() Dim FO As String Dim i As Long FO = Cells(1, 1).Formula i = 1 Do i = InStr(i, FO, "InputA!") If i = 0 Then Exit Do i = i + Len("InputA!") '--- Zeiger auf Adresse setzen If Mid(FO, i, 3) Like "[A-Z]2," Then '--- Ein Spaltenbuchstabe Mid(FO, i + 1, 1) = "3" ElseIf Mid(FO, i, 4) Like "[A-Z][A-Z]2," Then '--- Zwei Spaltenbuchstaben Mid(FO, i + 2, 1) = "3" End If Loop Cells(1, 1).Value = FO End Sub

Function HebbettG(s As String, strSheet As String, r1 As Long, r2 As Long) Dim a1, a2, i s = Range("A2").FormulaLocal a1 = Split(s, "!") For i = 1 To UBound(a1) If Right(a1(i - 1), 6) = strSheet Then a2 = Split(a1(i), ";") If Range(a2(0)).Row = r1 Then a2(0) = Cells(r2, Range(a2(0)).Column).Address(0, 0) End If a1(i) = Join(a2, ";") End If Next HebbettG = Join(a1, "!") End Function

Hallo Daniel,
vielen Dank, das klappt prima. Jedenfalls bis zur Zeile 9, dann wiederholt er sich dauernd. Schau mal:
0011||Überschrift 1||xyz GmbH||Text Zeile 1||Test Aktion||AUG15
0011||Überschrift 2||xyz GmbH||Text Zeile 2||Test Aktion||AUG15
0011||Überschrift 3||xyz GmbH||Text Zeile 3||Test Aktion||AUG15
0011||Überschrift 4||xyz GmbH||Text Zeile 4||Test Aktion||AUG15
0011||Überschrift 5||xyz GmbH||Text Zeile 5||Test Aktion||AUG15
0011||Überschrift 6||xyz GmbH||Text Zeile 6||Test Aktion||AUG15
0011||Überschrift 7||xyz GmbH||Text Zeile 7||Test Aktion||AUG15
0011||Überschrift 8||xyz GmbH||Text Zeile 8||Test Aktion||AUG15
0011||Überschrift 9||xyz GmbH||Text Zeile 9||Test Aktion||AUG15
0011||Überschrift 9||xyz GmbH||Text Zeile 9||Test Aktion||AUG15
0011||Überschrift 9||xyz GmbH||Text Zeile 9||Test Aktion||AUG15
Und ich finde nicht, wo ich das erweitern kann. Vor allem kann es ja auch bis in die Sechsstelligkeit gehen. Kannst Du mir da noch bitte helfen?
Servus

Beliebteste Forumthreads (12 Monate)

Formel aus Zelle in VBA einlesen und ändern

35
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

357 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Formel aus Zelle in VBA einlesen und ändern

35 Beiträge zum Forumthread Beiträge zu diesem Forumthread

357 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

35
Beiträge zum Forumthread

Beiträge zu diesem Forumthread