Spalten löschen, mit Bedingung

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Elmar,
probier es mal so


Sub sbDelCol()
Dim lloRow As Long, lloCol As Long, larlo2Cols(1) As Long
For lloRow = 1 To 3 'nur in den Zeilen 1, 2 oder 3 kommt identcode vor
For lloCol = 1 To Cells(lloRow, Columns.Count).End(xlToLeft).Column 'durchsucht jede Spalte in den Zeilen 1 bis 3
If LCase(Cells(lloRow, lloCol).Value) = "identcode" Then
If larlo2Cols(0) = 0 Then
larlo2Cols(0) = lloCol 'sucht nach der 1. Spalte mit "identcode"
Else
larlo2Cols(1) = lloCol 'sucht nach der 2. Spalte mit "identcode"
Exit For
End If
End If
Next
If larlo2Cols(1)  0 Then
Exit For
End If
Next
For lloCol = Cells(1, Columns.Count).End(xlToLeft).Column To 1 Step -1
If lloCol  larlo2Cols(0) And _
lloCol  larlo2Cols(1) Then
Columns(lloCol).Delete Shift:=xlToLeft
End If
Next
End Sub

Wichtig!
- wähl vor dem Makrostart die Tabelle mit den vielen Spalten aus (also nicht alle Spalten markieren, sondern die richtige Tabelle muss die sichtbare sein)
- arbeite erst mal mit einer Kopie vom Original
- es werden wirklich alle Spalten gelöscht, in denen nicht 2x das Wort "identcode" vorkommt!
- es bleiben also nur 2 Spalten übrig
Hilfts?
Ciao
Thorsten

Moin Elmar :-)
Ich wusste, wenn ich SEHE, was falsch läuft, versteh ich auf jeden Fall besser, als wenn ich es nur...LESE! :-)
hier, der korrigierte Code mit deinen Bsp-Daten:
https://www.herber.de/bbs/user/151899.xlsm
DU hattest den Fehler auch schon erkannt:
Kann es daran liegen, dass die Zeile 1 nicht immer gefüllt ist bei allen Spalten?
(aber ich tu mich oft schwer mit nur lesen, ich mag lieber Bsp-Dateien - da is alles klipp + klar und kann nicht missverstanden und/oder übersehen werden)
Jep, genau das war der "Fehler".
Mein alter Code hatte "stur" nur immer alle benutzten Spalten in - Zeile 1 - überprüft....und deswegen "nicht gemerkt", dass in Zeile 2 noch viel mehr Spalten genutzt werden.
Bevor nun die überflüssigen Spalten gelöscht werden, wird erst mal ermittelt, in welcher Zeile die meisten, genutzten Spalten enthalten sind - und genau die Zeile wird dann verwendet, um alle genutzten Spalten nach "identcode" zu durchsuchen.
Hilfts jetzt?
Ciao
Thorsten

with activesheet.usedrange With .rows(.rows.count + 1) .formular1c1 = "=if(Countif(r1c:r3c,""identcode""),"""", 1) .specialcells(xlcelltypeformulas, 1).entirecolumn.delete .clearcontents End With End with

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread