Herbers Excel/VBA-Archiv
Hinzufügen Zeilen bei "Resize(Dic.Count)" | Herbers Excel-Forum
- Hinzufügen Zeilen bei "Resize(Dic.Count)" von pbaer007 vom 16.08.2012 11:06:38
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 With
und ein Beispiel hab ich hochgeladen:https://www.herber.de/bbs/user/81450.xlsx
Wobei die Spalte A im Original auf einem anderem Blatt untergebracht ist.
Und nun soll bevor der nächste Datensatz (gelb markiert) in die Liste eingetragen wird
unter die letzte bereits bestehenden Eintragung der Tabelle (Spalte D)
eine Zeile eingefügt werden.
Über ein "kleine" Hilfestellung würde ich mich sehr freuen.
Viele Grüße
Gert
