Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1412to1416
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1412to1416
1412to1416
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Letzte beschriebene Spalte suchen

Letzte beschriebene Spalte suchen
19.03.2015 10:22:04
Albert
Guten Morgen zusammen,
ich möchte im Bereich zwischen Spalte H und Spalte DC nach der letzten beschriebenen Zelle suchen.
Mit .cells(9, .columns.count).end(xltoleft).column komme ich leider nicht weit.
Könntet ihr mir bitte einen Tipp geben, wie das funktioniert?
Besten Dank
A.

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Letzte beschriebene Spalte suchen
19.03.2015 10:26:48
Jack_d
Ich geh davon aus, das die syntax bi dir nicht ganz exakt war.
So funzt es 
 Worksheets("Tabelle1").Cells(9, Columns.Count).End(xlToLeft).Column
Grüße

AW: Letzte beschriebene Spalte suchen
19.03.2015 10:31:31
nike
Hi,
ich würde so was versuchen:
.Range("H:DC").End(xlToLeft).Column
CU
Nike

AW: Letzte beschriebene Spalte suchen
19.03.2015 10:35:07
Albert
Hallo Jack_d,
die Syntax ist schon richtig...
Gruß
A.

AW: Letzte beschriebene Spalte suchen
19.03.2015 10:31:36
haw
Hallo Albert,
eine Möglichkeit: 
Sub LetzteZeile()
Dim i%, x%, z%
For i = 8 To 107
x = Cells(Rows.Count, i).End(xlUp).Row
If x > z Then z = x
Next i
MsgBox "Letzter Eintrag in Zeile " & z
End Sub

Gruß Heinz

Anzeige
AW: Letzte beschriebene Spalte suchen
19.03.2015 10:33:39
haw
Sorry Zeile gesucht

Dazu kannst Du zB auch...
19.03.2015 10:35:28
Michael
Hallo Albert,
... eine Zelltyp-Konstante nutzen, etwa:
    'Adresse der letzten Zelle im Blatt
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Address
'Adresse der letzten Zelle im verwendeten Bereich des aktiven Blatts
ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Address
'Adresse der letzten Zelle im Bereich H:DC im aktiven Blatt
ActiveSheet.Range("H:DC").SpecialCells(xlCellTypeLastCell).Address
LG
Michael

Ist nicht ganz so sinnvoll, und...
19.03.2015 10:51:34
Michael
Albert,
...sorry, habe Deinen Beitrag missverständlich gelesen.
Dein Ansatz mit .end ist sinnvoller!
Ich habe wieder einmal zu schnell geklickt: Die Zelltyp-Konstante "SpecialCells(xlCellTypeLastCell)" zeigt immer nur die letzte Zelle im Blatt - ist natürlich nicht auf einen Bereich einzugrenzen, wie ich oben geschrieben habe; verzeih' meinen Lapsus.
lg
Michael
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige