Ich habe, wie im Betreff angekündigt, eine Frage betreffs des Übertrags von TextBoxen in eine Tabelle.
(HG: In den letzten 3 Jahren habe ich mich quasi nicht mehr mit Excel beschäftigt...was sich jetzt rächt.)
Bisher habe ich es immer auf diese Weise gelöst:
With ActiveSheet
.Cells(.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).Activate
ActiveCell = TextBox1
ActiveCell.Offset(rowoffset:=0, columnoffset:=1).Activate
ActiveCell = TextBox2
End With
was ja auch grundsätzlich immer funktioniert - das Arbeitsblatt ist ohnehin aktiviert und von daher stellte das nie ein Problem dar.
Jetzt ist aber so, dass ich keine 10 TextBoxen mehr habe - sondern 200.
Und die sollen alle nach diesem Schema eingetragen werden...
Bedeutet:
Jeweils 5 gehören zusammen.
Also:
Es ist eine UF mit 200 TextBoxen, angeordnet in Zeilen zu je 5 TextBoxen.
In der Tabelle soll es auch genau so übertragen werden - 5 Zellen nebeneinander, nächste Zeile und nächsten 5 direkt unterhalb der ersten 5.
Mit "meiner" Methode würde ich das so machen:
With ActiveSheet
.Cells(.Cells(Rows.Count, 2).End(xlUp).Row + 1, 2).Activate
ActiveCell = TextBox3
ActiveCell.Offset(rowoffset:=0, columnoffset:=1).Activate
ActiveCell = TextBox4
ActiveCell.Offset(rowoffset:=0, columnoffset:=1).Activate
ActiveCell = TextBox5
ActiveCell.Offset(rowoffset:=0, columnoffset:=1).Activate
ActiveCell = TextBox6
ActiveCell.Offset(rowoffset:=0, columnoffset:=1).Activate
ActiveCell = TextBox7
ActiveCell.Offset(rowoffset:=1, columnoffset:=-4).Activate
ActiveCell = TextBox8
ActiveCell.Offset(rowoffset:=0, columnoffset:=1).Activate
ActiveCell = TextBox9
ActiveCell.Offset(rowoffset:=0, columnoffset:=1).Activate
ActiveCell = TextBox10
ActiveCell.Offset(rowoffset:=0, columnoffset:=1).Activate
ActiveCell = TextBox11
ActiveCell.Offset(rowoffset:=0, columnoffset:=1).Activate
ActiveCell = TextBox12
End With
bis ich die TextBox200 erreicht habe...
Aber das erscheint mir ein gewaltiger Quatsch.
Mir will aber ums verrecken nichts einfallen wie ich das anders machen könnte...
Hat jemand eine Idee?