Thema Datum  Von Nutzer Rating
Antwort
29.06.2021 10:09:08 Yunus
NotSolved
29.06.2021 10:29:08 Gast20835
****
NotSolved
29.06.2021 10:41:01 Gast47484
NotSolved
29.06.2021 11:06:21 Gast95571
NotSolved
29.06.2021 11:41:50 Gast28930
NotSolved
29.06.2021 12:14:44 Gast69589
NotSolved
29.06.2021 12:20:02 Gast85860
NotSolved
29.06.2021 12:38:28 Gast91806
*****
NotSolved
29.06.2021 16:01:26 Yunus
NotSolved
29.06.2021 16:46:06 Gast95382
NotSolved
Rot VBA - alle Spalten löschen außer
 29.06.2021 18:22:43 Gast89384
NotSolved

Ansicht des Beitrags:
Von:
Gast89384		 Datum:
29.06.2021 18:22:43		 Views:
669		 Rating:
     
Antwort:
  Ja
Thema:
VBA - alle Spalten löschen außer		 
Option Explicit

Sub RemoveColumns()
  
  Dim cell As Excel.Range
  Dim columnsToKeep As Variant
  
  columnsToKeep = Array("PRODUCT_ID", "PRODUCT", "CUSTOMER_ID", "DATE")
  
  'erste Zelle (links) in der Kopfzeile
  Set cell = Worksheets("Tabelle1").Range("A1")
  
  Do Until cell.Value = ""
    If IsError(Application.Match(cell.Value, columnsToKeep, 0)) Then
      Set cell = cell.Offset(0, 1)
      Call cell.Offset(0, -1).EntireColumn.Delete
    Else
      Set cell = cell.Offset(0, 1)
    End If
  Loop
  
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
29.06.2021 10:09:08 Yunus
NotSolved
29.06.2021 10:29:08 Gast20835
****
NotSolved
29.06.2021 10:41:01 Gast47484
NotSolved
29.06.2021 11:06:21 Gast95571
NotSolved
29.06.2021 11:41:50 Gast28930
NotSolved
29.06.2021 12:14:44 Gast69589
NotSolved
29.06.2021 12:20:02 Gast85860
NotSolved
29.06.2021 12:38:28 Gast91806
*****
NotSolved
29.06.2021 16:01:26 Yunus
NotSolved
29.06.2021 16:46:06 Gast95382
NotSolved
Rot VBA - alle Spalten löschen außer
 29.06.2021 18:22:43 Gast89384
NotSolved