Hallo zusammen,
ich möchte gern Daten aus einer Standardtabelle in eine intelligente Tabelle schreiben, dabei habe ich folgende Herausforderung.
In der intelligenten Tabelle können einzelne Zeilen zwischendrin mal leer sein, da der Inhalt durch einen Mitarbeiter entfernt wurde. Beim Übertrag aus der Standardtabelle möchte ich gern diese Zeilen als erstes füllen bevor weitere Zeilen an die intelligente Tabelle angehangen werden.
Mein aktuelles Problem besteht darin die leeren Zeilen zwischendrin zu beschreiben, zudem bestimmt wird mir nicht bei jedem Lauf die letzte Zeile der intelligenten Tabelle bestimmt.
Wer kann mir bei diesem Thema weiterhelfen?
Sub Daten_in_intelligente_Tabelle_übertragen()
Dim i as Long
Dim ILV as Workbook, Datenbank as Workbook
Dim ILV_Batt as Worksheet, DB_Blatt as Worksheet
Dim NächteZeile as Integer
Set ILV = Workbooks("intelliente_Tabelle.xlsx")
Set ILV_Blatt = ILV.Worksheets("Datenbank")
Set Datenbank = Workbooks("Standard_Tabelle.xlsx")
Set DB_Blatt = Datenbank.Worksheets("Tabelle1")
letzteZeile_DB_Blatt = DB_Blatt.Cells(DB_Blatt.Rows.Count, 1).End(xlUp).Row
letzteZeile_ILV_Blatt = ILV_Blatt.Range("Datenbank").Row + ILV_Blatt.Range("Datenbank").Rows.Count - 1
NächsteZeile = letzteZeile_ILV_Blatt
With DB_Blatt
For i = 2 To letzteZeile_DB_Blatt
If .Cells(i, 13) > "" Then
Do
If ILV_Blatt.Cells(NächsteZeile + 1, 1) = "" Then
ILV_Blatt.Cells(NächsteZeile + 1, 1) = .Cells(i, 1) 'Name
Exit Do
End If
NächsteZeile = NächsteZeile + 1
Loop While NächsteZeile = letzteZeile_ILV_Blatt
DB_Blatt.Rows(i).ClearContents
End If
Next i
End With
End Sub