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:
1787		 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.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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