ich bin gerade dabei eine Tabelle via VBA auszuwerten. Nun stehe ich vor einem Problem. Ich muss dazu sagen, dass ich in Sachen VBA noch recht am Anfang stehe.
Ich möchte, dass die Spalte C bis zum letzten Eintrag nach den Werten 500 oder größer durchsucht wird. Wird ein Wert gefunden, soll der Eintrag von Spalte A in Zelle D1 ausgegeben werden. D.h. ich hätte gern in D1 alle Einträge von Spalte A wenn in der gleichen Zeile in Spalte C der Wert größer gleich 500 gefunden wurde.
Mit der Find.Methode schaffe ich es bisher mir die Werte von Spalte A dann ausgeben zu lassen, wenn der Such-Wert genau 500 ist.
Hier der Code:
Dim wks As Worksheet
Dim Bereich As Range, sZ As Range
Dim FirstAddress As String, Ergebnis As String
Set wks = Sheets("Tabelle1")
With wks
Set Bereich = .Range(.Range("C1"), .Cells(.Rows.Count, 1).End(xlUp))
End With
Set sZ = Bereich.Find(500, LookIn:=xlValues)
If Not sZ Is Nothing Then
FirstAddress = sZ.Address
Do
If Ergebnis = "" Then
Ergebnis = sZ.Offset(0, -2)
Else
Ergebnis = Ergebnis & "; " & sZ.Offset(0, -2)
End If
Set sZ = Bereich.FindNext(sZ)
Loop While Not sZ Is Nothing And sZ.Address FirstAddress
End If
wks.Range("D1") = Ergebnis
Vielen Dank für die Hilfe!
Vg