title image


Smiley Vielen dank mal...
Bei Frage 2 haben wir uns glaube ich falsch verstanden.



mit dem Makro möchte ich erreichen, das einige der Tetxtbosen in der Userform gefüllt(initialisiert) werden, wenn ich die Userform öffne.

Das öffnen der userform geschieht über klich auf einen Button in meiner Tabelle1.

Nun soll die letzte beschriebene Zeile in der Tabelle ermittelt werden,

Sheets("Tabelle1").Activate

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

das klappt mit dem Code auch, es wird Zelle A22 angesprungen.

Nun sollen in die soeben aufgemachte Userform in verschiedene Textboxen Werte aus dieser Zeile 22 geschrieben werden.

ich dachte das könnte ich einfach über solche befehle umsetzen:

.TextBox5.Value = ActiveCell.Offset(0, 4).Value

.TextBox7.Value = ActiveCell.Offset(0, 11).Value



aber das geht irgendiwie nicht...



Naja, vieleicht fällt dr ja nochwas dazu ein.

Aufjedenfall mal danke.



Gruß tassos





Sub Userform1Oeffen()

Set frm = UserForm1

Sheets("Tabelle1").Activate

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

With frm

.Show

.TextBox5.Value = ActiveCell.Offset(0, 4).Value

.TextBox7.Value = ActiveCell.Offset(0, 11).Value

End With

End Sub
Gruß Tassos

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: