Wert in Spalte suchen und Zeile füllen
23.10.2012 12:09:30
Jonas
ich möchte gerne aus Spalte A einen Wert suchen (in der Zelle können neben dem Suchwort noch andere Zeichen stehen). Wenn die Zelle den Wert enthält, soll eine Variable (hier: SchnittD, ist durch eine Variable im UserForm definiert) in Spalte C der gleichen Zeile ausgegeben werden. Dies sind immer Prozentzahlen im Format 00,0%.
Beispiel:
Suchwort ist in Zelle A3 enthalten, also wird in Zelle C3 die Variable SchnittD ausgegeben.
Die Hilfe hat mich auf die Find-Methode gebracht und dazu gab es auch ein wie ich finde, recht gutes Beispiel. DIeses habe ich versucht anzupassen, jedoch ist mir das nicht so ganz gelungen.
Könnt ihr mir sagen, was ich vergessen habe bzw. was nicht funktioniert? Ich habs leider nicht gefunden...
Hier mein Quellcode:
Sub Makro2()
' Makro2 Makro
Dim letzteSpalteAuswertung As Integer
Dim letzteZeileAuswertung As Integer
Dim SchnittE As Double
SchnittE = 12,3
letzteSpalteAuswertung = Workbooks(1).Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell). _
_
_
Column
'Bestimmen der letzten beschriebenen Zeile der Spalte A
letzteZeileAuswertung = Workbooks(1).Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
With Worksheets(1).Range(Cells(1, 1), Cells(letzteZeileAuswertung, 1))
Set c = .Find("Profilschnitt D", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Range("C5").FormulaR1C1 = SchnittE
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address firstAddress
End If
End With
End Sub
Anzeige