Clever-Excel-Forum

Hallo liebe Experten von VBA.

In Zelle R14 steht der Wert, den die Formel =Q4+19 liefert. Der errechnete Wert ist 20
In Zelle S14 steht der Wert, den die Formel =R4+65 liefert. Der errechnete Wert ist 92
Wenn ich die Listbox so einlesen lasse, funktioniert es nicht.

PHP-Code:
   ListBox1.ColumnWidths = "220;320;0;0;0;0;0;0;0;0;0;0;0;15"
        ListBox1.RowSource = "Entfernungen!" & .Range(.Cells(Worksheets("Entfernungen").Range("R14"), 1), .Cells(Worksheets("Entfernungen").Range("S14"), 14)).Address
   End With 

Wenn ich aber die Zellen NICHT mit einer Formel versehe, sondern direkt die errechneten Werte 20 in R14 und 92 in S14 schreibe, funktioniert es.

Ich verstehe das nicht.

Hallo Achim,

habe mal getestet und frage mich deshalb:
- auf welches With-Objekt beziehen sich denn die Punkte von .Range und .Cells
- die Ergebnis-Matrix soll doch die Tabelle 'Entfernungen' liefern
- bei mir würde Dein Code erstmal so aussehen, also ohne die Punkte:

Code:
Sub test1()

    Dim s As String

    s = "Entfernungen!" & Range(Cells(Worksheets("Entfernungen").Range("R14"), 1), _

                                Cells(Worksheets("Entfernungen").Range("S14"), 14)).Address

    Debug.Print s   ''Entfernungen!$A$20:$N$92

End Sub

- mein tatsächlicher Code wird aber der hier sein:

Code:
Sub test2()

    Dim s As String

    With Worksheets("Entfernungen")

        s = .Name & "!" & Range(.Cells(.Range("R14").Value, 1), _

                                .Cells(.Range("S14").Value, 14)).Address

    End With

    Debug.Print s   ''Entfernungen!$A$20:$N$92

End Sub

Gruß von Luschi
aus klein-Paris

Hallo erstmal und vielen Dank für die Hilfe.

Da hatte ich vergessen die Zeile davor mit zu kopieren.

PHP-Code:
With Worksheets("Entfernungen") 

maine-coon

Luschi

maine-coon