zellbereich über variable weitergeben.

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

kannenklaus
*****
Beiträge: 319
Registriert: Mi, 14.12.2005 08:08
Wohnort: freising - oder dort, wo das bier herkommt

zellbereich über variable weitergeben.

Beitrag 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
Stephan
********
Beiträge: 12368
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Beitrag 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
kannenklaus
*****
Beiträge: 319
Registriert: Mi, 14.12.2005 08:08
Wohnort: freising - oder dort, wo das bier herkommt

Beitrag 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
Stephan
********
Beiträge: 12368
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Beitrag 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
kannenklaus
*****
Beiträge: 319
Registriert: Mi, 14.12.2005 08:08
Wohnort: freising - oder dort, wo das bier herkommt

Beitrag 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
Antworten