Feste Zahl in Formel erkennen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

' sucht Formeln mit Addition Konstante Sub T_1() Dim ff As Range With CreateObject("vbscript.regexp") .Global = True .Pattern = "\+\d+" For Each ff In ActiveSheet.UsedRange.SpecialCells(3) If .test(ff.Formula) Then ff.Interior.Color = vbYellow Next ff End With End Sub

…für KVs, Fennek (& Sissi),
von denen die Ärzte AbschlagZahlungen erhalten und dann später (mitunter Jahre), nach (rückwirkender) Aushandlung mit den KK HonorarTeile nachträglich hinzugefügt wdn. Das ist natürlich eine ganz schlechte, an einfacher Praxis orientierte Strategie, die eine ordentliche Dokumentation erschwert. Etwas Vglbares wird auch hier der Fall sein. Besser wäre es, das in ExtraTabellen zu erfassen, um die Gründe parat zu haben. Die zusätzlichen Additionen könnten dann per Pgm einmalig in ErgebnisTabellen vorgenommen wdn und wären so auch von Grund auf nachvollziehbar (zB bei ErgebnisDatenVerlust). Das wäre über eine DB auch gut realisierbar.
Dein Pgm erkennt ja jegliche Art von KonstantenAddition, egal, ob es sich um solche Fälle oder normale Festwerte handelt.
Gruß, Luc :-?

Hi
erstelle dir folgende benutzerdefinierte Funkion:

Function SissiCheck(Optional Zelle As Range) As Boolean
SissiCheck = Zelle.Formula Like "*[+-]#*"
End Function

markiere dann den Zellbereich, den du überprüfen musst.
erstelle für den Bereich eine Bedingte Formatierung mit der Formel als Regel und eine entsprechenden Einfärbung, nach der du suchen kannst

=SissiCheck(A1)

wobei A1 die linke obere Zelle des markierten Bereichs ist.
markiert werden dann alle Zellen, bei denen im Formeltext ein + oder - gefolgt von einer Ziffer auftaucht.
wenn du mehrere Dateien so bearbeiten musst, dann erstelle die Function in einer weiteren Datei, welche zu immer geöffnet haben musst (dafür verwendet man die PERSONL.xlsb im autostartordner, die ist dann automatisch immer geöffnet.
Um die Function aus dieser Datei auch in anderen Dateien verwenden zu können, musst du dann in _ der Formel den Dateinamen voranstellen:


='Mappe1.xlsb'!SissiCheck(A1)

für die Suche nach einzelnen Zellen kannst du dann auch folgendes Makro verwenden:

Sub NächsteSissiZelle()
Dim Zelle As Range
For Each Zelle In Selection.SpecialCells(xlCellTypeFormulas)
If Zelle.Formula Like "*[+-]#*" Then
Zelle.Select
Select Case MsgBox("Zelle gefunden: " & Zelle.Address(0, 0) & vbLf & "Weitersuchen?",  _
vbYesNo + vbQuestion, "SissiCheck")
Case vbNo
Exit Sub
Case Else
End Select
End If
Next
MsgBox "Alle Zellen durchsucht"
End Sub

auch das platzierst du am besten in einer Datei, die Parallel immer geöffnet ist.
Dann markierst du in der Datei, die du durchsuchen willst den Zellbereich und startest das makro über das Makromenü oder du weist es einem Symbol der Schnellzugriffsleiste zu.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Feste Zahl in Formel erkennen

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread