OpenOffice.info

Code: Alles auswählen

sub spaltenDurchsuchen

'variablen Festlegen
	Dim oDoc as Object
	Dim oSheet as Object
	Dim oSearch as Object, oResult as Object
	Dim oFound as Object
   	Dim n as Long
   	Dim oSpalte as Object
   	Dim oZeile as Object
   	Dim column_index as Object
   
	'Dokument ansprechen
   	oDoc = ThisComponent
   	oSheet = oDoc.Sheets.getByIndex(0)
   	oSpalte = ThisComponent.Sheets(0).Columns(0)
   	oZeile = ThisComponent.Sheets(0).Rows(0)
   
   	oSearch = oZeile.createSearchDescriptor
   	oSearch.SearchString = "E-Mail"
   	oSearch.SearchRegularExpression = false ' E-Mail sieht nicht wie RegEx aus !
   	oResult = oZeile.findAll(oSearch)
   	For n = 0 To oResult.count - 1
    	oFound = oResult(n)
       	if oFound.supportsservice("com.sun.star.table.Cell") then    'einzelne Fundzelle
			print ofound.celladdress.column
		else    'mehrere benachbarte Zellen in ofound
		for i = ofound.rangeaddress.startcolumn to ofound.rangeaddress.endcolumn
			print i
		next
		end if
   next   
End Sub

Code: Alles auswählen

sub spaltenDurchsuchen

'variablen Festlegen
   Dim oDoc as Object
   Dim oSheet as Object
   Dim oSearch as Object, oResult as Object
   Dim oFound as Object
   Dim n as Long
   Dim oSpalte as Object
   Dim oZeile as Object
   Dim column_index as Object
   
'Dokument ansprechen
   oDoc = ThisComponent
   oSheet = oDoc.Sheets.getByIndex(0)
   oSpalte = ThisComponent.Sheets(0).Columns(0)
   oZeile = ThisComponent.Sheets(0).Rows(0)
   
   oSearch = oZeile.createSearchDescriptor
   oSearch.SearchString = "E-mail"
   oSearch.SearchRegularExpression = TRUE
   oResult = oZeile.findAll(oSearch)
   For n = 0 To oResult.count - 1
       oFound = oResult(n)
       oFound.      REM hier muss befehl erfolgen zum ausgeben der spaltennummer
      
  

Code: Alles auswählen

sub beispiel

for spalten_index = 0 to 10  'Index von Spalte 1 bis Spalte 11

     Select Case  spalten_index
           Case 0 To 5
           Print "Spalte Nummer : " & spalten_index +1
           Case 6, 7, 8
           Print "zwischen  7. und 9. Spalte"
           Case Else
           Print "Spaltennr grösser als 9 "
     End Select

next spalten_index

end sub