---

Hallo Zusammen,

ich habe zwei Range-Objekte definiert, die jeweils eine Zelle beinhalten. Meinetwegen beinhaltet myrange1 die Zelle A1 und myrange2 die Zelle A5. Nun möchte ich den gesamten Bereich zwischen diesen beiden Zellen A1 und A5 bearbeiten, z.b. mergen. Aber wie kann ich diesen Bereich definieren?

------------------
Grüßle
Gregi

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

so lang noch keine Antwort? Vielleicht versteht keiner den Hintergrund.

Ein einfaches Range(myrange1, myrange2).Merge tut es doch.
Was genau hast Du denn vor und was funktioniert nicht?

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info | Excel -Suche | RuA-Suche | FAQ-ACAD | CAD.de-Hilfe | Sei eine Antilope

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo zusammen,

Zitat:

---

den gesamten Bereich zwischen...

---

Vermutung ins Blaue hinein: ruebes Vorschlag nimmt A1 und A5 mit, Du willst aber nur A2 bis A4 behandeln? Guck Dir mal .Offset() an, damit kannst Du Zellen neben/über/unter einem Bereich ansteuern, auch negative Werte sind möglich.

Alternativ: Zeilennummern in zwei Variablen speichern: i für die obere, j für die untere Grenze. Cells(i+1,1) und Cells(j-1,1) sollten es tun - bzw. Range("A" & i+1).

Ansonsten wären etwas genauere Angaben über das Ziel der Reise hilfreich ...

------------------
DIN1055.de  |  Lastannahmen für Anwender NEU: Foren zu DIN 1055

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Guten Morgen,

runkelruebe hat richtig erraten, was ich wollte. Manchmal ist es so einfach, tut schon fast weh. Vielen Dank für die Erlösung. Nachdem für lange Zeit keine geantwortet hatte, habe ich es folgendermaßen gelöst...aber net lachen.

Code:

---

Sub subWocheMarkieren(EWT As Range, LWT As Range, KW As Integer)
    Dim myRange As Range
    Dim intS1 As Integer
    Dim intR1 As Integer
    Dim intS2 As Integer
    Dim intR2 As Integer
    EWT.Value = KW
    intS1 = EWT.Column
    intR1 = EWT.Row
    intS2 = LWT.Column
    intR2 = LWT.Row
    Set myRange = Range(Cells(intR1, intS1), Cells(intR2, intS2))
    myRange.MergeCells = True
End Sub

---

Das geht wohl in die Richtung 'von hinten durch den Rücken...'

Guten Start in die neue Arbeitswoche!

------------------
Grüßle
Gregi

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Tach,

Zitat:

---

...aber net lachen

---

Nö. Du gibst Feedback. Da gibt's nichts zu lachen.

Vorschlag zur Verkürzung und Verbesserung der Übersichtlichkeit - damit schrumpft Dein Code um acht Zeilen (jeweils Dim und Wertzuweisung):

Code:

---

Set myRange = Range(Cells(EWT.Row...

---

------------------
DIN1055.de  |  Lastannahmen für Anwender NEU: Foren zu DIN 1055

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP