Projektanfrage

Projektanfrage über Web Formular   per Online-Formular 
Projektanfrage über E-Mail  Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!
Projektanfrage per Telefon  +49 (0)151 / 164 55 914
Projektanfrage weitere Informationen  weitere Informationen 

Sie benötigen Hilfe oder Unter-stützung? Nutzen Sie für Ihre Anfrage unser Online-Formular, senden Sie uns eine Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! oder rufen Sie uns einfach an.

   
      Referenzen 

 Bosch 
  T-Systems
  Hagebau
  Siemens
 Areva  VW
 Haufe-Lexware  British American Tobacco
  nagel group farbe
   
     Programmierung
Excel Auftragsprogrammierung Access Auftragsprogrammierung
Word Auftragsprogrammierung Outlook Auftragsprogrammierung
   
   

Projektanfrage

 Sie benötigen eine Auftragsprogrammierung?
 Oder suchen Unterstützung bei der Lösungs-
 findung?

  Nutzen Sie unser Anfrageformular

  Jetzt anrufen unter 0151 / 164 55 914

 Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! Projektanfrage per Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! senden

  Weitere Informationen

sitepanel question2

P
r
o
j
e
k
t
a
n
f
r
a
g
e
   

Letzte Zeile, letzte Spalte und letzte Zelle per VBA ermitteln

101012



Nachfolgend sehen Sie einige Makros, mit denen die letzte Zeile, die letzte Spalte bzw. die letzte Zelle ermittelt werden kann. Die Erläuterungen zu den einzelnen Makros finden Sie als Kommentar im Code.

Wir empfehlen nicht mit absoluten Zeilenangaben zu arbeiten, wie im Beispiel 1b gezeigt, da diese nicht in den unterschiedlichen Excel-Versionen arbeiten. Wenn Version 1b verwendet wird, so arbeiter der VBA-Code entweder bis Excel 2003 oder ab Excel 2007.

Version 1a Ermittlung der letzten Zeile:


Public Sub letzte_zeile_1()
'Hier wird die letzte Zeile ermittelt
'Egal in welcher Spalte sich die letzte Zeile befindet
'Es werden alle Spalten geprüft und die letzte Zeile ausgegeben
letztezeile = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
MsgBox letztezeile
End Sub

Version 1b: Ermittlung letzte Zeile in Spalte A

Public Sub letzte_zeile_2()
'Hier wir die letzte Zeile der Spalte A ermittelt
'letztezeile = ActiveSheet.Cells(65536, 1).End(xlUp).Row 'Bis Excel 2003
letztezeile = ActiveSheet.Cells(1048576, 1).End(xlUp).Row 'Ab Excel 2007
MsgBox letztezeile
End Sub

Version 1c: Ermittlung der letzten Zeile in Spalte A (Wird bei Excel-Inside als Standardversion verwendet, da damit eine Versionsunabhängige Funktionsweise garantiert ist)

Public Sub letzte_zeile_3()
'Hier wir die letzte Zeile der Spalte A ermittelt
letztezeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
MsgBox letztezeile
End Sub

Version 1d: Ermittlung der letzten Zeile im benutzten Bereich

Public Sub letzte_spalte_1()
'Hier wird die letzte Zeile ermittelt
'Egal in welcher Spalte sich die letzte Zeile befindet
'Es werden alle Spalten geprüft und die letzte Zeile ausgegeben
letztespalte = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Column
MsgBox letztespalte
End Sub

Version 2a: Ermittlung der letzten Spalte in Zeile 4

Public Sub letzte_spalte_2()
'Hier wird die letzte Spalte der Zeile 4 ermittelt
letztespalte = Sheets(1).Cells(4, 256).End(xlToLeft).Column
MsgBox letztespalte
End Sub

Version 2b: Ermittlung der Adresse der letzten Spalte

Public Sub letzte_zelle_1()
'Mit diesem Makro wird die Adresse der letzten Zelle (Zeile, Spalte) ermittelt
letztezelle = Range("A1").SpecialCells(xlCellTypeLastCell).Address
MsgBox letztezelle
End Sub

Version 2c: Auswahl der letzten Zelle im verwendeten Zellbereich

Public Sub letzte_zelle_2()
'Mit diesem Makro wird die letzte Zelle markiert
Range("A1").SpecialCells(xlCellTypeLastCell).Select
End Sub

   

Relevante Artikel

  • Cells- zur Range-Schreibweise umwandeln

    101005   Mit dieser Funktion können Sie die die Cells-Schreibweise, z. B. Cells(1, 2) in die Range-Schreibweise z. B. Range("B1") umwandeln.   Sub umwandeln() Adresse = Cells2Range(1, 1) MsgBox Adresse End...

  • Spaltenbeschriftung auslesen

    In diesem Beispiel zeigen wir Ihnen, wie sich die Spaltenbeschriftung, also die Buchstaben der Spalten z. B. A, B, C, etc. über eine benutzerdefinierte Funktion (UDF) auslesen lässt. Mit Hilfe der in...

  • Autofilter: Gefilterte Datensätze auslesen

    In diesem Artikel erläutern wir, wie sich der über einen Autofilter gefilterte Inhalt aus einer Liste auslesen lässt. Als Ausgangsbasis dient wieder einmal eine Artikelliste mit etwas mehr als 25...

  • Leere Zeilen aus einer Tabelle entfernen

    Mit Hilfe des VBA-Codes aus diesem Beispiel können Leerzeilen aus einem Tabellenblatt entfernt werden. Werden Daten importiert oder über die Zwischenablage auf einem Tabellenblatt eingefügt, so...

  • Änderungen von Zellen dokumentieren

    101002 Einfügen in Tabellenblatt (nicht Code-Modul)   Mit diesem Code können Änderungen live in einer Spalte dokumentiert werden. Der Änderungshinweis wird in einer definierten Spalte ausgegeben.   Wenn Sie...