Wenn Zelle leer dann...

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Andy,
so?

Option Explicit

Public Sub ConfirmData()
    Dim avntValues As Variant
    Dim ialngIndex As Long
    Dim objCell As Range
    With Worksheets("Vergleich")
        avntValues = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)).Value2
        For ialngIndex = 2 To UBound(avntValues, 1)
            Set objCell = Worksheets("Daten").Columns(2).Find(What:=avntValues(ialngIndex, 1), _
                LookIn:=xlValues, Lookat:=xlWhole, MatchCase:=True)
            If Not objCell Is Nothing Then
                If IsEmpty(objCell.Offset(0, 2).Value) Then
                    .Cells(ialngIndex, 4).Value = "Leere Zelle"
                Else
                    .Cells(ialngIndex, 4).Value = "Daten vorhanden"
                End If
            Else
                .Cells(ialngIndex, 4).Value = "nicht gefunden"
            End If
        Next
    End With
End Sub

Gruß
Nepumuk

Hallo Andy,
so verständlich?

Public Sub ConfirmData()
    'deklaration der Variablen
    Dim avntValues As Variant
    Dim ialngIndex As Long
    Dim objCell As Range
    'Verweis auf die Tabelle erzeugen
    With Worksheets("Vergleich")
        'Alle Daten aus Zelle bis zur letzten benutzten Zelle ein Array einlesen
        avntValues = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)).Value2
        'Schleife von Zeile 2 bis zur letzten benutzten Zeile
        For ialngIndex = 2 To UBound(avntValues, 1)
            'Suchen nach den Wert in Tabelle "Daten" Spalte 2 (ganzen Wert vergleichen Groß-Kleinschreibung beachten)
            Set objCell = Worksheets("Daten").Columns(2).Find(What:=avntValues(ialngIndex, 1), _
                LookIn:=xlValues, Lookat:=xlWhole, MatchCase:=True)
            If Not objCell Is Nothing Then
                'Wenn der Wert gefunden wurde
                If IsEmpty(objCell.Offset(0, 2).Value) Then
                    'Wenn in Zelle D der gefundenen Zeile der Wert leer ist
                    .Cells(ialngIndex, 4).Value = "Leere Zelle"
                Else
                    'Wenn in Zelle D der gefundenen Zeile der Wert nicht leer ist
                    .Cells(ialngIndex, 4).Value = "Daten vorhanden"
                End If
            Else
                'Wenn der Wert nicht gefunden wurde
                .Cells(ialngIndex, 4).Value = "nicht gefunden"
            End If
        Next
    End With
End Sub

Gruß
Nepumuk

Public Sub Vergleich() Dim loLetzte As Long With Worksheets("Vergleich") loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row .Range(.Cells(2, 2), .Cells(loLetzte, 2)).FormulaLocal = _ "=WENNFEHLER(WENN(SVERWEIS($A2;Daten!$A:$B;2;FALSCH)=0;""Leere Zelle"";" _ & """Daten vorhanden"");""nicht gefunden"")" .Range(.Cells(2, 2), .Cells(loLetzte, 2)).Value = _ .Range(.Cells(2, 2), .Cells(loLetzte, 2)).Value End With End Sub

Public Sub bbb() Dim loLetzte As Long With Worksheets("Vergleich") loLetzte = .Cells(.Rows.Count, 2).End(xlUp).Row .Range(.Cells(2, 4), .Cells(loLetzte, 4)).FormulaLocal = _ "=GLÄTTEN(B2)&GLÄTTEN(C2)" .Range(.Cells(2, 4), .Cells(loLetzte, 4)).Value = _ .Range(.Cells(2, 4), .Cells(loLetzte, 4)).Value End With End Sub

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Wenn Zelle leer dann...

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread