Thema Datum  Von Nutzer Rating
Antwort
27.11.2022 08:56:47 Paul
NotSolved
Blau Spalten löschen
 27.11.2022 09:58:05 ralf_b
*****
NotSolved
27.11.2022 17:58:22 Flotter Feger
NotSolved
28.11.2022 19:21:13 Gast45091
NotSolved
28.11.2022 22:08:20 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
ralf_b		 Datum:
27.11.2022 09:58:05		 Views:
681		 Rating:
     
Antwort:
  Ja
Thema:
Spalten löschen

gar nicht. das muß ganz neu. weil
1. du den Spaltenbereich eingrenzen mußt, damit nicht die 16 tausend Spalten gelöscht werden, die deinem Kriterium nicht entsprechen.
2. das "finden" nicht einfach mit dem "nichtfinden" ausgetauscht werden kann.

das makro sammelt erstmal die Begriffe in ein Dictionaryobject dieses kann dann abgefragt werden ob ein Wert sich darin befindet oder nicht. dann wird ein Bereich(rngUeberschriften) festgelegt, der durchsucht werden soll. dann wird dieser Bereich Zelle für Zelle durchlaufen und geprüft ob sich der Wert im Dictionary befindet. wenn nicht, wird ein weiterer Bereich(rngdel) mit den Zellen gefüllt nach der Schleife wird der Bereich(rngDel) auf die ganze Spalte erweitert und gelöscht.

Sub Ueberfluessige_weg()
    Dim dic    As Object
    Dim rngUeberschriften As Range, rngCell As Range, rngDel As Range
    Set dic = CreateObject("Scripting.dictionary")
    
    dic.Add "Betrag", 1
    dic.Add "Valutadatum", 1
    
    Set rngUeberschriften = Intersect(ActiveSheet.UsedRange, Rows(1))
    For Each rngCell In rngUeberschriften.Cells
        If Not dic.Exists(rngCell.Value) Then
            If rngDel Is Nothing Then
                Set rngDel = rngCell
            Else
                Set rngDel = Union(rngDel, rngCell)
            End If
        End If
    Next
  
    If Not rngDel Is Nothing Then rngDel.EntireColumn.Delete
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
27.11.2022 08:56:47 Paul
NotSolved
Blau Spalten löschen
 27.11.2022 09:58:05 ralf_b
*****
NotSolved
27.11.2022 17:58:22 Flotter Feger
NotSolved
28.11.2022 19:21:13 Gast45091
NotSolved
28.11.2022 22:08:20 ralf_b
NotSolved