Übernahme in Tabelle 2
20.03.2006 17:40:40
Volker
leider muß ich euch nochmal belästigen.
Ich möchte aus einer UF welche mehrere TextBoxen enthält Daten in ein weiteres
Tabellenblatt in der gleichen Arbeitsmappe eingeben. Die Daten sollen per CommandButton aus der UF an die Tabelle übergeben werden.
Ich habe diesen Code in ein Modul eingegeben. Allerdings meckert Excel:
Objektvariable oder with Blockvariable nicht festgelegt
Sub test()
Dim rng As Range
rng = Sheets("Bandprobe").Range("A65536").End(xlUp).Offset(1, 0)
With rng
.Value = UserForm2.TextBox1.Text
.Offset(0, 1) = UserForm2.TextBox2.Text
.Offset(0, 2) = UserForm2.TextBox3.Text
.Offset(0, 3) = UserForm2.TextBox4.Text
.Offset(0, 4) = UserForm2.TextBox5.Text
.Offset(0, 5) = UserForm2.TextBox6.Text
.Offset(0, 6) = UserForm2.TextBox7.Text
End With
End Sub
Was ist da los?
Dank Gruß Volker
Anzeige