Microsoft Excel

Herbers Excel/VBA-Archiv

Hinzufügen Zeilen bei "Resize(Dic.Count)" | Herbers Excel-Forum


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

Beiträge aus den Excel-Beispielen zum Thema "Hinzufügen Zeilen bei "Resize(Dic.Count)""