Discussion:
VBA: Letzte Zeile u. Spalte mit Wert
(zu alt für eine Antwort)
Hallo alle, ich möchte per VBA ermitteln, welches die letzte Zeile (row) mit einem Wert in irgendeiner Zelle ist, und ebenso, welches die letzte Spalte mit einem Wert in einer irgendeiner Zelle ist. Ähnlich wie hier: MsgBox Cells(, 1)(xlUp) nur ohne Beschränkung auf Spalte 1. Excel vba letzte spalte v. Helmut Weber
Hallo Helmut, die beste und auch schnellste Lösung, die mir bisher über den Weg gelaufen ist: '*********************************************************** Option Explicit Public Sub CallingModule() MsgBox prompt:="Last cell is in row: " & RealLastCell(ActiveSheet) & _ " and in column: " & RealLastCell(ActiveSheet) & ". ", _ Buttons:=vbInformation + vbOKOnly, Title:="LastCellDemo" End Sub Public Function RealLastCell(Ws As Worksheet) As Range ' Error-handling is here in case there is not any ' data in the worksheet Dim LastRow As Long Dim LastCol As Integer On Error Resume Next With Ws ' Find the last real row LastRow = (What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows) ' Find the last real column LastCol = (What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns) End With ' Finally, initialize a Range object variable for ' the last populated row.
- Excel vba letzte spalte pro
- Excel vba letzte spalte in zeile
Excel Vba Letzte Spalte Pro
B. Ihre Bücher über Amazon bestellen würden. Wenn Sie ein Produkt kaufen, erhalte ich dafür eine Provision. Für Sie ändert sich am Preis des Produktes gar nichts. Ich möchte mich an dieser Stelle jetzt schon für Ihre Unterstützung bedanken.
Excel Vba Letzte Spalte In Zeile
letzte gefllte Spalte ermitteln VBA
Autor
Nachricht
ColdZero
Excel-Kenner mit wenig VBA wissen
Verfasst am: 27. Jul 2011, 14:12 Rufname:
Version: Office 2003
Also die letzte Zelle habe ich mit
Code: Range("A" & Range("A65536")(xlUp) + 1)
ermittelt. Excel vba letzte spalte in zeile. jetzt brauch ich nurnoch den code fr letze spalte...
// bitte von rechts nach links schauen
pefeu
Im Profil kannst Du frei den Rang ndern
Verfasst am: 27. Jul 2011, 14:24 Rufname: Peter
Wohnort: Hamburg
Hallo ColdZero,
letzte belegte Zelle in Spalte A
Code: lLetzte = IIf(IsEmpty(Cells(, 1)), Cells(, 1)(xlUp), )
oder krzer
Code: lLetzte = (xlCellTypeLastCell)
letzte belegte Spalte in Zeile 1
Code: iSpalte = IIf(IsEmpty(Cells(1, )), Cells(1, )(xlToLeft), )
Code: iSpalte = Cells(1, )(xlToLeft)
Gru Peter
Verfasst am: 27. Jul 2011, 14:54 Rufname:
Dieser code gibt mir aber nur einen Bolean wert aus um genau zusein "Falsch"
// Code:
Dim LSpalte as Long
LSpalte = 256
If [IV10] = "" Then
LSpalte = [IV10](xlToLeft) + 1
somit bekomme ich genau die leer spalte daneben.
4 Antworten
Beantwortet
23, Mär 2015
von
m-o
Profi
( 21. 3k Punkte)
Hallo Chris,
wenn ich dich richtig verstanden habe, dann geht das so:
(Cells(1, 4), Cells((, 1)(xlUp), 4))
Gruß
M. O.
Einsteiger_in
( 99 Punkte)
Hallo M. O.
genau danach habe ich gesucht, perfekt. Jetzt hat sich aber ein neues Problem ergeben. In dem neuen Tabellenblatt steht in F2 eine Formel, die ich runterkopieren will, soweit wie in Spalte A Werte stehen. Mit der Funktion
Dim letzteZeile As Long
letzteZeile = Cells. SpecialCells(xlCellTypeLastCell)
Range("F2"). AutoFill Destination:=Range("F2:E" & letzteZeile), Type:=xlFillDefault
funktioniert es nicht, da er da die Formel bis zur allerletzten Zelle kopiert und dadurch auch sehr langsam wird. Gruß Chris
nutzte statt:
lieber
letzteZeile = (, 1)(xlUp)
da hier die letzte Zeile der Spalte A ermittelt wird. Vor dem Einfügen der Formel würde ich auch die automatische Berechnung ausschalten, damit nicht nach jedem Einfügen der Formel die Berechnung läuft. Letzte Zelle in bestimmter Spalte finden (VBA). Das geht mit
lculation = xlManual
Insgesamt also so:
lculation = xlManual 'automatische Berechnung aus
lculation = xlAutomatic 'automatische Berechnung an
PS: Stimmt Range("F2: E " & letzteZeile) so?