Thema Datum  Von Nutzer Rating
Antwort
04.06.2017 09:40:13 Tom
Solved
04.06.2017 11:11:36 Crazy Tom
NotSolved
04.06.2017 11:12:48 Werner
NotSolved
Blau Spalten löschen
04.06.2017 11:19:20 BigBen
NotSolved
04.06.2017 11:42:25 Tom
Solved

Ansicht des Beitrags:
Von:
BigBen
Datum:
04.06.2017 11:19:20
Views:
730
Rating: Antwort:
  Ja
Thema:
Spalten löschen

Hallo,

mit diesem Code kann man in den Spalten B und H die Inhalte ab Zeile 2 löschen:

Sub Loeschen()
    Dim wbk As Workbook
    Dim wsh As Worksheet
    Dim rng As Range
    Set wbk = ThisWorkbook
    
    Set wsh = wbk.Worksheets("Test")
    Set rng = Union( _
        wsh.Range(wsh.Cells(2, 2), wsh.Cells(2, 2).End(xlDown)), _
        wsh.Range(wsh.Cells(2, 8), wsh.Cells(2, 8).End(xlDown)))
    rng.ClearContents
End Sub

Voraussetzung: Zwischen den Inhalten darf keine Leere Zelle sein.

LG, BigBen


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
04.06.2017 09:40:13 Tom
Solved
04.06.2017 11:11:36 Crazy Tom
NotSolved
04.06.2017 11:12:48 Werner
NotSolved
Blau Spalten löschen
04.06.2017 11:19:20 BigBen
NotSolved
04.06.2017 11:42:25 Tom
Solved