Steuerelemente

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Steuerelemente
von: Kerstin
Geschrieben am: 13.07.2002 - 23:17:23

Hallo an alle ,

wie kann ich einer Scrollbar oder einem Drehfeld mitteilen das wenn ich vorwärts oder rückwarts blättere dass dann in meinem Formular (4 Textfelder) die entsprechenden Werte aus der Excel Tabelle eingetregen werden?
Also rückwärts vorherige Datensatz (4 Spalten) oder vorwärts.

Schon mal Danke
Kerstin


nach oben   nach unten

Re: Steuerelemente
von: L.Vira
Geschrieben am: 14.07.2002 - 00:06:13

Nehmen wir an deine Daten stehen in Zeile 1 bis 100 jeweils
in den Spalten 1 bis 4
Spinbutton max = 100, min = 1

Private Sub SpinButton1_Change()
Textbox1 = Tabelle1.cells(spinbutton1,1)
Textbox2 = Tabelle1.cells(spinbutton1,2)
Textbox3 = Tabelle1.cells(spinbutton1,3)
Textbox4 = Tabelle1.cells(spinbutton1,4)
End Sub

Das ist das Prinzip, geht aber auch eleganter.


nach oben   nach unten

Re: Steuerelemente
von: Kerstin
Geschrieben am: 14.07.2002 - 00:32:59

Halllo L.Vira
aber da passiert nichts, hab ich auch schon so probiert.

Kerstin


nach oben   nach unten

Re: Steuerelemente
von: Hajo_Zi
Geschrieben am: 14.07.2002 - 07:00:29

Hallo Kerstin

dann löse es mit L.Vira Ihrem Ansatz so


Private Sub SpinButton1_SpinDown()
    If SpinButton1 < 1 Then
        MsgBox "Dies ist schon der erste Datensatz"
    Else
        TextBox1 = Worksheets("Tabelle1").Cells(SpinButton1, 1)
        TextBox2 = Worksheets("Tabelle1").Cells(SpinButton1, 2)
        TextBox3 = Worksheets("Tabelle1").Cells(SpinButton1, 3)
        TextBox4 = Worksheets("Tabelle1").Cells(SpinButton1, 4)
    End If
End Sub

Private Sub SpinButton1_SpinUp()
    TextBox1 = Worksheets("Tabelle1").Cells(SpinButton1, 1)
    TextBox2 = Worksheets("Tabelle1").Cells(SpinButton1, 2)
    TextBox3 = Worksheets("Tabelle1").Cells(SpinButton1, 3)
    TextBox4 = Worksheets("Tabelle1").Cells(SpinButton1, 4)
End Sub

Gruß Hajo


nach oben   nach unten

Re: Steuerelemente
von: L.Vira
Geschrieben am: 14.07.2002 - 16:23:55

Hab vergessen zu schreiben, dass das die Codenamen der tabellen sind, sonst eben so:

Textbox1 = Sheets("Tabelle1").cells(spinbutton1,1).Value

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Steuerelemente"