|
Guten Tag zusammen,
ich habe mir eine Maske mit VBA erstellt welche mittels des Codes die Werte in die Tabelle überträgt
With Worksheets("Tabelle")
.Range("A" & .Cells(.Rows.Count, "A").End(xlUp).Offset(1).Row) = TextBox1.Value
.Range("B" & .Cells(.Rows.Count, "B").End(xlUp).Offset(1).Row) = TextBox2.Value
.Range("C" & .Cells(.Rows.Count, "C").End(xlUp).Offset(1).Row) = TextBox3.Value
.Range("D" & .Cells(.Rows.Count, "D").End(xlUp).Offset(1).Row) = TextBox4.Text
.Range("E" & .Cells(.Rows.Count, "E").End(xlUp).Offset(1).Row) = TextBox5.Value
.Range("F" & .Cells(.Rows.Count, "F").End(xlUp).Offset(1).Row) = TextBox6.Value
.Range("G" & .Cells(.Rows.Count, "G").End(xlUp).Offset(1).Row) = TextBox7.Value
.Range("H" & .Cells(.Rows.Count, "H").End(xlUp).Offset(1).Row) = TextBox8.Value
.Range("I" & .Cells(.Rows.Count, "I").End(xlUp).Offset(1).Row) = TextBox9.Value
.Range("J" & .Cells(.Rows.Count, "J").End(xlUp).Offset(1).Row) = TextBox10.Value
.Range("K" & .Cells(.Rows.Count, "K").End(xlUp).Offset(1).Row) = TextBox11.Value
.Range("L" & .Cells(.Rows.Count, "L").End(xlUp).Offset(1).Row) = TextBox12.Value
.Range("M" & .Cells(.Rows.Count, "M").End(xlUp).Offset(1).Row) = TextBox13.Value
.Range("N" & .Cells(.Rows.Count, "N").End(xlUp).Offset(1).Row) = TextBox14.Value
.Range("O" & .Cells(.Rows.Count, "O").End(xlUp).Offset(1).Row) = TextBox15.Value
.Range("P" & .Cells(.Rows.Count, "P").End(xlUp).Offset(1).Row) = ComboBox1.Value
.Range("Q" & .Cells(.Rows.Count, "Q").End(xlUp).Offset(1).Row) = ComboBox3.Value
.Range("R" & .Cells(.Rows.Count, "R").End(xlUp).Offset(1).Row) = TextBox16.Value
.Range("S" & .Cells(.Rows.Count, "S").End(xlUp).Offset(1).Row) = TextBox17.Value
End With
Nun möchte ich aber alle 14 Zeilen eine Summe für eine bestimmte Spalte ziehen.
Dadurch, dass die Einträge aber fortlaufend eingetragen werden kann ich nichts einfach so in die Tabelle manuell eintragen da meine Einträge überschrieben werden.
Vielleicht kennt ja hierfür jemand einen Workaround und kann mir bei meinem Problem helfen.
Vielen Dank im Voraus :]
|