Thema Datum  Von Nutzer Rating
Antwort
Rot Spalten in Excel per Makro löschen
 21.03.2016 22:53:51 baufranz
Solved
25.03.2016 13:17:59 trinchen
NotSolved
26.03.2016 14:37:29 Gast49708
NotSolved

Ansicht des Beitrags:
Von:
baufranz		 Datum:
21.03.2016 22:53:51		 Views:
2759		 Rating:
     
Antwort:
 Nein
Thema:
Spalten in Excel per Makro löschen

Hallo,

ich bin leider vba laie und versuche in einem Excel Tabellenblatt Spalten zu löschen über eine inputbox in der ich angebe, welche Spalten nicht gelöscht werden sollen.

 

Hier würde ich gerne Spalte C und D behalten und den Rest per

 

habe folgenden VBA Code der leider nicht funktioniert.Sub Spalten_löschen()
Dim x As String
Dim varr As Variant
Dim i As Long
Dim k As Long
Dim z As Long
x = Application.InputBox("Bitte die Spalten kommagetrennt eingeben die sie behalten wollen", ",")
varr = Split(x, ",")
For i = ActiveSheet.UsedRange.Columns.Count To 1 Step -1
    For k = 0 To UBound(varr)
        If Columns(i).Column = CDbl(varr(k)) Then z = z + 1
    Next
    If z = 0 Then Columns(i).EntireColumn.Delete
    z = 0
Next i
End Sub

 

Möchte also in eine Inputbox eingeben >Spalte C und D> und den rest gerne gelöscht haben.

 

Vielleicht kann mir jemand helfen.

Danke

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 Spalten in Excel per Makro löschen
 21.03.2016 22:53:51 baufranz
Solved
25.03.2016 13:17:59 trinchen
NotSolved
26.03.2016 14:37:29 Gast49708
NotSolved