Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1704to1708
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Änderung Sheet in Range-Objekt

Änderung Sheet in Range-Objekt
04.08.2019 16:27:50
Jens
Moin,
wenn ich ein Makro mit Parameter Range-Objekt aufrufe,
wie lässt sich dann die Bereichsaddresse auf andere Sheets anwenden?
Sub test(rng As Range)
rng = 10
Sheets("Tabelle2") mit selber Rangeaddresse = 20
Sheets("Tabelle3") mit selber Rangeaddresse = 30
Sheets("Tabelle4") mit selber Rangeaddresse = 40
End Sub

Gruß aus dem Norden,
jens

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Änderung Sheet in Range-Objekt
04.08.2019 16:35:10
{Boris}
Hi,
Sub test(rng As Range)
rng = 10
Sheets("Tabelle2").Range(rng.Address) = 20
Sheets("Tabelle3").Range(rng.Address) = 30
Sheets("Tabelle3").Range(rng.Address) = 40
End Sub

Sub til()
Call test(Range("A1"))
End Sub
VG, Boris
Letztes Sheet natürlich "Tabelle4" ...oT
04.08.2019 16:36:02
{Boris}
...
AW: Letztes Sheet natürlich "Tabelle4" ...oT
04.08.2019 17:08:20
Jens
Danke Boris,
wie logisch eigentlich:-(
Hat das Rangeobjekt eigentlich keine workbook-Eigenschaft?
Die Tabelle kann ich ja mit rng.worksheet.name auslesen....
Gruß und Danke,
Jens
Mappe aus Range auslesen
04.08.2019 17:14:21
{Boris}
Hi,
MsgBox rng.Worksheet.Parent.Name
VG, Boris
AW: Letztes Sheet natürlich "Tabelle4" ...oT
04.08.2019 17:18:38
Luschi
Hallo Jens,
'Tabellen-Name aus Range-Objekt:
rng.Worksheet.Name
oder
rng.Parent.Name
'Mappen-Name aus Range-Objekt
rng.Worksheet.Parent.Name
oder
rng.Parent.Parent.Name
Gruß von Luschi
aus klein-Paris
Anzeige
AW: Änderung Sheet in Range-Objekt
04.08.2019 17:13:10
Luschi
Hallo Jens,
ich würde 3 Parameter übergeben und das Beispiel von Boris sieht dann so aus:

Sub test(strWs as String,  strRng As String varValue As Variant)
Worksheets(strWS).Range(strRg).Value= = varValue
End Sub
Sub til()
Call test("Tabelle1","A1","Hallo")
Call test("Tabelle5","B5",77)
Call test("Tabelle7","BB7",Date())
End Sub
Gruß von Luschi
aus klein-Paris
AW: Änderung Sheet in Range-Objekt
04.08.2019 17:26:44
Jens
Danke Euch,
das hilft....und reicht:-)
Für mich: Thread closed...

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige