zellbereich über variable weitergeben.

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: zellbereich über variable weitergeben.

von kannenklaus » So, 22.01.2006 15:40

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

von Stephan » So, 22.01.2006 09:40

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

von kannenklaus » So, 22.01.2006 09:14

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

von Stephan » Sa, 21.01.2006 21:00

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

zellbereich über variable weitergeben.

von kannenklaus » Sa, 21.01.2006 19:59

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

Nach oben