Wie eine Reihe von Zellen auszuwählen, mit zwei Variablen in VBA

Question

Ich mag verwenden:

Set rng1 = .Range("A1") 
    Set rng2 = .Range("C3") 

wie in diesen link diskutiert. Das OP hatte Zelle A1 und Zelle C3 als zwei getrennte einzellige Bereiche. Er fragte, wie man die Reichweite ändern könnte, so dass alle dazwischen liegenden Zellen ebenfalls in einem neuen größeren Bereich enthalten sind. Mein Problem ist ähnlich, aber mein Zellenbereich ändert sich mit jedem neuen Szenario. Beispiel # 1 Anfangsdatum in Zelle D1 und Enddatum in Zelle Y1, neuer Bereich ist D1: Y1; oder Beispiel # 2 Startdatum in Zelle B1 und Enddatum in Zelle AZ1, neuer Bereich ist B1: AZ1. Wie kann ich den obigen Code ändern, so dass eine Variable anstelle eines statischen Bereichs verwendet werden kann?

Answer 1

Ich bin mir nicht sicher, ob ich die Frage richtig verstanden habe. So haben Sie einen Blick auf die folgenden und lassen Sie mich wissen, ob dies Ihr „Problem“ löst:

Option Explicit 

Public Sub tmpTest() 

Dim rng1 As Range 
Dim rng2 As Range 
Dim rngComposite As Range 

With ThisWorkbook.Worksheets(1) 
    Set rng1 = .Range("A1") 
    Set rng2 = .Range("C3") 
    Set rngComposite = .Range(rng1, rng2) 
    Debug.Print rngComposite.Address 
End With 

End Sub 

Wesentlichen der Bereich .Range(rng1, rng2) ist so dynamisch wie die zugrunde liegenden Bereiche und wird jedes Mal ändern, dass rng1 oder rng2 Änderungen .