Zahlenteil eines Strings + X

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Wie bereits erwähnt ist mir klar, dass das wie es im Code steht nicht geht, daher der Hinweis. Das war lediglich zum Verständnis wie die Logik funktionieren soll.
Da ich weiß, dass es so nicht geht aber keine Ahnung habe wie es anders geht schreibe ich ins Forum. Deshalb sind meine VBA Verständnisse bescheiden. Entschuldige, dass ich bei meinem ersten Beitrag anscheinend nicht das richtige Excel-Level angegeben habe.
Sheets("Parameter").Select
Ekea_Addition = Cells (5, 2) (das wäre der Additionswert, der auf die EKEA Werte addiert werden sollte)
Das ist für den Code auch nicht so relevant. Das Hauptproblem ist für mich, ob und wenn ja wie es geht, dass der Zahlenwert nach EKAE- mit einer Zahl addiert werden kann.
Das Skript muss nur einmal im Monat ausgeführt werden, und der zu addierende Wert ist immer unterschiedlich bzw. in manchen Monaten 0.
Bisher ist es vollständig Manuell. Über Strg F muss ich z.B EKAE-112 suchen und mit EKAE-113 ersetzen. Und das auf jedem einzelnen Tabellenblatt

Sub Text_Addieren() Const procTitle As String = "EKEA-Werte aufaddieren" Const preFix As String = "EKAE-" Const Bereich As String = "A1:AH66" Dim addWert As Integer, wsCnt As Integer, addCnt As Long Dim ws As Worksheet, rC As Range addWert = Val(Worksheets("Parameter").Cells(5, 2)) If vbYes = MsgBox("Wollen Sie " & Str(addWert) & " zu EKAE-*** " & vbCrLf & _ "in allen Arbeitsblättern addieren?", vbYesNo, procTitle) Then For Each ws In ThisWorkbook.Worksheets If ws.Visible = xlSheetVisible Then wsCnt = wsCnt + 1 For Each rC In ws.Range(Bereich) If Left(rC.Text, Len(preFix)) = preFix Then rC = preFix & Trim(Str(Val(Mid(rC.Text, Len(preFix) + 1)) + addWert)) addCnt = addCnt + 1 End If Next rC End If Next ws MsgBox Str(addCnt) & " " & preFix & "Werte in" & vbCrLf & _ "in " & Str(wsCnt) & " Tabellenblättern geändert!", vbInformation, "" End If End Sub

für einen Excel-Profi, Phil
Kein Wort davon in der Anfrage, dass sich die zu ersetzenden String/Werte in Formeln! befinden. Eher die Irreführung (auf Zell-Inhalte) im Zitat: bei dem Wert EKAE-*** der numerische Teil (***)
Also meine letzte Antwort!

Sub Formel_Text_Addieren()
Const procTitle As String = "EKEA-Werte aufaddieren"
Const searchTerm As String = " EKAE-"
Const Bereich As String = "A1:AH66"
Dim fndTerm As String, newTerm As String, searchPos As Integer
Dim addWert As Integer, wsCnt As Integer, addCnt As Long
Dim ws As Worksheet, rC As Range
addWert = Val(Worksheets("Parameter").Cells(5, 2))
If vbYes = MsgBox("Wollen Sie " & Str(addWert) & " zu" & searchTerm & "*** " & vbCrLf & _
"in allen Arbeitsblättern addieren?", vbYesNo, procTitle) Then
For Each ws In ThisWorkbook.Worksheets
If ws.Visible = xlSheetVisible Then
wsCnt = wsCnt + 1
For Each rC In ws.Range(Bereich)
If rC.HasFormula Then
searchPos = InStr(rC.Formula, searchTerm) + Len(searchTerm)
If searchPos > Len(searchTerm) Then
fndTerm = searchTerm & Trim(Str((Val(Mid(rC.Formula, searchPos)))))
newTerm = searchTerm & Trim(Str((Val(Mid(rC.Formula, searchPos)) +  _
addWert)))
rC.Formula = Replace(rC.Formula, fndTerm, newTerm)
addCnt = addCnt + 1
End If
End If
Next rC
End If
Next ws
MsgBox Str(addCnt) & " " & searchTerm & "Werte in" & vbCrLf & _
"in " & Str(wsCnt) & " Tabellenblättern geändert!", vbInformation, ""
End If
End Sub

Falls das nicht funktioniert, lasse den Thread offen und warte auf einen anderen barmherzigen Samariter ;-)
Gruess Hansueli

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

316 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zahlenteil eines Strings + X

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

316 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread