VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Spalte löschen, wenn bestimmter Inhalt nicht vorhanden	18.10.2016 13:02:01	Dennis
Spalte löschen, wenn bestimmter Inhalt nicht vorhanden	18.10.2016 16:23:02	Werner
Spalte löschen, wenn bestimmter Inhalt nicht vorhanden	18.10.2016 17:29:16	Werner
Spalte löschen, wenn bestimmter Inhalt nicht vorhanden	19.10.2016 11:21:23	Dennis
Spalte löschen, wenn bestimmter Inhalt nicht vorhanden	19.10.2016 11:27:17	Dennis
Beispielmappe	19.10.2016 12:35:45	Werner
Beispielmappe	19.10.2016 12:56:49	Dennis
Beispielmappe	19.10.2016 12:59:24	Dennis
Beispielmappe	19.10.2016 14:05:31	Werner
Beispielmappe	19.10.2016 14:28:12	Dennis
Danke für die Rückmeldung	19.10.2016 14:38:08	Werner

Ansicht des Beitrags:

Von:
Werner

Datum:
19.10.2016 14:05:31

Views:
1009

Rating:

Antwort:

Thema:
Beispielmappe

Hallo Dennis,

dann nochmal ein Versuch ohne Beispielmappe:

Public Sub Spalten_Löschen()
Dim loSpalte As Long
Dim i As Long
With Sheets("Tabelle1")
    loSpalte = .Cells(9, .Columns.Count).End(xlToLeft).Column
    If loSpalte > 16 Then
        For i = loSpalte To 17 Step -1
            If .Cells(9, i) <> "" Then
                If Right(.Cells(9, i), 2) = "IE" Or Left(.Cells(9, i), 2) = "IE" Then
                    Else
                    Columns(i).Delete
                End If
            End If
        Next i
    End If
End With
End Sub

Gruß Werner

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
Spalte löschen, wenn bestimmter Inhalt nicht vorhanden	18.10.2016 13:02:01	Dennis
Spalte löschen, wenn bestimmter Inhalt nicht vorhanden	18.10.2016 16:23:02	Werner
Spalte löschen, wenn bestimmter Inhalt nicht vorhanden	18.10.2016 17:29:16	Werner
Spalte löschen, wenn bestimmter Inhalt nicht vorhanden	19.10.2016 11:21:23	Dennis
Spalte löschen, wenn bestimmter Inhalt nicht vorhanden	19.10.2016 11:27:17	Dennis
Beispielmappe	19.10.2016 12:35:45	Werner
Beispielmappe	19.10.2016 12:56:49	Dennis
Beispielmappe	19.10.2016 12:59:24	Dennis
Beispielmappe	19.10.2016 14:05:31	Werner
Beispielmappe	19.10.2016 14:28:12	Dennis
Danke für die Rückmeldung	19.10.2016 14:38:08	Werner