Listbox bekommt falsche Werte zugeordnet

[maine-coon]

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.

[Luschi]

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

[maine-coon]

Hallo erstmal und vielen Dank für die Hilfe.

Da hatte ich vergessen die Zeile davor mit zu kopieren.

PHP-Code:

With Worksheets("Entfernungen")