Mein Problem ist folgendes:
Ich möchte auf 2 Tabellen dieselben Informationen. (Eine Tabelle dient als Archiv). Für eine Tabelle benutze ich folgenden Code:
rivate Sub CommandButton1_Click()
Worksheets("Tabelle1").Select
Columns("A:A").Select
If Cells.Find(What:=Me.cbonuméromodification.Value, After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False).Activate Then
ActiveCell.Select
Selection.EntireRow.Insert
ActiveCell.Offset(0, 0).Value = cbonuméromodification
ActiveCell.Offset(0, 1).Value = TextBox1 'dés qu'on click sur ok,les valeurs s'affichent
ActiveCell.Offset(0, 2).Value = TextBox2 'dans les bonnes celulles
ActiveCell.Offset(0, 3).Value = TextBox3
ActiveCell.Offset(0, 4).Value = TextBox15
ActiveCell.Offset(0, 5).Value = TextBox5
ActiveCell.Offset(0, 6).Value = TextBox17
ActiveCell.Offset(0, 7).Value = TextBox10
ActiveCell.Offset(0, 8).Value = TextBox11
ActiveCell.Offset(0, 9).Value = TextBox12
ActiveCell.Offset(0, 10).Value = TextBox13
TextBox7.Value = Format(Date, "dd.mm.yy") ' affiche la date d'aujourd'hui si on click sur okay
ActiveCell.Offset(0, 13).Value = TextBox7
ActiveCell.Offset(0, 15).Value = "modifié par " & Application.UserName
End If
Unload Me
Modi.Show
End Sub
Wie kann ich mit derselben CommandButton auch die Tabelle2 ausfüllen?
Danke
Karin