Thema Datum  Von Nutzer Rating
Antwort
Rot Spalten löschen
27.11.2022 08:56:47 Paul
NotSolved
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:
Paul
Datum:
27.11.2022 08:56:47
Views:
382
Rating: Antwort:
  Ja
Thema:
Spalten löschen

Wie kann ich bei folgendem Code die If Zeile so umstellen, dass die Parameter im Array nicht gelöscht werden sondern die Begriffe welchesich  nicht im Array befinden.

Sub Ueberflüssig()

Dim rngFind As Range, arSearch As Variant, i%
arSearch = Array("Betrag", "Valutadatum")

'das sind Spaltenüberschriften, die ünerwünscht sind
For i = 0 To UBound(arSearch)
Set rngFind = Rows(1).Find(arSearch(i), LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)

If Not rngFind Is Nothing Then rngFind.EntireColumn.Delete

Next
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
Rot Spalten löschen
27.11.2022 08:56:47 Paul
NotSolved
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