Calc: Sprung zu einer Spalte in gleicher Zeile

[hapec]

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


Originalposting von hapec28 » Mo, 28.06.10 1:58[gelöscht]:
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



Moderation,4: Schön, dass Du Dich nun angemeldet hast; bitte Doppelpostings vermeiden; aussagekräftigen Titel gesetzt; verschoben in BASIC-Unterbereich

[bst]

Morgen,

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

cu, Bernd
--

Code: Alles auswählen

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