Office: Kann ich einen Range als Parameter einer Sub übergeben und in der Sub bearbeiten?

AndreasMzD · 26. Oktober 2019

Hi,
ich habe eine Select-Case-Anweisung mit sieben cases. IN jedem Case habe ich einen (unterschiedlichen) Range, den ich aber exakt gleich bearbeiten muss. Zunächst hatte ich den Code sieben mal geschrieben. Das ist kein guter Stil, da man ihn an einer Stelle ändern können sollte.
Also habe ich versucht das so zu lösen:
Code:

Set farbigsetzenBereich = Union(Range("C20:D23"), Range("C" & (20 + TageImMonat + 4) & ":D56"))
paintandlockRange (farbigsetzenBereich)
' With farbigsetzenBereich
' .Locked = True
' .Interior.Color = RGB(255, 230, 153)
' End With

Sub paintandlockRange(myRange As Range)
' mit einer lokalen Variable geht es auch nicht

' Dim localRange As Range
' localRange = myRange
With myRange
.Locked = True
.Interior.Color = RGB(255, 230, 153)
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Muss es eine Funktion machen oder kann ich es mit einer Sub machen?
Wie stelle ich im Code hinterher fest, ob es wirklich geklappt hat?
Jedenfalls funktioniert es so nicht.

Danke für Hinweise.

:)

Scorefun · 28. Oktober 2019

lasse die klammern beim Aufruf der Sub weg...

EarlFred · 28. Oktober 2019

oder:
Code:

CALL paintandlockRange (farbigsetzenBereich)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mase · 28. Oktober 2019

\@AndreasMzD:
Dir ist der Unterschied klar, warum Call oder kein Call?

Flotter Feger · 28. Oktober 2019

Hallo Marco,

der Unterschied würde mich auch interessieren ... *tongue.gif*

Sabina

Mase · 12. Januar 2021

von Flotter Feger

Hallo Marco,

der Unterschied würde mich auch interessieren ... *tongue.gif*

Sabina
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Tja Sabina, Dir will ich sagen:
"weil es sonst nicht geht "*tongue.gif*

AndreasMzD · 28. Oktober 2019

Hi,
ist mir schon klar, hat was mit byRef und byValue zu tun.
Nur wo ist das für VBA definiert, wann was der Fall ist. Lesen ist kein Problem...

Mase · 12. Januar 2021

von AndreasMzD

Hi,
ist mir schon klar, hat was mit byRef und byValue zu tun.
Nur wo ist das für VBA definiert, wann was der Fall ist. Lesen ist kein Problem...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

https://docs.microsoft.com/de-de/dot...d-by-reference und ff. Links

https://de.wikibooks.org/wiki/VBA_in...yRef_und_ByVal

https://www.ms-office-forum.net/foru...rn#post1942564

https://www.ms-office-forum.net/foru...rn#post1928525

https://www.ms-office-forum.net/foru...d.php?t=320437

Passing Variable ByRef And ByVal

AndreasMzD · 28. Oktober 2019

HI,
habs ausprobiert.

Habe meinen Code der aufgerufenen Sub geändert:
Code:

Sub paintandlockRange(ByRef myRange As Range)
With myRange
.Locked = True
.Interior.Color = RGB(255, 230, 153)
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

KOmischerweise funktionierte es genauso, als ich es in der aufgerufenen Sub auf ByVal änderte.
Hätte es nicht einmal krachen müssen?

Paar Worte mehr wären nicht schlecht...

Mase · 12. Januar 2021

von AndreasMzD

HI,
habs ausprobiert.

Habe meinen Code der aufgerufenen Sub geändert:
Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Sub paintandlockRange(ByRef myRange As Range)
With myRange
.Locked = True
.Interior.Color = RGB(255, 230, 153)
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

KOmischerweise funktionierte es genauso, als ich es in der aufgerufenen Sub auf ByVal änderte.
Hätte es nicht einmal krachen müssen?

Paar Worte mehr wären nicht schlecht...

Deine Range wurde nicht ByVal übergeben.
Objektvariablen werden stets Byref übergeben, daran ändert auch eine explizite Angabe ByVal im Prozedurkopf nichts.

AndreasMzD · 6. November 2019

Danke - das ist aufschlussreich.
Hatte ich leider nirgends gelesen bis jetzt.

Nepumuk · 6. November 2019

Hallo,

Objektvariablen werden stets Byref übergeben
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das stimmt so nicht. ByRef wird ein Pointer auf das Objekt übergeben, ByVal eine Kopie des Pointers. Es werden also ByVal 4 Bytes mehr benötigt. *boah

Mase · 6. November 2019

Warum einfach wenn's auch kompliziert geht *wink.gif*

Office: Kann ich einen Range als Parameter einer Sub übergeben und in der Sub bearbeiten?

Kann ich einen Range als Parameter einer Sub übergeben und in der Sub bearbeiten?

Kann ich einen Range als Parameter einer Sub übergeben und in der Sub bearbeiten?

Kann ich einen Range als Parameter einer Sub übergeben und in der Sub bearbeiten?

Kann ich einen Range als Parameter einer Sub übergeben und in der Sub bearbeiten?

Kann ich einen Range als Parameter einer Sub übergeben und in der Sub bearbeiten?

Kann ich einen Range als Parameter einer Sub übergeben und in der Sub bearbeiten? - Similar Threads - Range Parameter Sub

SVERWEIS mit Range von bis funktioniert nicht?

Macro Fehler Subscript out of Range

Laufzeitfehler 1004 "Die Methode 'Range' für das Objekt '_Global' ist fehlgeschlagen".

2x Worksheet_Change(ByVal Target As Range)

Turnierdatenbank Punkteausweisung anhand Rang

Rang.gleich aber mit untersten Rang bei gleichen Werten

"=Wenn" in VBA in eine hochzählende .range einbauen