Userform in VBA für EXCEL

Computer: Software & Programmierung Visual Basic
1

Hi ich möchte im Excel ein userform anlegen habe nun aber ein paar probleme. Ich hoffe mir kann dabei jemand helfen.

  1. Ich habe ein paar Eingabefelder eingebaut und möchte den Eingegebenen Text in Excel übernehmen mit welchem Befehl mache ich das??

  2. Wie Programiere ich einen Abbrechen Button? (Der das komplette Userform auf Null setzt und aussteigt aus dem userform)

  3. Meine Eingabe ist sehr Umfangreich und ich brauche eine Scrollleiste an der seite wie bekomme ich die her?

4 last but not least wie schaffe ich es das mein Userform nach Betätigung des Übernehmen Buttons die 2. oder 3. Tabelle von meinem Excel workbook in den Fordergrund holt?

Danke für die Hilfe schon mal im Vorraus

2

Zu 2
Hallo Rantanplan.

  1. Wie Programiere ich einen Abbrechen Button? (Der das
    komplette Userform auf Null setzt und aussteigt aus dem
    userform)

Im Click-Ereignis des Buttons schreibst Du einfach folgenden Code:

Unload Me

Viele Grüße
Carsten

3

Zu 1
Hallo Rantanplan.

  1. Ich habe ein paar Eingabefelder eingebaut und möchte den
    Eingegebenen Text in Excel übernehmen mit welchem Befehl mache
    ich das??

Im Click-Ereignis des Übernehmen-Buttons kannst Du folgendes Code-Prinzip verwenden:

TabelleX.Cells(1, 1) = TextBox1.Text

Viele Grüße
Carsten

4

Zu 4
Hallo Rantanplan.

4 last but not least wie schaffe ich es das mein Userform nach
Betätigung des Übernehmen Buttons die 2. oder 3. Tabelle von
meinem Excel workbook in den Fordergrund holt?

Im QueryClose-Ereignis des UserForms schreibst Du einfach folgenden Code:

Tabelle2.Select

Viele Grüße
Carsten

5

Zu 3
Hallo Rantanplan.

  1. Meine Eingabe ist sehr Umfangreich und ich brauche eine
    Scrollleiste an der seite wie bekomme ich die her?

Stelle die ScrollBars-Eigenschaft des UserForms auf einen Wert ungleich 0 ein.

Im Scroll-Ereignis des UserForms kannst Du dann folgendes Code-Prinzip verwenden:

Select Case ActionY
 Case fmScrollActionLineDown
 TextBox1.Move TextBox1.Left, TextBox1.Top - 3
 Case fmScrollActionLineUp
 TextBox1.Move TextBox1.Left, TextBox1.Top + 3
End Select

Viele Grüße
Carsten

6

Kaffee-Zeit jetzt (o.w.T.)

Hi

7

Super Vielen Dank!!! eine Frage hab ich allerdings noch wo schreib ich diesen Text rein?? Für alles andere bin ich dir schon einmal seeeehhhhr dankbar :smile:

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

8

Hallo Rantanplan.

Select Case ActionY
 Case fmScrollActionLineDown
 TextBox1.Move TextBox1.Left, TextBox1.Top - 3
 Case fmScrollActionLineUp
 TextBox1.Move TextBox1.Left, TextBox1.Top + 3
End Select

Diesen Code mußt Du in das Scroll-Ereignis des UserForms reinschreiben.

Viele Grüße
Carsten

Super Vielen Dank!!! eine Frage hab ich allerdings noch wo
schreib ich diesen Text rein?? Für alles andere bin ich dir
schon einmal seeeehhhhr dankbar :smile:

9

Hi du halt mich bitte nicht für doof aber wo find ich das Scrolereignis?

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

10

Hi du halt mich bitte nicht für doof aber wo find ich das
Scrolereignis?

Hi Bastian,

im Codebereich der Userform, in der Mitte die Userform oder das Steuelement auf der Userform auswählen, dann rechts „Scroll“ auswählen, es erscheint:

Private Sub UserForm_Scroll(ByVal ActionX As Long, ByVal ActionY As Long, ByVal RequestDx As Single, ByVal RequestDy As Single, ByVal ActualDx As MSForms.ReturnSingle, ByVal ActualDy As MSForms.ReturnSingle)

End Sub

Gruß
Reinhard

11

Hallo Rantanplan.

Ich schick’ Dir mal eine e-Mail mit einem Bild.

Viele Grüße
Carsten

12

Hi ich habe jetzt einmal gebastelt und das ganze sieht jetzt so aus aber es funktioniert leider nicht könnt ihr nochmal kurz drüber schaun?

Private Sub UserForm_Scroll(ByVal ActionX As Long, ByVal ActionY As Long, ByVal RequestDx As Single, ByVal RequestDy As Single, ByVal ActualDx As MSForms.ReturnSingle, ByVal ActualDy As MSForms.ReturnSingle)

Select Case ActionY Case fmScrollActionLineDown TextBox1.Move TextBox1.Left, TextBox1.Top - 3 Case fmScrollActionLineUp TextBox1.Move TextBox1.Left, TextBox1.Top + 3End Select

End Sub

Mein userform heisst allerdings privat

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

13

Hi ich habe jetzt einmal gebastelt und das ganze sieht jetzt
so aus aber es funktioniert leider nicht könnt ihr nochmal
kurz drüber schaun?
Mein userform heisst allerdings privat

Hi Bastian,
benutze bitte den pre-Tag, dann sieht das so aus:

Option Explicit

Private Sub privat\_Scroll(ByVal ActionX As Long, ByVal ActionY As Long, ByVal RequestDx As Single, ByVal RequestDy As Single, ByVal ActualDx As MSForms.ReturnSingle, ByVal ActualDy As MSForms.ReturnSingle)
Select Case ActionY
 Case fmScrollActionLineDown
 TextBox1.Move TextBox1.Left, TextBox1.Top - 3
 Case fmScrollActionLineUp
 TextBox1.Move TextBox1.Left, TextBox1.Top + 3
End Select
End Sub

Gruß
Reinhard