Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 09:53:18
Wartungsliste automatisch aktualisieren
24.04.2024 09:36:02
Wenn Wert x in Zelle a, dann Wert y in Zelle b
24.04.2024 09:24:20
Textketten erstellen mit unterschiedlichen Anzahl an Feldern
24.04.2024 09:04:14
Erfahrung Umstieg in Sharpoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
844to848
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
844to848
844to848
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formeln mit Konstanten finden via VBA

Formeln mit Konstanten finden via VBA
20.02.2007 16:24:08
Andreas
Hallo zusammen,
kann mir einer von euch beantworten, ob und vor allem wie es möglich ist mittels VBA zu prüfen, in welchen Zellen in einem Arbeitsblatt Formeln mit Harteingaben vorhanden sind? Wenn also in A1 stünde =B1+14, dann möchte ich diese Zelle finden, wenn dort steht =14, dann nicht und wenn dort nur eine Formel steht,a lso =B1, dann auch nicht.
Vielleicht weiß ja einer von euch Rat!
Danke schonmal vorab!
Grüße
Andreas

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formeln mit Konstanten finden via VBA
20.02.2007 18:22:00
Hubert
Hi,
wenn du einen Hinweis auf den Verwendungszweck geben würdest,
gibt es ggf. einen alternativen Weg, oder ist es nur Denksport?
mfg Hubert
AW: Formeln mit Konstanten finden via VBA
20.02.2007 18:40:57
Coach
Hallo Andreas,
folgender Code markiert Zellen, die mindestens einen Zellbezug und eine Konstante enthalten:
Option Explicit

Sub MarkiereFormelnMitKonstanten()
Const Operatoren = "=^&/()*+<>-"
Dim r As Range, Formeln As Range, Formel As Variant, AnzBezuege As Long, AnzKonstanten As Long, i As Long
On Error Resume Next
Application.ScreenUpdating = False
Set Formeln = Nothing
Set Formeln = ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas)
If Formeln Is Nothing Then Exit Sub
With Formeln.Interior
.ColorIndex = 0
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
For Each r In Formeln
Formel = r.Formula
AnzBezuege = 0: AnzKonstanten = 0
'offen: Konstanten in Namen vorher ersetzen
For i = 1 To Len(Operatoren)
Formel = Replace(Formel, Mid(Operatoren, i, 1), ",")
Next
Formel = Split(Formel + ",", ",", -1, vbTextCompare)
For i = LBound(Formel) To UBound(Formel) - 1
If Formel(i) <> vbNullString Then
If IsRange(Formel(i)) Then
AnzBezuege = AnzBezuege + 1
ElseIf IsNumeric(Formel(i)) Then
AnzKonstanten = AnzKonstanten + 1
End If
End If
Next
If AnzKonstanten > 0 And AnzBezuege > 0 Then r.Interior.ColorIndex = 36
Next
Application.ScreenUpdating = True
End Sub



Function IsRange(ByVal Bezug$) As Boolean
'offen: Bezüge zu verknüpften Dateien
On Error Resume Next
IsRange = False
IsRange = IsObject(Range(Bezug))
End Function

Einschränkungen als Kommentar angegeben.
Gruß Coach
Anzeige
AW: Formeln mit Konstanten finden via VBA
21.02.2007 11:14:06
Andreas
Hallo Coach,
vielen Dank, ich denke, das ist genau das was ich gesucht habe, habe es noch nicht antesten können, aber vom Lesen des Quelltexts her sollte es passen.
Danke nochmal und Grüße
Andreas
AW: Formeln mit Konstanten finden via VBA
21.02.2007 12:09:00
Coach
Hallo Andreas,
habe vergessen darauf hinzuweisen, dass der Code nicht "textsicher" ist, d.h. keine Textkonstanten erkennt und auch Trennzeichen in Text nicht ignoriert werden. Falls notwendig bitte selbst anpassen oder kurze Info.
Gruß Coach
AW: Formeln mit Konstanten finden via VBA
22.02.2007 11:07:02
Andreas
Hallo Coach,
alles klar, werde ich mir mal ansehen und ggf. noch anpassen/erweitern. Als Denkanstoß und Basis hilft mir das aber schon recht gut weiter.
Danke und Grüße
Andreas
Anzeige

305 Forumthreads zu ähnlichen Themen

Wechselnde Werte in VBA
Oliver

Hallo VBAler,
ich habe folgendes Problem, ich möchte gern eine Strategie an Hand von Hoch und Tiefpunkten testen, dies hat bisher einwandfrei funktioniert ... nun soll aber zwischen jedem ermitteltem Hoch zu einem Tief 3 Monate liegen - von Tief zu hoch besteht weiter mindesthaltedauer 1 M...
01.09.2008 14:39:15
Thread-ID: 1006370
6 Beiträge
Anzeige
FTP: Die Datei in den gleichen Ordner imopt.
Edie

Hallo zusammen,
habe im Archiv nachfolgende Code gefunden. Es wird per FTP eine Textdatei vom Server
runtergeladen. Dabei sollte die Textdatei in den gleichen Ordner importiert werden, dazu habe
ich den Code etwas angepasst mit: Dim Path$ und Path = ThisWorkbook.Path
In der Lo...
17.11.2008 20:22:40
Thread-ID: 1025395
4 Beiträge
Umwandeln in Zahlen mit VBA
Bernhard

Hallo liebe Excel-Experten,
heute brauche ich Eure Hilfe für folgendes Problem: Ich importiere Daten aus einer anderen Anwendung nach Excel und ich bekomme die Zahlen als Text formartiert. Die Zahlen sehen z.B. wie folgt aus: 4.75m, was als Zahl 4750000 entspricht. Ist es mit einem VBA-Code...
25.11.2008 13:46:12
Thread-ID: 1027705
4 Beiträge
Anzeige
Dateien löschen auch in Unterordner
Andre´

Hallo alle zusammen,
Ich möchte alle TXT-Dateien löschen die sich unter:
C:\Backup\Jahr
befinden aber nur wenn diese älter als 60 Tage sind.
Dabei sollen auch alle Unterordner falls vorhanden durchsucht werden.
Ich hoffe mir kann jemand helfen.
Vielen Dank im Voraus!
...
16.01.2009 12:10:00
Thread-ID: 1040526
12 Beiträge
Formeln in Zelle per VBA festlegen
Ryu

Hallo zusammen,
fällt jemanden auf warum es zu Fehler 1004 bei folgendem Code kommt? Es liegt an der Zeile wo ich die Formel in "H4" definiere. Dort möchte ich mit Funktion Verweis den Wert der Spalte C (Blatt Daten) rausfinden, wenn es dem Wert der Spalte D (Blatt Daten) gleich D11 (Blatt...
24.02.2009 16:15:40
Thread-ID: 1053577
9 Beiträge
Worddateien in Ordner auslesen
Dirk

Hallo Excelgemeinde!
Ich brauche eure Hilfe!!!!
Ich habe folgendes Problem:
Ich muß bestimmte Daten aus allen vorhandenen Word Dokumenten in einem Verzeichnis (inkl. Unterverzeichnisse) auslesen. Ich habe bereits eine Exceldatei mit der ich eine Worddatei in einem Verzeichnis auswäh...
14.03.2009 19:39:18
Thread-ID: 1060243
7 Beiträge
Alle Dateien eines Ordners öffnen
Florian

Hallo liebes Forum,
habe wieder mal eine Frage:
wie kann ich alle Workbooks in einem [bestimmten] Ordner ansprechen? Der Pfad ist mir dabei nur teilweise bekannt, d.h. ich kenne den genauen Anfang des Pfades nicht (dieser ändert sich mit jedem Durchlauf). Das Ende des Pfades ist mir wie...
07.04.2009 15:04:17
Thread-ID: 1067433
2 Beiträge
Dateien in Ordner bewegen
Claudia

Hallo zusammen,
ich stehe vor einer unlösbaren Aufgabe. Bleibt sie ungelöst, bin ich der "A..... der Welt" und muss das händisch machen.
Also ich beschreibe mein Problem.
Es gibt einen Ordner "Kundenverträge" (Pfad ist ja erst einmal egal, den müsste ich ohnehin noch anpassen).
...
17.04.2009 17:14:40
Thread-ID: 1069345
15 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
9
3
3
1
11
8
6
1
14
4
3
4
3
17
3
3
3
1
13
6
1
3
5
17