Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
Screenshot zu CommandButton	CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema OptionButton
Screenshot zu OptionButton	OptionButton-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema ScrollBar
Screenshot zu ScrollBar	ScrollBar-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema SpinButton
Screenshot zu SpinButton	SpinButton-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema TextBox
Screenshot zu TextBox	TextBox-Seite mit Beispielarbeitsmappe aufrufen

Nur über Button inTabelle bewegen

• Nur über Button inTabelle bewegen von christoph vom 07.09.2004 10:37:46
• AW: Nur über Button inTabelle bewegen - von Dieter.K am 07.09.2004 11:18:26
  • AW: Nur über Button inTabelle bewegen - von christoph am 07.09.2004 11:45:29
    • AW: Nur über Button inTabelle bewegen - von Dieter.K am 07.09.2004 13:25:10
      • AW: Nur über Button inTabelle bewegen - von Dieter.K am 07.09.2004 13:30:08
    • AW: Nur über Button inTabelle bewegen - von Dieter.K am 07.09.2004 14:18:16
    • Danke - von christoph am 07.09.2004 15:47:29

Betrifft: Nur über Button inTabelle bewegen von: christoph
Geschrieben am: 07.09.2004 10:37:46

Hallo.
Habe in einer Tabelle 2 commandbuttons in 3 fixierten Zeilen angebracht. über diese Buttons kann mann ineerhalb dieser Tabelle springen. (siehe Code).
Ich möchte es jedoch so modifizieren, das ein Scrollen nicht möglich ist, sondern man sich nur mittels der Commandbuttons in dieser Tabelle bewegen kann.
Wie bekomme ich das hin?
Wäre für ´n code Dankbar, da ich VBA-Anfänger bin.

Private Sub CommandButton1_Click()
Rows("38:112").Hidden = True     'Zeilen ausblenden
Rows("4:38").Hidden = False      'Zeilen einblenden
Range("A5").Select
End Sub

Sub CommandButton2_Click()
Rows("38:112").Hidden = False 'Zeilen einblenden
Rows("4:38").Hidden = True 'Zeilen ausblenden
Range("A39").Select
End Sub

Im Voraus Danke für Hilfe
Christoph


Betrifft: AW: Nur über Button inTabelle bewegen von: Dieter.K
Geschrieben am: 07.09.2004 11:18:26

Hallo Christoph,

blende doch einfach die Bildlaufleisten aus. Dann ist scrollen nur noch mit der Maus möglich. Vielleicht hilft das ja schon weiter

.DisplayHorizontalScrollBar = False "blendet horizontale Leiste aus"
.DisplayVerticalScrollBar = False "blendet vertikale Leiste aus"
.DisplayWorkbookTabs = False "blendet Register aus"

Gruß
Dieter.K




Betrifft: AW: Nur über Button inTabelle bewegen von: christoph
Geschrieben am: 07.09.2004 11:45:29


würde mir zu Not helfen. Besser wäre es aber wenn das Scrollen mit der Maus auch verhindert werden kann.


Danke christoph




Betrifft: AW: Nur über Button inTabelle bewegen von: Dieter.K
Geschrieben am: 07.09.2004 13:25:10

Hallo Christoph,

so müßte es funktionieren (zumindest in Excel'97 und 2000 läuft es bei mir):

"Diese Arbeitsmappe"

Private Sub Workbook_Open()
Worksheets("Tabelle1").ScrollArea = "A1:A1"  
End Sub

Private Sub Workbook_BeforeClose(Cancle As Boolean)
On Error GoTo ERRORHANDLER
Application.OnKey "{right}"
Application.OnKey "{left}"
Application.OnKey "{up}"
Application.OnKey "{down}"
ERRORHANDLER:
Exit Sub
End Sub

"Standardmodul"
Sub Test()
With ActiveWindow
Application.OnKey "{right}", ""
Application.OnKey "{left}", ""
Application.OnKey "{up}", ""
Application.OnKey "{down}", ""
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
End Sub


Somit werden gleichzeitig noch die "Pfeiltasten" deaktiviert!

Eventuell mußt Du noch den Namen Deines Tabellenblattes anpassen.


Gruß
Dieter.K




Betrifft: AW: Nur über Button inTabelle bewegen von: Dieter.K
Geschrieben am: 07.09.2004 13:30:08

Hallo Christoph,

was vergessen:

Private Sub Workbook_Open()
Worksheets("Tabelle1").ScrollArea = "A1:K36"  "hier mußt Du Deinen sichtbaren Bildschirm anpassen"
End Sub

Gruß
Dieter.K




Betrifft: AW: Nur über Button inTabelle bewegen von: Dieter.K
Geschrieben am: 07.09.2004 14:18:16

Hallo Christoph,

hier ein Beispiel:

https://www.herber.de/bbs/user/10626.xls


Gruß
Dieter.K




Betrifft: Danke von: christoph
Geschrieben am: 07.09.2004 15:47:29

Danke für die Tips.
Werde jetzt mal gucken welche variante mir am besten gefällt.

Gruss

Christoph

Beiträge aus den Excel-Beispielen zum Thema "Nur über Button inTabelle bewegen"