Array
Christian
ich habe da ein kleines Problem mit einem array. Folgendes: Ich habe eine Datei mit verschiedenlangen Tabelle ( ("853", "856" haben 90 Zeilen , die andere hat nur 50 Zeilen)
Das Folgende Array löscht die Daten aus diesen Tabellen.
Die Daten aus der unterste Zeile 90 bzw. 50 sollen aber nicht gelöscht werden.
kann mir jemand helfen und das mit in diesem Array verhaften ?
Sub DatenTransferieren(strZeitintervall$)
Dim wksStorno As Worksheet, wksZiel As Worksheet
Dim lngZeileStorno&, lngZeileZiel&
Dim HFL_Abt$, StartDatum As Date, EndDatum As Date
Dim arrTabellen, strTabName, i%
Set wksStorno = ActiveWorkbook.Worksheets("Stornos Gesamt")
arrTabellen = Array("853", "856", "Sonstige") 'Liste der Zieltabellen lang
'Altdaten in Zieltabellen löschen
For Each strTabName In arrTabellen
Set wksZiel = ActiveWorkbook.Worksheets(strTabName)
With wksZiel
.Range(.Cells(7, 2), .Cells(89, 6)).ClearContents
.Range(.Cells(7, 8), .Cells(89, 9)).ClearContents
End With
Next