Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: letzte Spalte ermitteln

letzte Spalte ermitteln
16.03.2019 10:45:08
walter
Guten Morgen,
ich möchte gern die letzte beschriebene Spalte in einem Bereich
ab Zeile 4 ermitteln !
gruß
walter b
Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Dieter ja aber...
16.03.2019 11:03:05
walter
Guten Morgen Dieter,
hatte ich auch gefunden, ich brauch zum suchen den gesamten Bereich AB Zeile 3
mfg
walter b
AW: Da kann nur ein Spezialist helfen. owT
16.03.2019 11:06:13
Dieter(Drummer)
Glaub ich nicht...
16.03.2019 11:10:49
walter
Hallo Dieter,
ich habe dies auch gefunden:
Dim lngZeile As Long, lngSpalte As Long
lngZeile = Worksheets("Test").UsedRange.SpecialCells(xlCellTypeLastCell).Row
lngSpalte = Worksheets("Test").UsedRange.SpecialCells(xlCellTypeLastCell).Column
Worksheets("Test").UsedRange.Select
MsgBox "letzte Zeile: " & lngZeile & vbCr & "Letzte Spalte: " & lngSpalte
Worksheets("Test").Range("A1").Select
such gut aber kompl.Bereich und nicht ab Zeile 3 !
mfg walter b
Anzeige
Habs selbst gefunden ! -)
16.03.2019 11:17:52
walter
Hallo,
lngSpalte = ActiveSheet.Cells(3, Columns.Count).End(xlToLeft).Column
einwandfrei !
Das halte ich für ein Gerücht ;-)
16.03.2019 13:01:17
Günther
Dass du es selbst gefunden hast, glaube ich dir.
Die Formel gibt aber die letzte Spalte in exakt Zeile_3 aus, nicht AB Zeile 3!
Gruß
Günther
Günter hast RECHT !!!
16.03.2019 13:37:44
walter
Hallo Günter,
hatte mich gefreut und habe gerade das auch festgesetellt,
muss halt weiter suchen oder Unterstützung bitten.
gruß walter b
Anzeige
AW: Günter hast RECHT !!!
16.03.2019 13:51:52
Günther
OK, dann probier's mal so:
Option Explicit
Sub LetzteSpalteAb_3()
Dim rng As Range, lCol As Long, lRow As Long
lCol = Cells.Columns.Count
lRow = 999  'Letzte Daten-Zeile, bei Bedarf auf ca.-Wert anpassen
Set rng = Range(Cells(3, 1), Cells(lRow, lCol))
lCol = rng.Find(What:="*", searchorder:=xlByColumns, searchdirection:=xlPrevious).Column
MsgBox "Letzte Spalte: " & lCol
End Sub
Gruß
Günther
Anzeige
perfekt Günter...
16.03.2019 14:19:58
walter
Hallo Günter,
sehr gut, danke !
Wollte dann zur letzten beschriebenen Zelle der Spalte gehen,
das klappt nicht: lCol.Select
gruß walter b
AW: perfekt Günter...
16.03.2019 14:23:14
walter
Hallo,
es kann auch die Zeile in der entsprechenden Zeile selectiert werden.
gruß
walter b
AW: perfekt Günter...
16.03.2019 14:34:33
Günther
Ähmmm, ich bin jetzt etwas irritiert bzw. weiß nicht, was du wirklich erreichen willst.
in lCol steht ja nur der numerische Wert jener Spalte, wo der äußerst rechte Eintrag drin ist. Die entsprechende Zeile wird da nicht mit erfasst. Und selbst wenn das der Fall wäre, es können ja mehrere Zeilen in der entsprechenden Spalte mit Daten versehen sein.
Und das Wort "Select" ist in VBA meistens ein Unwort. ;-) DU brauchst es so gut wie nie (im _ Gegensatz zum Recorder). Du kannst prima direkt adressieren:

Msgbox Cells(5,lCol).Value
erfüllt ideal seinen Zweck.
Gruß
Günther
Anzeige
Danke Experte Günter !!! -)
16.03.2019 16:50:19
walter
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige