HERBERS Excel-Forum - die Beispiele

Thema: UserForm-TextBox-Werte über ScrollBar einlesen

Home

Gruppe

Dialog

Problem

Wie kann ich über eine ScrollBar Tabellenblattwerte in UserFormTextBoxes einlesen?

Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.
ClassModule: frmDatensatz

Private Sub cmdWeiter_Click()
   Unload Me
End Sub

Private Sub scrDatensatz_Change()
   Dim iCounter As Integer
   For iCounter = 1 To 4
      Controls("TextBox" & iCounter).Text = _
         Cells(scrDatensatz.Value, iCounter)
   Next iCounter
End Sub

Private Sub UserForm_Initialize()
   Dim iCounter As Integer
   For iCounter = 1 To 4
      Controls("TextBox" & iCounter).Text = _
         Cells(2, iCounter)
   Next iCounter
End Sub

StandardModule: basMain

Sub CallForm()
   frmDatensatz.Show
End Sub

Beiträge aus dem Excel-Forum zu den Themen Dialog und ScrollBar

xlDialogInsertHyperlink.show Bildschirmfenster mit Scrollbar verschieben
Arbeitmappen über Dialogfeld zusammen fassen 5.0 Dialog
Speichern unter Dialog in Word aufrufen inkl. Pfad Druckerdialog
Dateityp im "Speichern unter"-Dialog vorgeben Makro stoppen, wenn Excel-Dialog?
xlDialogOpen anpassen Scrollbars positionieren
Klick in definierten Rangebereich startet Dialog xlDialogOpen bei Excel 2007 funzt nicht
FileDialog inkl. Anklicken von Desktop, Eigene D. Grösse Dialogfenster der InputBox
Dialogfeld unterdrücken Dialog "permanently delete sheets" unterbinden
Format-Dialog funktioniert nicht mehr Scrollbars je Sheet aktivieren
Dialog "Verknüpfung aktualisieren" Ordnerdialog und Dateidialog
Ordnerdialog und dateidialog Ordnerdialog und Dateidialog
Filedialog Multiple Scrollbars in UserForm
Herber/Beispiele/Dialoge/Checkbox/137601 Bilder bei Click im Dialogfeld
Suchdialog über VBA aufrufen mit Wert aus Combobox Dialog öffnen
Diagramm als Grafik mit Speicherdialog exportieren Dialogfenster zum kopieren
FileDialog-Objekt unter O2k Abrage von Dialogfeldargumenten
Datei Auswählen Dialog (Application.FileDialog) xlDialogOpen/FindFile ohne Open
Dialogfeld zum pdf öffnen Dialogfeld schließen, wenn Benutzer nichts eingibt
Problem mit ApplicationDialogs Das Dialogfeld "sortieren" aufrufen?
Scrollbar in Userform Keine Dialogbox bei SaveAs
Dialogbox Textfeld Scrollbar unsichtbar
Bei xlDialogSaveAs Dateinamen vorgeben Blattauswahldialog...
speichern unter dialogbox problem Speicherndialog bei BeforeClose unterbinden
Dialogfenster "Aktualisierung der Verknüpfungen&qu speichern unter dialogbox einbinden
Dialogfeld Beschriftungsbereiche Problem nach 'application.dialogs(xldialogsendmail