Abfrage ob Zelle leer

Hallo zusammen,
wir haben bei uns ein Excel Sheet in dem gewisse Eintragungen gemacht werden. Nun möchte ich immer die letzte befüllt Zelle auslese und in ein Worksheet schreiben. Dies mache ich mit folgenden Code:
Set ws1 = Worksheets("Formular")
Set G11 = ws1.Range("g11")
LetzteZeile = ws2.Cells(Rows.Count, 3).End(xlUp).Row
G11 = ActiveSheet.Range("C" & LetzteZeile)
Nun ist hier es hier ein Problem wenn zb. die Spalte C in der Zeile 23 beschrieben ist und in der Zeile 24 nicht, dann wir hier automatisch der Wert aus Zeile 23 genommen - die möchte ich aber verhindern.
Ich weiss aber nicht wie ich das mit dem Code schaffe, da ja Excel nicht weiss dass ich eigentlich den Wert aus Zeile 24 - also den Leerwert möchte...
Den Code hier habe ich ein vereinfacht dargestellt, es sind in wirklichkeit ca. 10 Spalten die in ein anderes Worksheet übernommen werden... und wenn eben 9 Spalten in der Zeile 24 einen Wert haben und nur die 10. nicht, dann möchte ich nicht, dass Excel den Wert aus Zeile 23 hernimmt...
Ich hoffe mein Problem verständlich erklärt zu haben, ansonsten bitte einfach nochmal fragen was unklar ist!
Besten Dank im Voraus!
Schöne Grüße
Marcel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hi!
Option Explicit
Dim strMsg As String

Sub Start_()
Dim lngRow As Long
lngRow = FindLastRowInRange(ActiveWorkbook.Worksheets("Tabelle2").Range("C:L"))
If lngRow > 0 Then lngRow = RowsUpToValuesCount(ActiveWorkbook.Worksheets("Tabelle2").Range("D: _
L"), lngRow, 9)
If lngRow > 0 Then
ActiveSheet.Range("G1") = ActiveWorkbook.Worksheets("Tabelle2").Cells(lngRow, 3).Value
End If
End Sub

Function RowsUpToValuesCount(objRange As Range, lngRowLast As Long, lngValuesMin As Long) As  _
Long
Do While Application.CountA(Intersect(objRange, objRange.Rows(lngRowLast)))

Function FindLastRowInRange(objRange As Range) As Long
Dim lngLastRow  As Long
With objRange
If Application.WorksheetFunction.CountA(.Cells) > 0 Then
On Error Resume Next
lngLastRow = .Cells.Find(What:="*", After:=.Cells(1), _
LookIn:=xlFormulas, LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
If Err.Number = 0 Then
strMsg = "Letzte Zeile mit Daten: " & lngLastRow
Else
strMsg = "Laufzeitfehler '" & CStr(Err.Number)
strMsg = strMsg & "':" & vbCr & Err.Description
End If
On Error GoTo 0
Else
strMsg = "Der Bereich enthält keine Daten!"
End If
End With
strMsg = objRange.Address(external:=True) & vbCr & vbCr & strMsg
MsgBox strMsg, vbInformation, Title:="Letzte Zeile mit Daten ermitteln (Find-Methode)"
Set objRange = Nothing
FindLastRowInRange = lngLastRow
End Function

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

311 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Abfrage ob Zelle leer

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

311 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread