ich sitze nun schon länger an dem Problem und konnte hierzu noch keine Lösung finden. Weder selbst noch durch Foren.
Mein Problem ist folgendes: Ich habe eine Maske erstellt in die ich Werte eintrage und diese in eine Tabelle übernommen werden. Dabei sollen diese Werte eine Zeile unter der bereits bestehenden Tabelle eingefügt werden, sowie die Formeln übernommen werden. Soweit so gut.
Das jeweilige Tabellenblatt nimmt die Werte an, fügt diese jedoch nicht unter der letzten Zeile hinzu. Es handelt sich um eine formatierte Tabelle und die eingegebenen Werte werden unter dieser eingefügt aber die formatierte Tabelle nicht erweitert.
Den Code welchen ich in VBA geschrieben habe lautet:
Dim last As Integer
last = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row + 1
'Dass die einzelnen Daten in die nächst freie Zeile in der ausgewählten Spalte eingetragen wird (Problem: Daten werden nicht in der Tabelle, sondern darunter eingetragen)
ActiveSheet.Cells(last, "B").Value = CDate(UserForm2.TextBox_Datum.Value)
ActiveSheet.Cells(last, "D").Value = (UserForm2.ListBox_Kostenstelle.Value)
ActiveSheet.Cells(last, "F").Value = (UserForm2.ListBox_Verbrauchsstoff.Value)
ActiveSheet.Cells(last, "J").Value = (UserForm2.TextBox_Verbrauch.Value)
'Dass die Formeln der Zelle oben drüber für die neue übernommen werden (Durch das Problem der Dateneinlese wie oben beschrieben, können die Formeln nicht übernommen werden)
ActiveSheet.Cells(last, "E").FormulaR1C1 = ActiveSheet.Cells(last - 1, "E").FormulaR1C1
ActiveSheet.Cells(last, "H").FormulaR1C1 = ActiveSheet.Cells(last - 1, "H").FormulaR1C1
ActiveSheet.Cells(last, "I").FormulaR1C1 = ActiveSheet.Cells(last - 1, "I").FormulaR1C1
ActiveSheet.Cells(last, "K").FormulaR1C1 = ActiveSheet.Cells(last - 1, "K").FormulaR1C1
Unload UserForm2
UserForm1.Show
Kann mir zufällig jemand sagen woran das Problem liegt? Liegt es an dem Code oder an Excel selbst mit der Tabelle?
Ich bedanke mich schon mal herzlich im Voraus!
Mit freundlichen Grüßen
Maximilian