VERKETTEN mit VBA ergänzen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Hajo
nein es ist nicht die gleiche Frage.
Die Frage von heute morgen behandelt in meiner gesammten Aufgabenstellung eigentlich die Fortsetzung von dem, was ich hier jetzt erneut gestartet habe.
Den Zwischenschritt den ich jetzt mit dieser jetzigen Frage lösen möchte, machte ich bis jetzt von Hand.
Diese jetztige Frage habe ich ursprünglich mit dem Thread: https://www.herber.de/forum/messages/707480.html gestellt.
Ich habe es aber mit UweD's Lösung nicht fertiggebracht, dass anstelle des Zufügens von D4 in die Formel nur der Wert aus D4 hinzufügt wird.
Vermutlich hatte ich mich damals zuwenig präzise ausdrücken können.
Ich hoffe es ist mir jetzt besser gelungen. Fals Du mir helfen kannst wäre das super.
Gruss urs

Sub verketten2() Dim rng As Range, _ intPos As Integer On Error Resume Next For Each rng In ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas) If Left(rng.FormulaLocal, 10) = "=VERKETTEN" Then intPos = Len(rng.FormulaLocal) rng.FormulaLocal = Left(rng.FormulaLocal, intPos - 1) & ";""" & Range("D4").Text & """)" End If Next rng On Error GoTo 0 End Sub

Hallo Werner
Erstmal vielen Dank für Deine spontane Hilfe.
Bei der Lösung von heute morgen (siehe Sepp's Vorschlag) geht es ums Löschen aller dieser Ergänzungen. Das geht ohne For-Schlaufe. Ich spreche dann alle Zellen an.
Ich denke Dein Vorschlag würde funktionieren, wenn ich gleichzeitig auf dem ganzen Blatt diese Ergänzung des Verketten Befehls mit dem gleichen Wert aus D4 wünschte.
Bin ich richtig bei dieser Vermutung? Ich kenne mich da noch nicht so aus.
Ich brauche diese Formel für bestimmte Zellen aus den For Schlaufen nicht für alle Zellen.
&ltpre&gt
Sub verketten2()
For i=10 To 15
For n=5 To 10
'hier erfolgt die Neuberechnung von D4
Cells(iRow,jCol).select
Dim rng As Range, _
intPos As Integer
On Error Resume Next
For Each rng In ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas)
If Left(rng.FormulaLocal, 10) = "=VERKETTEN" Then
intPos = Len(rng.FormulaLocal)
rng.FormulaLocal = Left(rng.FormulaLocal, intPos - 1) & ";""" & Range("D4").Text & """)"
End If
Next rng
On Error GoTo 0
next j
next i
End Sub&lt/pre&gt
Leider haut das so noch nicht hin. was ist falsch?
Gruss urs

Sub verketten2() Dim intPos As Integer For i = 10 To 15 For n = 5 To 10 'hier erfolgt die Neuberechnung von D4 With Cells(iRow, jCol) On Error Resume Next If Left(.FormulaLocal, 10) = "=VERKETTEN" Then intPos = Len(.FormulaLocal) .FormulaLocal = Left(.FormulaLocal, intPos - 1) & ";""" & Range("D4").Text & """)" End If On Error GoTo 0 End With Next n Next i End Sub

Sub Test01() Dim intPos As Integer With Cells(1, 1) On Error Resume Next If Left(.FormulaLocal, 10) = "=VERKETTEN" Then intPos = Len(.FormulaLocal) .FormulaLocal = Left(.FormulaLocal, intPos - 1) & ";""" & Range("D4").Text & """)" End If On Error GoTo 0 End With End Sub

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread