Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
900to904
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
900to904
900to904
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Auslesen von Zellbereichen bei DirectDependents

Auslesen von Zellbereichen bei DirectDependents
05.09.2007 11:37:00
Zellbereichen
Hallo zusammen,
mittels der Zeile
For Each rng In ActiveCell.DirectDependents
kann ich mir ja alle Zellen in den Nachfolgezellen auslesen. Für den Fall, dass dort eine Formel wie bspw. =SUMME(A1:A10) steht, erhalte ich ja alle Zellen einzeln, also A1, A2, A3, etc.
Ist es möglich hier eine Schleife zu haben, die mir dann bspw. für die Formel in der Zelle =SUMME(A1:A10)+B12 als Ergebnis A1:A10 und B12 liefert?
Danke für eure Ideen und Zeit!
Andreas

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

Betreff
Datum
Anwender
Anzeige
AW: Auslesen von Zellbereichen bei DirectDependents
05.09.2007 16:03:00
Zellbereichen
Hallo Andreas,
ja, mit:
Dim i As Long
For i = 1 To ActiveCell.DirectPrecedents.Areas.Count
Debug.Print ActiveCell.DirectPrecedents.Areas(i).Address(False, False)
Next
Gruß Coach

AW: Auslesen von Zellbereichen bei DirectDependents
05.09.2007 17:07:00
Zellbereichen
Hallo Coach,
danke für die schnelle Hilfe, funktioniert wunderbar!
Grüße
Andreas

AW: Auslesen von Zellbereichen bei DirectDependents
05.09.2007 17:51:49
Zellbereichen
Hallo Coach,
jetzt habe ich doch noch eine Ergänzungsfrage: Geht das auch wenn ich blattübergreifende Verknüpfungen prüfen will und den NavigateArrow verfolge?
Mit den Zeilen
For i = 1 To 100
For Each rng In ActiveCell.NavigateArrow(False, 1, i)
würde ich ja die ersten 100 Zellen abgreifen können und weiterverarbeiten. Ich habe dann versucht mit der Variante
For j = 1 To ActiveCell.NavigateArrow(True, 1).Areas.Count
WorksheetName = ActiveCell.NavigateArrow(True, 1).Areas(j).Worksheet.Name
AddressName = ActiveCell.NavigateArrow(True, 1).Areas(j).Address(True, True)
zu arbeiten, aber da bekomme ich nur den jeweils ersten Eintrag geliefert. Wie wäre denn für den NavigateArrow die Syntax? Kannst du mir hier nochmal weiterhelfen?
Danke schonmal vorab!
Viele Grüße
Andreas

Anzeige
AW: Auslesen von Zellbereichen bei DirectDependents
06.09.2007 08:18:00
Zellbereichen
Hallo Coach,
perfekt!
Danke nochmals.
Grüße
Andreas

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige