VBA - Zellenwert suchen und daneben ausgeben
05.02.2015 13:57:55
Dieter
Hallo liebe Mitglieder,
Ich habe folgenden Code aufgesetzt, um mir Zellen (Beschreibung: Hallo) in Spalte B finden zu lassen und dazugehörige, nebenstehende Werte in von mir definierten Zellen ausgeben zu lassen. Das ganze basiert auf einem anderen Beitrag in diesem Forum.
Der Code lautet
Sub x3finden()
Dim strSuche As String
Dim rngFound As Range
Dim strFirstAddress As String
Dim i As Long
i = 5
strSuche = "X3"
Set rngFound = Columns(2).Find(What:=strSuche, After:=Cells(Rows.Count, 2), LookIn:=xlValues, _
LookAt:=xlWhole)
If rngFound Is Nothing Then Exit Sub
strFirstAddress = rngFound.Address
Do
Cells(i, 4).Value = rngFound.Offset(, 1).Value
Set rngFound = Columns(2).FindNext(rngFound)
i = i + 1
Loop While rngFound.Address strFirstAddress
End Sub
Dies bedeutet, wenn der Eintrag in B15 gefunden wird (Wert zu "Hallo" in C15), soll er in D15 ausgegeben werden!
Auch ein Loop ist mir sehr wichtig, da ich viele dieser Werte suchen und finden bzw. ausgeben muss.
Ich hoffe ich konnte mein Problem anschaulich dastellen.
Da ich mich gerade erst in VBA einarbeite habe ich noch gewisse Anfangsschwierigkeiten. Aber ist ja noch kein Meister vom Himmel gefallen!
MfG,
Dieter Nasch
Anzeige