ich habe eine Userform mit der ich
ein Zeile in Tabelle 1 mit Daten fülle.
Funktioniert einwandfrei. Nun habe ich
aber 50 Tabellenblätter möchte diese
aber identisch wie Tabelle 1 auf einmal
füllen. Wie mache ich dies am einfachsten ?
Private Sub cmdOK_Click()
Sheets("tabelle1").Activate
Range("q3").Select
With frmdaten
ActiveCell.Value = .TextBox5.Value
ActiveCell.Offset(0, -1).Value = .TextBox4.Value
ActiveCell.Offset(0, -2).Value = .TextBox3.Value
ActiveCell.Offset(0, -3).Value = .TextBox2.Value
ActiveCell.Offset(0, -4).Value = .TextBox1.Value
End With
End sub