title image


Smiley Ergänzung zur 2. Frage
Hallo Tassos,



such Dir im VBA-Editor die Userform_Initialisize - Procedure und

nimm nachfolgenden Code (den Offset bitte wieder ändern):



Private Sub UserForm_Initialize()

Worksheets("Tabelle1").Range("A65536").End(xlUp).Activate

With UserForm1

.TextBox1.Text = ActiveCell.Offset(0, 4).Value

.TextBox2.Text = ActiveCell.Offset(0, 6).Value

End With

End Sub



Damit werden die Textboxen (ebenfalls bitte wieder anpassen) gefüllt.

Damit das Ganze wieder angezeigt wird, brauchst Du nur noch den

Aufruf z.B. aus dem Arbeitsblatt heraus:



Private Sub CommandButton1_Click()

UserForm1.Show

End Sub



damit müsste es doch laufen :)





viele Grüße

Herby







geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: