Zeilen zwischen zwei listObjekts verschieben
21.07.2019 08:45:52
Andreas
Ich habe leider ein Problem, das mich komplett überfordert, hab nur sehr wenig Ahnung vom Programmieren. Ich möchte Daten möglichst effizient zwischen zwei Intelligenten Tabellen (iTabellen / listObjekt) hin und her schieben. Aus der Tabelle iTabDaten auf dem Tabellenblatt Daten sollen die Datenzeilen in die Tabelle iTabBearbeiten auf das Tabellenblatt "Zeitraum" verschoben/Ausgeschnitten werden, wenn der Los Knopf gedrückt wird.
Aber nur die Datenzeilen, die innerhalb des in iTabBearbeiten angegebenen Zeitraumes liegen oder kein Bis Datum haben und somit noch offen sind. In iTabDaten stehen die von-bis Datumsangaben in Spalte D und E. Ich habe gelesen, dass man die Daten zuerst in ein Datenfeld schreiben sollte und dann auf einmal in die Zieltabelle Kopieren sonnst dauert das ganze viel länger, aber da weiß ich auch nicht wie ich das anstelle. Das ganze soll eine art bearbeiten Maske sein. Die dann später rechts ausserhalb der Tabelle alle möglichen Hilfsmittel bekommt (Bedingetformatierungen ,Formeln usw.) bekommt die aber nicht im "iTabDaten" sein sollen.
Ich werde da wohl um ein Makro nicht herumkommen. Hab es zwar versucht und mir alles Mögliche über die listObjekt im vba durchgelesen bin aber Gradios daran gescheitert. Kann mir da bitte jemand helfen bzw. wenn das in Excel zu aufwändig ist oder aus irgendeinem Grund nicht geht dann sagt es mir bitte.
Sub DatenBearbeiten()
Dim Von As String
Dim Bis As String
Dim wsZeitraum As Worksheet
Dim wsDaten As Worksheet
Dim iTabBearbeiten As ListObject
Dim iTabDaten As ListObject
Dim Datenfeld As Variant 'Zwischenspeicher
Set wsZeitraum = ThisWorkbook.Worksheets("Zeitraum")
Set wsDaten = ThisWorkbook.Worksheets("Daten")
Set iTabBearbeiten = wsZeitraum.ListObjects("iTabBearbeiten")
Set iTabDaten = wsDaten.ListObjects("iTabDaten")
Von = wsZeitraum.OLEObjects("TextBox1").Object.Text 'Von
Bis = wsZeitraum.OLEObjects("TextBox2").Object.Text 'Bis
' Aber wie weiter
End Sub
Andreas