Danke F3K Total.
Ich weiß nicht so recht wie mir das helfen kann / soll.
Button 1 führt
Sub Sorte_umschalten (event) aus
Button 2 führt
Sub Eingabe_Datenerfassung (event) aus
Bei beiden Routinen wird zu Beginn
S_alle_einblenden ausgeführt so das sichergestellt ist, dass immer von der Ausgangslage die jeweils gewünschten Spalten ausgeblendet werden.
Mit
S_zelle_springen möchte ich in die Zelle
D3 springen was auch funktioniert nur bringt das nix wenn ich zu weit nach unten oder rechts gescrollt bin. Das würde ich gern noch so erweitern, dass immer mit ganz nach oben und nach links gescrollt wird so das die Zelle
D3 auch immer zu sehen ist.
Beide Button sind bei Fokussieren bei Klick auf
NEIN und Umschalten auch
JA gesetzt.
Und mein Ziel wäre wie gesagt das wenn ich Button 1 klicke das Button 2 immer auf Ausgangszustand gesetzt wird und umgekehrt bei Button 1 wenn ich Button 2 klicke.
Code: Alles auswählen
REM ***** BASIC *****
Sub Sorte_umschalten (event)
rem Sub Routine aufrufen
S_alle_einblenden 'erst einmal alles wieder einblenden vor geziehltem ausblenden
dim arows
arows() = array(6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23) 'nur relavante Spalten anzeigen
oSheet = thisComponent.sheets.getbyname("Daten")
ocolumns = oSheet.Columns
ocmd = event.source.model
if ocmd.state = 1 then
ocmd.label = "Alles anzeigen"
for i = 0 to ubound(arows)
ocolumns(arows(i)).isVisible = false
next i
else
ocmd.label = "Details reduzieren"
for i = 0 to ubound(arows)
ocolumns(arows(i)).isVisible = true
next i
end if
rem Sub Routine aufrufen
S_zelle_springen 'in Zelle D3 springen
End Sub
Sub Eingabe_Datenerfassung (event)
rem Sub Routine aufrufen
S_alle_einblenden 'erst einmal alles wieder einblenden vor geziehltem ausblenden
dim arows
arows() = array(1,2,4,8,9,12,13,15,18,19,20,21,22,23,24,25,26,27,31) 'nur Datenspalten zur Eingabe anzeigen
oSheet = thisComponent.sheets.getbyname("Daten")
ocolumns = oSheet.Columns
ocmd = event.source.model
if ocmd.state = 1 then
ocmd.label = "Alles anzeigen"
for i = 0 to ubound(arows)
ocolumns(arows(i)).isVisible = false
next i
else
ocmd.label = "Datenerfassung"
for i = 0 to ubound(arows)
ocolumns(arows(i)).isVisible = true
next i
end if
rem Sub Routine aufrufen
S_zelle_springen 'in Zelle D3 springen für Datenerfassung
End Sub
Sub S_alle_einblenden
oSheet = thisComponent.sheets.getbyname("Daten")
ocolumns = oSheet.Columns
ocolumns.IsVisible = true
End Sub
sub S_zelle_springen
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$D$3"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
end sub
