Thema Datum  Von Nutzer Rating
Antwort
02.12.2016 09:55:44 Gast96112
NotSolved
02.12.2016 10:00:32 Gast98638
NotSolved
03.12.2016 10:26:12 fedjo
NotSolved
03.12.2016 20:38:35 Gast31823
NotSolved
Rot letzte Spalte beschreiben
 03.12.2016 21:42:34 Onur
NotSolved

Ansicht des Beitrags:
Von:
Onur		 Datum:
03.12.2016 21:42:34		 Views:
661		 Rating:
     
Antwort:
  Ja
Thema:
letzte Spalte beschreiben

Schreibe dies in ein MODUL:

Public Function LastColumnWithContent(ByVal rngBereich As Range) As Long
  'Gibt die letzte Zelle mit Inhalt im Bereich als Range-Objekt zurück
  Dim rngZelle  As Range
  With rngBereich
    Set rngZelle = .Find(What:="*", After:=.Range("A1"), lookat:=xlWhole, _
          LookIn:=xlFormulas, searchdirection:=xlPrevious)
    If rngZelle Is Nothing Then
      LastColumnWithContent = 1
          Else
      LastColumnWithContent = rngZelle.Column
    End If
  End With
End Function

Public Function LastRowWithContent(ByVal rngBereich As Range) As Long
  'Gibt die letzte Zelle mit Inhalt im Bereich als Range-Objekt zurück
  Dim rngZelle  As Range
  With rngBereich
    Set rngZelle = .Find(What:="*", After:=.Range("A1"), lookat:=xlWhole, _
          LookIn:=xlFormulas, searchdirection:=xlPrevious)
    If rngZelle Is Nothing Then
      LastRowWithContent = 1
          Else
      LastRowWithContent = rngZelle.Row
    End If
  End With
End Function

 

Mit LastRowWithContent(Bereich) kannst du in Excelformeln die letzte beschriebene Zeile herausfinden.

Mit LastColumnWithContent(Bereich) kannst du in Excelformeln die letzte beschriebene Spalte herausfinden.

 

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
02.12.2016 09:55:44 Gast96112
NotSolved
02.12.2016 10:00:32 Gast98638
NotSolved
03.12.2016 10:26:12 fedjo
NotSolved
03.12.2016 20:38:35 Gast31823
NotSolved
Rot letzte Spalte beschreiben
 03.12.2016 21:42:34 Onur
NotSolved