Betrifft: Hinzufügen Zeilen bei "Resize(Dic.Count)"
von: pbaer007
Geschrieben am: 16.08.2012 11:06:38
Hallo VBA-Profis,
ich habe ein Macro, welches eine Liste auf doppelte Einträge durchsucht und
dann die bereinigte Fassung auf ein 2. Tabellenblatt schreibt. Klappt auch soweit.
Meine Frage:
Wie, (wenn möglich) muss ich den Code ergänzen,
wenn zuerste eine Zeile in das aktuelle Blatt eingefügt wird,
bevor der neue Eintrag in die dann neu entstandene Zeile geschrieben wird.
Es werden dann noch SumIf- Formeln je Datensatz eingefügt
und die Tabelle hat eine Summenformel für Spalte I und folgende,
welche "mitwachsen soll".
Hier der relevante Teil des Codes:
With ActiveWorkbook.Sheets(varWSh_Desti) Range("D12").Resize(Dic.Count) = Application.Transpose(Dic.keys) End Withund ein Beispiel hab ich hochgeladen: