OpenOffice.info

REM  *****  BASIC  *****
Option Explicit

Sub GotoColumn
	Dim sCol As String, oView As Object, oCell As Object, sRange As String
   
   	On Error Resume Next
	sCol = InputBox("Spalte?", "GotoColumn", "A")
	sRange = sCol & (1 + ThisComponent.getCurrentSelection().getCellAddress.Row)

	oView  = ThisComponent.CurrentController 
	oCell  = oView.ActiveSheet.getCellRangeByName(sRange)
	oView.Select oCell
End Sub

Morgen,

lege dieses Makro auf eine freie Tastenkombination. Nimm dazu Extras-Anpassen-Tastatur, siehe Hilfe unter "Skripte zuweisen in OpenOffice".

cu, Bernd
--
[code]REM ***** BASIC *****
Option Explicit

Sub GotoColumn
Dim sCol As String, oView As Object, oCell As Object, sRange As String

On Error Resume Next
sCol = InputBox("Spalte?", "GotoColumn", "A")
sRange = sCol & (1 + ThisComponent.getCurrentSelection().getCellAddress.Row)

oView = ThisComponent.CurrentController
oCell = oView.ActiveSheet.getCellRangeByName(sRange)
oView.Select oCell
End Sub[/code]

Guten Tag, wie erstelle ich in einer Tabelle ein Makro, welches mit einer Tastenkombination wie z.B. ctrl/f zur Spalte f - aber in derselben Zeile geht. Entsprechend auch alle anderen Buchstaben wie ctrl/u nach Spalte u in derselben Zeile.

Vielen Dank
hapec

[color=#800000]
Originalposting von hapec28 » Mo, 28.06.10 1:58[gelöscht][/color]:
Hallo allerseits!
Ich habe eine Tabelle mit ca. 15 Spalten erstellt. Wie erstelle ich ein Makro, das mit einer bestimmten Tastaturkombination - z.B. ctrl/k - den Cursor zu der Spalte 'k' springen läßt - aber in derselben Zeile!! Entsprechend ctrl/r zur Spalte 'r'.
Vielen Dank.
hapec



[color=#800000]Moderation,4[/color]: Schön, dass Du Dich nun angemeldet hast; bitte Doppelpostings vermeiden; aussagekräftigen Titel gesetzt; verschoben in BASIC-Unterbereich