Userform auf Tabelle1 beziehen

Computer: Software & Programmierung Office Software
1

Hallo zusammen,

mal wieder hab ich ein Problem.

Ich habe eine Userform (Userform1) auf der habe ich einen Button (CommandButton1) und wenn ich auf dem Klicke soll etwas mit den Textboxen in Tabellenblatt: Tabelle1 passieren. Folgender Code

Private Sub CommandButton1\_Click()
TextBox1.Left = Columns("A:A").Left + 5
TextBox2.Left = Columns("B:B").Left + 5
TextBox3.Left = Columns("C:C").Left + 5
TextBox4.Left = Columns("D:smiley:").Left + 5
TextBox1.Width = Columns("A:A").Width - 7
TextBox2.Width = Columns("B:B").Width - 7
TextBox3.Width = Columns("C:C").Width - 7
TextBox4.Width = Columns("D:smiley:").Width - 7
End Sub

aber dann kommt Laufzeitfehler 424. Ich weiß dass ich direkt nach

CommandButton1\_Click()

bzw. darunter noch was schreiben muss, aber was?

Grüße
dnbma

2

Ich habe eine Userform (Userform1) auf der habe ich einen
Button (CommandButton1) und wenn ich auf dem Klicke soll etwas
mit den Textboxen in Tabellenblatt: Tabelle1 passieren.

hallo dnbma,

Private Sub CommandButton1\_Click()
With Worksheets("Tabelle1")
 .TextBox1.Left = .Columns("A:A").Left + 5
 .TextBox2.Left = .Columns("B:B").Left + 5
 .TextBox3.Left = .Columns("C:C").Left + 5
 .TextBox4.Left = .Columns("D:smiley:").Left + 5
 .TextBox1.Width = .Columns("A:A").Width - 7
 .TextBox2.Width = .Columns("B:B").Width - 7
 .TextBox3.Width = .Columns("C:C").Width - 7
 .TextBox4.Width = .Columns("D:smiley:").Width - 7
End With
End Sub

Gruß
Reinhard

3

Super Danke!!!

Genau so wollte ich es.

Kann man dass auch so machen, dass es sich auf die Tabelle im Hintergrund bzw das letzte aktive Tabellenblatt bezieht das wäre noch besser!!!

Grüße
dnbma

4

Kann man dass auch so machen, dass es sich auf die Tabelle im
Hintergrund bzw das letzte aktive Tabellenblatt bezieht das
wäre noch besser!!!

Hallo dnbma,

With ActiveSheet

Gruß
Reinhard