Seite 1 von 1

zellbereich über variable weitergeben.

Verfasst: Sa, 21.01.2006 19:59
von kannenklaus
hallo

kann ich in einer variablen vZellRange den wert "A1:b10" an die methode getCellRangeByName weitergeben?

Code: Alles auswählen

	oZelle = sheets(1).getCellRangeByName("A1:B10") 

         Dim vZellRange as Object?
        vZellRange = "A1:B10")
	objZelle = sheets(1).getCellRangeByName(vZellRange) 
freue mich auf eine antwort

gruß klaus

Verfasst: Sa, 21.01.2006 21:00
von Stephan
kann ich in einer variablen vZellRange den wert "A1:b10" an die methode getCellRangeByName weitergeben?


ja

Code: Alles auswählen

Dim vZellRange as Object? 
        vZellRange = "A1:B10") 
Nein, ein Zellbereich ist ein Objekt aber doch nicht dessen Name
(beispielweise ist ein Haus ein Gebäude, aber dessen Adresse doch nicht, das ist nur etwas Text)

Beispiel:

Code: Alles auswählen

Sub select_Cell
   oDoc = ThisComponent 
   oCtr = oDoc.getCurrentController() 
   oPlan = oDoc.Sheets(0) 
   Dim bereich As String
   bereich = "A2:A5"
   oRange = oPlan.getCellRangeByName(bereich) 
   oCtr.select(oRange)
End Sub 

Gruß
Stephan

Verfasst: So, 22.01.2006 09:14
von kannenklaus
hallo stephan,
bereich = "A2:A5"
ich möchte über einen dialog den zellbereich wie z.b. a2:a5 definieren und ihn z.b. an die variable bereich weitergeben.

gruß

klaus

Verfasst: So, 22.01.2006 09:40
von Stephan
Hallo Klaus,

ich weiß nicht ob das jetzt eine Frage oder Erläuterung war. Das hier ginge aber:

Code: Alles auswählen

Sub select_Cell 
   oDoc = ThisComponent 
   oCtr = oDoc.getCurrentController() 
   oPlan = oDoc.Sheets(0) 
   Dim bereich As String 
   bereich = InputBox ("Bitte geben einen Zellbereich ein (z.B. A1:A10): ","Zellbereich")
   oRange = oPlan.getCellRangeByName(bereich) 
   oCtr.select(oRange) 
End Sub


Gruß
Stephan

Verfasst: So, 22.01.2006 15:40
von kannenklaus
hallo stephan,

volltreffer, der code von deinem letzten beitrag beantwortet genau meine frage :lol:
ich weiß nicht ob das jetzt eine Frage oder Erläuterung war. Das hier ginge aber:
danke!!

gruß

klaus