Thema Datum  Von Nutzer Rating
Antwort
03.04.2014 19:12:15 Gast76448
NotSolved
Blau Range ohne leere Zellen
 03.04.2014 21:09:58 Gast91561
NotSolved

Ansicht des Beitrags:
Von:
Gast91561		 Datum:
03.04.2014 21:09:58		 Views:
667		 Rating:
     
Antwort:
  Ja
Thema:
Range ohne leere Zellen		 
Option Explicit

Sub myRange()
Dim ClRng As Range
Dim myCol As Long                                     'Spalte wo

  myCol = 1                                           'Spalte "A"

  Set ClRng = ActiveSheet.Cells(Rows.Count, myCol)     'letze Zelle der Spalte
  On Error Resume Next
  Set ClRng = ActiveSheet.Columns(myCol).ColumnDifferences( _
    Comparison:=ActiveSheet.Range(ClRng.Address))
  If ClRng.Row = Rows.Count Then MsgBox "Spalte leer"
  
  'Test
  Debug.Print ClRng.Address
  '
On Error GoTo 0
End Sub

oder so ?

 

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
03.04.2014 19:12:15 Gast76448
NotSolved
Blau Range ohne leere Zellen
 03.04.2014 21:09:58 Gast91561
NotSolved