Spalten löschen

Guten Morgen Forum,
ich habe versucht einen Code der mit Wenn-Bedingung Zeilen löscht, das Spaltenlöschen beizubringen. Sollzustand: Für Spalten A bis DC, wenn nicht VIN oder T_J irgendwas in der Kopfzeile steht, soll die Spalte gelöscht werden.
Hier der Code, der leider die Fehlermeldung "Typen unverträglich" bringt.


Sub wegdamit()
Dim c As Long, cz As Long
cz = Range("DC1").End(xlToRight).Column
For c = 1 To cz
If Cells(1, c).Value <> "VIN" Or "T_J*" Then
Cells(1, c).EntireColumn.Delete
End If
Next c
End Sub

Wie gesagt...für das Zeilen löschen funzt er.
Sobald ihr dann die Lachtränenn weggewischt habt, könnt ihr mir ja vielleicht den Fehler sagen.
;-))
Gruß
Harry

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub wegdamit() Dim c As Long, cz As Long cz = Range("DC1").End(xlToRight).Column For c = 1 To cz If Cells(1, c).Value <> "VIN" And left(Cells(1, c),3) <> "T_J" Then Cells(1, c).EntireColumn.Delete End If Next c End Sub

Hallo Reinhard,
vielen Dank für die Mühen.
Bringt leider nicht den gewünschten Erfolg. Hat nix mit dem Code zu tun.
In einer selbst erstellten Musterdatei läuft er prima.
Nur für die relevante Datei klappts nicht, da es sich um Datenbankwerte handelt.
Die werden als Text in ein Sheet eingefügt und komplett unsystematisch/unmotiviert als Zahl formatiert. Laut Anzeige ist alles als Zahl formatiert, Zahl- und Texteinträge stehen aber kunterbunt gemischt rechts bzw. links bündig.
Es bleiben also unnötige Spalten stehen und teilweise werden benötigte Spalten gelöscht.
Ich werd jetzt komplett unelegant den Makrorecorder starten und die unnötigen Spalten händisch löschen.
Der Mist, der aus mancher Datenbank kommt sollte verboten werden.
Lieben Gruß
Harry

Sub wegdamit() Dim c As Long, cz As Long cz = Range("DC1").End(xlToRight).Column For c = cz To 1 Step -1 If Cells(1, c).Value <> "VIN" Or Cells(1, c) Like "T_J*" Then Columns(c).Delete End If Next c End Sub

Sub wegdamit() Dim c As Long, cz As Long cz = Range("DC1").End(xlToRight).Column Application.ScreenUpdating = False For c = cz To 1 Step -1 If Left(Cells(1, c), 4) = "T_JO" Or Left(Cells(1, c), 3) = "S_JO" Then If Len(Cells(1, c)) = 6 Then If Right(Cells(1, c), 2) > 16 Then Columns(c).Delete End If End If ElseIf Cells(1, c).Value <> "VIN" Then Columns(c).Delete End If Next c Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread