Office: (Office 2010) Range Objekt an Funktion übergeben

mindhunter · 7. März 2015

Hi,

stehe total auf dem Schlauch. Ich möchte einfach nur ein Range-Objekt an eine Funktion übergeben und eine Zelle formatieren. Im angegebenen Coding wird nur der Inhalt übergeben und nicht das Objekt. Kann mir bitte jemand weiter helfen, vielen Dank.

Stefan

Code:

Sub Test
Dim ws as worksheet

FormatLegend(ws.range("B25"))
End Sub

Function FormatLegend(rCRange As Range)

With rCRange
.NumberFormat = "0"
End With
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

Hajo_Zi · 8. März 2015

folgender Code läuft fehlerfrei in meiner Datei. Deine Datei sehe ich nicht.

Code:

Option Explicit

Sub Test()
Dim ws As Worksheet
Set ws = ActiveSheet
FormatLegend ws.Range("B25")
Set ws = Nothing
End Sub

Function FormatLegend(rCRange As Range)
With rCRange
.NumberFormat = "0"
End With
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

chris-kaiser · 8. März 2015

Hi,

ws ist im Code nicht bekannt und die Klammer wird nicht benötigt da ja kein Rückgabewert ist

Code:

Sub Test()
Dim ws As Worksheet
Set ws = ActiveSheet
FormatLegend ws.Range("B25")
End Sub

Function FormatLegend(rCRange As Range)

With rCRange
.NumberFormat = "0"
End With
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mindhunter · 8. März 2015

Hat funktioniert, vielen Dank.

xlph · 8. März 2015

Code:

Call FormatLegend(ws.Range("B25"))
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

EarlFred · 9. März 2015

Hallo Stefan,

vielleicht als Erläuterung, warum das passiert:
Das Setzen von Übergabewerten in Klammern (wo sonst keine Klammern erwartet werden, sonst bei "doppelter" Klammerung) bewirkt, dass dessen ausgewerteter Inhalt und nicht mehr der Wert an sich übergeben wird. Zudem findet die Übergabe ByVal statt, auch wenn ByRef (oder nichts) vorgegeben ist.

Code:

Option Explicit

Sub Test()
Dim ws As Worksheet
Set ws = ActiveSheet

FormatLegend (ws.Range("B25"))
FormatLegend ws.Range("B25")

Set ws = Nothing
End Sub

Function FormatLegend(rCRange As Variant)

MsgBox TypeName(rCRange)

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

Grüße
EarlFred

Office: (Office 2010) Range Objekt an Funktion übergeben

Range Objekt an Funktion übergeben

Range Objekt an Funktion übergeben

Range Objekt an Funktion übergeben

Range Objekt an Funktion übergeben - Similar Threads - Range Objekt Funktion

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

1. Zelle eines Range-Objektes per VBA finden

Laufzeitfehler '2147417848 (80010108)': Die Methode 'Value' für das Objekt 'Range'...

Methode Range für das Objekt Global fehlgeschlagen

Die PasteSpecial-Methode des Range-Objektes konnte nicht ausgeführt werden

AutoFilter: Fehler 1004 (AutoFilter-Methode des Range-Objektes)

Word VBA navigieren mit Range-Objekt, Bilder positionieren