Anzeige
Archiv - Navigation
1700to1704
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Eingefügte Spalte minimieren - VBA

Eingefügte Spalte minimieren - VBA
15.07.2019 08:52:20
Emre
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Eingefügte Spalte minimieren - VBA
15.07.2019 09:09:37
Nepumuk
Hallo Emre,
so:
shZiel.Columns(19).Insert
shZiel.Columns(19).ColumnWidth = 0
Gruß
Nepumuk
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige