Hallo zusammen,
mit folgendem Code lasse ich meine Tabelle mit einer Vorlagendatei abgleichen und fehlende Spalten hinzufügen.
Set shVorlage = wbk_Vorlage.Sheets(1)
Set shZiel = wbk_dialog.Sheets(1)
For S = 52 To 19 Step -1
Set Zelle = shZiel.Rows(1).Find(what:=sh.Vorlage.Cells(1,S), lookat:0x1Whole)
If Zelle Is Nothing Then
shZiel.Columns(19).Insert
shZiel.Cells(1,19).Value = shVorlage.Cells(1,S).Value
Else
Zelle.EntireColumn.Cut
shZiel.Columns(19).Insert
End If
Next
Nun möchte ich, dass die eingefügten Spalten minimiert werden, sprich ColumnWidth = 0. Leider habe ich es nicht geschafft.
Vielen Dank im Voraus.
Grüße Emre