nächste leere Spalten Zelle

Hallo liebe Excelfreunde,
ich habe folgendes Problem.
Ich suche die letzte beschriebene Zelle in Spalte A
lastrow = Worksheets("Wasser").Range("a65536").End(xlUp).Row
das funktioniert prima.
Nun trage ich in die nächste leere Zeile also (lastrow + 1) Werte ein und muß danach die Differenzen innerhalb einer Spalte zum vorhergehenden Wert berechnen.
Nun kommt mein Problem:
Solange die nunmehr vorletzte Zeile "lastrow" durchgehend ausgefüllt ist, ist das kein Problem.
Was aber wenn z.B. in Spalte H zum nächste Wert noch 5 oder eine verschiedene Anzahl Leerzellen ist?
Hat jemand eine Idee wie ich einfach die nunmehr letzte ausgefüllte Zelle der Spalte H ermitteln kann?
Vielen Dank und viele Grüße
Marco

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub atest() Dim lngL As Long ' Zeile unter der letzten beschriebenen Zelle in Sp. A Dim lngH As Long ' Zeile der letzten beschriebene Zelle in Sp. H oberhalb Zeile lngL lngL = Worksheets("Wasser").Cells(Rows.Count, 1).End(xlUp).Row + 1 Cells(lngL, 8) = 30 lngH = IIf(IsEmpty(Cells(lngL - 1, 8)), _ Worksheets("Wasser").Cells(lngL, 8).End(xlUp).Row, lngL - 1) If IsEmpty(Cells(lngH, 8)) Then MsgBox "Kein Wert oberhalb von H" & lngL Else MsgBox Cells(lngL, 8) - Cells(lngH, 8) End If End Sub

Hallo Marco,
bei meinem vorigen Beitrag habe ich nicht berücksicht, wo das Ganze stattfindet (Blatt "Wasser").
Wenn das Blatt aktiv ist, kannst du dir "Worksheets("Wasser")." sparen,
wenn nicht, wäre eine With-Klammer praktisch.
Hier die beiden Versionen dazu:


Option Explicit
Sub WasserIstAktivesBlatt()
Dim lngL As Long ' Zeile unter der letzten beschriebenen Zelle in Sp. A
Dim lngH As Long ' Zeile der letzten beschriebene Zelle in Sp. H oberhalb Zeile lngL
lngL = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(lngL, 8) = 30
lngH = IIf(IsEmpty(Cells(lngL - 1, 8)), Cells(lngL, 8).End(xlUp).Row, lngL - 1)
If IsEmpty(Cells(lngH, 8)) Then
MsgBox "Kein Wert oberhalb von H" & lngL
Else
MsgBox Cells(lngL, 8) - Cells(lngH, 8)
End If
End Sub
Sub AnderesAktivesBlatt()
Dim lngL As Long ' Zeile unter der letzten beschriebenen Zelle in Sp. A
Dim lngH As Long ' Zeile der letzten beschriebene Zelle in Sp. H oberhalb Zeile lngL
With Worksheets("Wasser")
lngL = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(lngL, 8) = 30
lngH = IIf(IsEmpty(.Cells(lngL - 1, 8)), _
.Cells(lngL, 8).End(xlUp).Row, lngL - 1)
If IsEmpty(.Cells(lngH, 8)) Then
MsgBox "Kein Wert oberhalb von H" & lngL
Else
MsgBox .Cells(lngL, 8) - .Cells(lngH, 8)
End If
End With
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Sub letzte_oberhalb() Dim letzte As Long, letzteOberhalb as Long Dim i as Integer letzte = IIf(IsEmpty(Cells.Rows.Count, 8)),Cells(Rows.count,8).End(xlUp).Row,Rows.Count) For i = letzte To 2 Step -1 If Cells(i, 8) = "" And Cells(i - 1 , 8) "" Then letzteOberhalb = Cells(i - 1, 8).Row Exit For End if Next i End Sub

Sub letzte_oberhalb() Dim letzte As Long, letzteOberhalb As Long Dim i As Integer letzte = IIf(IsEmpty(Cells(Rows.Count, 8)), Cells(Rows.Count, 8).End(xlUp).Row, Rows.Count) For i = letzte To 2 Step -1 If Cells(i, 8) = "" And Cells(i - 1, 8) "" Then letzteOberhalb = Cells(i - 1, 8).Row Exit For End If Next i MsgBox "Es gibt " & letzte - letzteOberhalb - 1 & " leere Zellen über der letzten beschriebenen _ Zelle!" End Sub

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread