Office: Vba letzte Spalte in einer Bestimmten Range ermitteln

F1ow · 22. Oktober 2014

Hallo Leute,
ich versuche gerade einen Command Button zu erstellen, welcher mit die Druckansicht einer bestimmten Tabelle öffnen soll,
Ab Zeile A9 Stehen die Werte der Tabelle.
Zuerst soll ermittelt werden welches die letzte Reihe der Tabelle ist, das funktioniert auch. Dann soll ermittelt werden Welches die letzte befüllte Spalte ist, allerdings sollen dabei alle Reihen von 1-8 ignoriert werden und erst ab Reihe 9 geprüft werden.
Das klappt momentan noch nicht, es wird immer der eintrag aus Zeile 8 ( welche Überschriften enthält und deshalb bis V8 geht) als letzte befüllte Spalte ermittelt. :/

Ich hoffe ich habe mein Problem erklären können und Danke für eure Hilfe
Flow

hier der Code

Code:

Private Sub CommandButton3_Click()

Dim p As Integer
Dim u As Integer

With ActiveSheet

u = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
p = Sheets(1).Range(Cells(10, 1), Cells(u, 25)).SpecialCells(xlCellTypeLastCell).Column

Range(Cells(8, 1), Cells(u, p)).PrintPreview

End With

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

EarlFred · 24. Oktober 2014

Hallo Flow,

nutze Find, das ist zuverlässiger und Du kannst bestimmen, ob die die letzte Zeile oder Spalte finden willst:

Code:

Option Explicit

Private Sub CommandButton3_Click()

Dim p As Long
Dim u As Long
Dim rngTemp As Range

With ActiveSheet
Set rngTemp = .Cells.Find("*", .Cells(1, 1), LookIn:=xlValues, lookat:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
If Not rngTemp Is Nothing Then u = rngTemp.Row
Set rngTemp = Nothing

Set rngTemp = .Range("9:" & Rows.Count).Find("*", .Cells(9, 1), LookIn:=xlValues, lookat:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious)
If Not rngTemp Is Nothing Then p = rngTemp.Column
Set rngTemp = Nothing

'falls das Blatt leer ist:
u = Application.Max(u, 1)
p = Application.Max(p, 1)

Range(.Cells(8, 1), .Cells(u, p)).PrintPreview

End With

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße
EarlFred

F1ow · 24. Oktober 2014

oh vielen dank *Smilie ich probiers gleich aus

edit: funktioniert prima!

Beverly · 24. Oktober 2014

Hi,

versuche es mal so:

Code:

Dim lngLetzte As Long ' letzte Zeile
Dim intLetzte As Integer ' letzte Spalte an Zeile 9
lngLetzte = ActiveSheet.Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
intLetzte = Range(Cells(9, 1), Cells(lngLetzte, ActiveSheet.Columns.Count)).Find(What:="*", _
SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: Vba letzte Spalte in einer Bestimmten Range ermitteln

Vba letzte Spalte in einer Bestimmten Range ermitteln

Vba letzte Spalte in einer Bestimmten Range ermitteln

Vba letzte Spalte in einer Bestimmten Range ermitteln

Vba letzte Spalte in einer Bestimmten Range ermitteln - Similar Threads - Vba letzte Spalte

VBA - letzte nicht-leere Spalte

Drucken bis letzte beschriebene Zeile per VBA

Werte der letzten Zelle einer Spalte in mehreren Tabellenblättern ermitteln

Nächste Leere Zeile statt Letzte Zeile finden

[VBA] Letzte zelle (Ignorieren von Filter und ausgeblendete Zeilen)

Mal wieder letzte benutzte Zelle per VBA ermitteln

VBA- Letzte Zeile einer TXT Datei ermitteln