wert letzter zelle aus spallte a einer geschl. map

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
das funktioniert so nicht.
du kannst Zellbezüge nicht so einfach auch anderen Zellen auslesen.
wenn ein Text aus einer anderen Zelle als Zellbezug verwenden willst, dann musst du INDIREKT verwenden.
dh wenn dein Zellbezug den du eigentlich verwenden willst in B17 als Text steht, dann:

=Index(Indirekt(B17);Anzahl2(Indirekt(B17))+B18)

hierbei musst du aber zwei Punkte beachten:
1. der Dateiname muss in eckige Klammern gesetzt werden
es fehlt bei dir der Tabellenblattname,
du musst darauf achten, dass das erste Hochkomma auch wirklich Bestandteil des textes ist und nicht nur das Texterkennungszeichen.
'N:\Mitarbeiter\Kauer\2016\[2016 Index.xls]Tabelle1'!$A:$A
2. Indirekt arbeitet nur, wenn die Quelldatei geöffnet ist, ansonsten bekommst du den Bezugsfehler.
das MS so eingerichtet, weil:
- Zellbezüge auf geschlossene Dateien sehr viel Rechenzeit benötigen (Excel muss wahrscheinlich die Datei im Hintergrund öffnen, um die Formel berechnen zu können)
- die Funktion INDIREKT die unangenehme Eigenschaft hat, dass sie volatil ist (so der Fachausdruck), das bedeutet, dass eine Formel, die Indirekt enthält bei JEDER Änderung in Excel neu berechnet wird, egal was und in welcher Datei du änderst (nicht volatile Funktionen werden nur dann neu berechnet, wenn sich im verwendeten Zellbereich eine Änderung ergeben hat)
Ich hoffe du verstehst, dass beide "Bremsen" in Kombination sehr schnell dazu führen, dass du mit der Datei nicht mehr sinnvoll arbeiten kannst. Daher hat MS hier wohl einen Riegel vorgeschoben.
Gruß Daniel

Sub LetzenWertFinden() Pfad = "C:\Users\" & Environ("Username") & "\Desktop\" Datei = "Test.xlsx" Tabelle = "Tabelle1" Bereich = "$B:$B" Range("A1").Formula = "=index('" & Pfad & "[" & Datei & "]" & Tabelle & "'!" & Bereich & ", _ countA('" & Pfad & "[" & Datei & "]" & Tabelle & "'!" & Bereich & "),'" & Pfad & "[" & Datei & "]" & Tabelle & "'!" & Bereich & ")" Range("A1") = Range("A1").Value End Sub

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$9" Then Dim OrdnerName As String OrdnerName = Right(Sheets("SCHADENBUCH").Cells(9, 3).Value, 4) If Dir("N:\Mitarbeiter\Kauer\" & OrdnerName, vbDirectory) = "" Then MkDir ("N:\Mitarbeiter\Kauer\" & OrdnerName) End If Dim SchadenNr As String Dim Pfad As String Dim Datei As String Dim Tabelle As String Dim bereich As String Pfad = "N:\Mitarbeiter\Kauer\" & OrdnerName & "\" Datei = OrdnerName & " Index.xlsx" Tabelle = "Tabelle1" bereich = "$A:$A" SchadenNr = Application.WorksheetFunction.Index = "=INDEX('" & Pfad & "[" & _ Datei & "]" & Tabelle & "'!" & bereich & ", COUNTA('" & Pfad & "[" & Datei & "]" & Tabelle & "'!" & bereich & ") " Cells(11, 5).Value = SchadenNr & "/" & Right(Sheets("SCHADENBUCH").Cells(9, 3).Value, 2) End If End Sub

Beliebteste Forumthreads (12 Monate)

wert letzter zelle aus spallte a einer geschl. map

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread