Thema Datum  Von Nutzer Rating
Antwort
Rot Jedes ws in Zeile 4 Error Spalten löschen
19.04.2021 12:44:48 Jenny
NotSolved
19.04.2021 14:27:02 MRUTOR
NotSolved
19.04.2021 18:49:34 xlKing
NotSolved
19.04.2021 19:13:05 xlKing
NotSolved

Ansicht des Beitrags:
Von:
Jenny
Datum:
19.04.2021 12:44:48
Views:
76
Rating: Antwort:
  Ja
Thema:
Jedes ws in Zeile 4 Error Spalten löschen

Hallo,

ich möchte in jedem ws (bzw. ab ws >1) in der Zeile 4 die Spalten löschen, die den Wert "#ERROR" enthalten. Was stimmt hier nicht?

Sub SpaltenLöschen() 
Dim Spalte As Integer 
Dim SpalteMax As Integer 
Dim ws As Worksheet   

For Each ws In ThisWorkbook.Worksheets 
SpalteMax = .UsedRange.Columns.Count 
For Spalte = SpalteMax To 1 Step -1 

If .Cells(4, Spalte).Value = "#ERROR" Then 
.Columns(Spalte).Delete 
End If 

Next Spalte 

End With 

Next ws 

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 Jedes ws in Zeile 4 Error Spalten löschen
19.04.2021 12:44:48 Jenny
NotSolved
19.04.2021 14:27:02 MRUTOR
NotSolved
19.04.2021 18:49:34 xlKing
NotSolved
19.04.2021 19:13:05 xlKing
NotSolved