Thema Datum  Von Nutzer Rating
Antwort
05.02.2016 17:20:48 Anny
NotSolved
Blau VBA/ Excel/ Splaten löschen wenn Breich XX:YY leer
 05.02.2016 18:44:06 Gast14751
NotSolved
05.02.2016 18:49:44 Gast27999
****
Solved
08.02.2016 08:31:26 Anny
NotSolved

Ansicht des Beitrags:
Von:
Gast14751		 Datum:
05.02.2016 18:44:06		 Views:
1343		 Rating:
     
Antwort:
  Ja
Thema:
VBA/ Excel/ Splaten löschen wenn Breich XX:YY leer		 
Sub Test3()
Dim rngS As Range
Dim rngV As Range
Dim rngF As Range
With ActiveSheet.Columns("S")
'Wenn im Bereich S20:S152
   Set rngS = Range(.Cells(20), .Cells(152))
   On Error Resume Next
   Set rngV = rngS.SpecialCells(xlConstants)
   Set rngF = rngS.SpecialCells(xlFormulas)
   On Error GoTo 0
'
   If rngV Is Nothing And rngF Is Nothing Then
      MsgBox "leer"
      'Columns("S:T").clear      'Spalten S und T gelöscht werden
   Else
      MsgBox "nicht leer"
   End If
End With
End Sub

 

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
05.02.2016 17:20:48 Anny
NotSolved
Blau VBA/ Excel/ Splaten löschen wenn Breich XX:YY leer
 05.02.2016 18:44:06 Gast14751
NotSolved
05.02.2016 18:49:44 Gast27999
****
Solved
08.02.2016 08:31:26 Anny
NotSolved