Office: excel vba range variable

hallo,

ich suche mit der find Methode nach unterschiedlichen Textstellen, die an verschieden Variablen übergeben werden.

Sub suchentest()
Dim stelle1 As Range
Dim stelle2 As Range

Dim text1 As String
Dim text2 As String

Dim adresse1 As Range
Dim adresse2 As Range

text1 = "··nach er Schule möchte ich"
text2 = "·· Ich interessiere mich dafür"

Set stelle1 = Sheets("SB").Range("B17:B222").Find(text1, LookIn:=xlValues, Lookat:=xlPart)

Set stelle2 = Sheets("SB").Range("B17:B222").Find(text2, LookIn:=xlValues, Lookat:=xlPart)
If Not stelle1 Is Nothing Then
MsgBox stelle1.Address
MsgBox stelle2.Address


Else: MsgBox "nix"
End If

End Sub


Soweit funktioniert auch alles. Nun meine Frage:

Ich würde gerne den Block zwischen beiden Stellen als Text kopieren, weil
dieser dynamisch mit Inhalt gefüllt wird, also immer unterschiedlich lang ist.

Also von adresse1 bis eine zelle über adresse2

ich habe es schon mit range und offset probiert, kriege es aber einfach nicht richtig formuliert.



vielen lieben dank & grüße

dirk

:)

 

Hi Dirk,

deklariere eine 3. Rangevariable (für den Fall, dass entweder Stelle1 oder Stelle2 Nothing ist) und wenn beide nicht Nothing sind, kannst Du sie mittels Union verbinden. Bsp.: (hier jetzt auf die Schnelle ohne die vorherige Nothingprüfung beider Stellen)

set stelle3 = Union(stelle1,Stelle2)

Was Du mit "als Text kopieren" meintest, ist mir nicht ganz klar. Aber Du könntest ja einer Stringvariablen die Adresse von Stelle3 zuweisen....

 

Hallo,

ersteinmal danke für den Tipp mit union, dies kannte ich noch nicht. Allerdings ist mir nicht ganz klar, wie ich das verwenden kann. ich stehe noch ziemlich am anfang und bin noch sehr stark abhängig von beispielen, die ich dann versuche, zu verstehen *Smilie


ich möchte mit
Sheets("SB").Range(adresse1,adresse2).copy den inhalt der zellen kopieren.
das klappt auch.
aber irgendwie steh ich auf dem schlauch, wo ich hier den offset einbauen kann, also von adresse2 eine zeile nach oben...

 

Hi Dirk,

du solltest noch prüfen, ob auch stelle2 belegt ist und dann einfach so:

Code:

 

Karin, herzlichen Dank!

ich hab viel zu kompliziert gedacht an der stelle und excel hat mich leider bei einem punkt auch nichts vorgeschlagen *biggrin.gif*


grüße, dirk