Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
1376to1380
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
Inhaltsverzeichnis

Formel aus bedingter Formatierung weiterreichen

Formel aus bedingter Formatierung weiterreichen
03.09.2014 15:54:48
Soti
Hallo.
Ich möchte aus einer Sub bf_Korrigieren Variablen an eine andere Unterfunktion weitergeben. Dies sieht im Ausschnitt so aus:
Dim dings As Range 'Zelle des verwendeten Bereichs
Dim i As Integer 'durchläuft alle Arbeitsblätter
Dim j As Integer 'Zähler für Rangfolge bedingter Formate
...
Set formel1 = ActiveWorkbook.Worksheets(i).dings.FormatConditions(j).Formula1
...
Leider funktioniert das nicht. Ein Objekt ist erforderlich. Was mache ich falsch?
Kann mir jemand weiterhelfen? Vielen Dank schon einmal.
Viele Grüße,
Soti

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formel aus bedingter Formatierung weiterreichen
03.09.2014 16:13:19
Daniel
Hi
die Formel ist doch nur ein Textstring,deswegen ohne Set und die Variable formel1 sollte als String formatiert sein.
wenn dings ein Range-Objekt ist, dann hat dieses bei der Zuweisung des Zellbereichs doch schon automatisch mitbekommen, zu welcher Datei und Tabellenblatt es gehört:
dim formel1 as string
dim dings as Range
set dings = Workbooks(...).Worksheets(...).Range(...)
formel1 = dings.FormatConditions(j).Formula1

Gruß Daniel
Anzeige

323 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige