Function INDIRECT in combination with ADDRESS

thank you it works

rgds

Walter

Hi,

try:

=INDIRECT("R(-3)C("&INDIRECT(ADDRESS(12,3,,,"ASSUMPTION"))&")",0)

Claus

ah..ok... also Breite und Hoehe nur angeben, wenn ich mit der Offset eine Summe erstellen will. Gut, macht Sinn. Danke .

Nun stehe ich vor der Indirect Formel. Habe folgendes:

=SUM(INDIRECT("SumP Data!"&LEFT(ADDRESS(1,MATCH($B17,'SumP Data'!$D$1:$P$1,0)+COLUMN('SumP Data'!$C$1),4),1)&":"&LEFT(ADDRESS(1,MATCH($B17,'SumP Data'!$D$1:$P$1,0)+COLUMN('SumP Data'!$C$1),4),1)))

Diese wirft mir immer wieder ein #Ref! Fehler aus. Lasse ich die Formel mit der ExcelHilfe durchlaufen, dann komme ich bis =Sum(Indirect("SumP Data!F:F")), danach kommt dann der Fehler und ich Weiss beim besten Willen nicht wieso.

Ich arbeite hier mit Column, da er sonst bei mir mit Address immer von Spalte 1 aus rechnet und dann nicht auf F sondern C kommt.

Aber wiegesagt, beim Durchlaufen der Formel scheint alles zu klappen. Alles wird gefunden und errechnet, nur dann am Ende mit der Indirect hat Excel Probleme und wirft den Fehler aus und ich Weiss nicht wo. Erst dachte ich mir fehlt irgendwo ein " oder ein
& aber dem scheint nicht so zu sein.

Hast du eine Idee? Wenn du mein Workbook dafuer benoetigst, sag bescheid und ich schicke es an deine Email.

Option Explicit

Sub Example_Combinations()
Dim C As Collection, Item, i As Integer

Set C = Combinations(Array("A", "B", "C", "D", "E", "F"), 4)
For Each Item In C
i = i + 1
Debug.Print i; ":", Join(Item)
Next
End Sub

Function Combinations(Arr, ByVal Count As Integer) As Collection
'Gibt alle Kombinationen von Count Elementen in Arr als Arrays in einer Collection zurück
'Returns all combinations of Count elements in Arr as arrays in a collection
Dim Index() As Long
Dim Result()
Dim i As Long, j As Integer
'Create a collection
Set Combinations = New Collection
'Return empty collection if Count exceed the bound's of Arr
If LBound(Arr) + Count - 1 > UBound(Arr) Or Count < 1 Then Exit Function
'Setup space for index and result array
ReDim Index(1 To Count) As Long
ReDim Result(1 To Count)
'Setup index for first combination
For i = 1 To Count
Index(i) = LBound(Arr) + i - 1
Next
Do
'Build combination
For i = 1 To Count
Result(i) = Arr(Index(i))
Next
'Save it
Combinations.Add Result
'Get next index
i = Count
j = 0
Do
'Max. position for this index reached?
If Index(i) = UBound(Arr) - Count + i Then
j = j + 1
'Move index before up one step in next loop
i = i - 1
If i < 1 Then Exit Function
Else
'Increment position
Index(i) = Index(i) + 1
'Setup next indices
For j = 1 To j
i = i + 1
Index(i) = Index(i - 1) + 1
Next
Exit Do
End If
Loop
Loop
End Function

<br />

Hallo Andreas,

ich habe die Funktionen für Längen- und Breitengrade noch verändert, damit man nicht mit LEFT, MID und FIND arbeiten muss:

Function GetLatidue(Address As String) As Double    Dim Coordinates As String

    Dim varCo As Variant

    

    'Get the coordinates for the given address.

    Coordinates = GetCoordinates(Address)

    

    'Return the latitude as number (double).

    If Coordinates <> "" Then

        varCo = Split(Coordinates, "/")

        GetLatidue = varCo(0)

    End IfEnd Function
Function GetLongitude(Address As String) As Double    Dim Coordinates As String

    Dim varCo As Variant

    

    'Get the coordinates for the given address.

    Coordinates = GetCoordinates(Address)

    

    'Return the longitude as number (double).

    If Coordinates <> "" Then

        varCo = Split(Coordinates, "/")

        GetLongitude = varCo(1)

    End If    

End Function

Diese Änderung sind auch auf OneDrive ersichtlich.

Mit freundlichen Grüßen

Claus