Dateien automatisch öffnen für Indirekt()

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
kommt darauf an, wie das ganze aufgebaut ist.
wenn du so eine Strukur hast, dass die Formeln nur einmalig aufgebaut werden müssen und dann aber unveränderlich sind, könntest du auch so vorgehen.
Das beschriebene Vorgehen gilt für den Fall, dass bswp die Dateinamen in Spalte A stehen und in Spalte B der jeweilige SVerweis auf diese Datei erfolgen soll:
1. erstelle eine Formel, welche die später benötigten Formeln als Text erstellt: ="=..."
und ziehe sie in die erforderlichen Zellen.
2. überprüfe nochmal, ob die erzeugten Texte korrekte Formeln darstellen und alle referenzierten Dateien und Tabellenblätter auch vorhanden sind.
3. kopiere die Zellen und trage sie an gleicher Stelle als Wert ein
4. markiere den Zellbereich und ersetze das "=" durch "=".
bei diesem Ersetzen wird Excel dann die Texte in die entsprechenden Formeln umwandeln.
Gruß Daniel

…SVB,
aber ebenfalls mit VBA. Auch hier könnte eine Methode eingesetzt wdn, die sonst u.a. für eine selbstkorrigierende EingabeZelle verwendet wdn kann. Da es sich hierbei ebenfalls um eine physische Entkopplung von veranlassender Fkt in einer ZellFml (UDF) und dem eigentlichen Ausführungsteil handelt, fktioniert das. Dieser Effekt wurde zuerst im Zusammenhang mit der Xl-Fkt HYPERLINK festgestellt, die aber eigentlich nicht benötigt wird und folglich durch die zielgerichtetere UDF ersetzt wird. Da Fktt in ZellFmln normalerweise die Änderung anderer Zelle und von Formaten untersagt ist, sollte man das Folgende sparsam einsetzen, obwohl es durchaus möglich ist, mehrere dieser Fmln auf einem Blatt bzw in einer Mappe zu verwenden. Es muss nur dafür gesorgt wdn, dass die ÜbernahmeFml (mit der UDF) nicht unnötig ausgelöst wird. Dazu kann auch die Verbindung der jeweils 3 benötigten Zellen beitragen. Die Fml-Zellen wdn dadurch bedingt geschützt und können nur noch gelöscht wdn (alle, mit der LöschTaste). Um die Rechnung zu wiederholen, darf dann nur der in der EditZeile sichtbare Inhalt durch Markieren und Löschen entfernt wdn. Sollen die andere Fml oder der transportierte Wert geändert wdn, muss der ZellVerbund vorübergehend aufgelöst wdn (Warnung kann ignoriert wdn)! Die VerbundZelle muss durch Übertragung des Formats einer MusterVerbundZelle (FormatPinsel!) gebildet wdn!
Auflistung:
A1 allgemeiner Teil des VerweisTextes → 'pfad\[#]blatt'!zelle
(ggf mit =ZELLE("dateiname") bzw =ZELLE("dateiname";zelle) ermittelt)
A2ff die (hier vollständigen) relevanten Dateinamen
VerbundZelle (oder 3 beliebig positionierte EinzelZellen, hier für den 1.Dateinamen)
1.Zelle: hier E2, ursprünglich leer
2.Zelle: hier F2, Übernahme-Fml =WENN(E2="";SendTo(E2;G2;1))
3.Zelle: hier G2, VerweisText-Bereitstell-Fml =WECHSELN(A$1;"#";A2)
(A2 kann natürlich durch eine Fml ersetzt wdn, die einen bestimmten Namen aus der Auflistung auswählt.)
Die UDF SendTo und ihre per vbMethode Evaluate physisch entkoppelte Hilfsprozedur Sent wdn in einem allgemeinen Modul (ggf auch eines aktiven AddIns) angelegt:

Option Explicit
Dim actState As Boolean

Rem Senden von ZellInhalt per ZellFml an andere Zelle
'   Vs2.2 -LSr -cd:20170202(Neufass) -1pub:20170202h -lupd:20190627t
Function SendTo(ZBereich, QBereich, Optional alsFormel As Boolean) As Boolean
actState = TypeName(ZBereich) = "Range" And TypeName(QBereich) = "Range"
If actState Then
If alsFormel Then
Evaluate "Sent(" & QBereich.Address & "," & ZBereich.Address & ",True)"
Else: Evaluate "Sent(" & QBereich.Address & "," & ZBereich.Address & ")"
End If
End If
SendTo = actState
End Function

Rem HilfsProzedur zur UDF SendTo
'   Vs2.2 -LSr -cd:20170202(Neufass) -1pub:20170202h -lupd:20190627t
Private Sub Sent(Von As Range, Nach As Range, Optional alsFormel As Boolean)
On Error GoTo fx
actState = Not (Von Is Nothing Or Nach Is Nothing)
If actState Then
If Nach.MergeCells Then Set Nach = Nach.MergeArea.Cells(1)
If alsFormel Then
Nach.FormulaLocal = "=" & Von: SendKeys "{F9}"
Else: Nach = Von
End If
Exit Sub
End If
fx: actState = False
End Sub

Morhn, Luc :-?
Der beste Beweis für intelligentes Leben im Universum ist, dass noch niemand versucht hat, Kontakt mit uns aufzunehmen. H.Lesch, 2018, Sonneberg
Deshalb Intelligenz steigern mit

Beliebteste Forumthreads (12 Monate)

Dateien automatisch öffnen für Indirekt()

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

198 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Dateien automatisch öffnen für Indirekt()

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

198 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread