Ich habe folgendes Problem und finde keine ordentliche Lösung.
Ich besitze eine Exceltabelle mit 2 Spalten. Sie ist folgerendermassen aufgebaut.
3,14 0,08086337
2,5 0,761919374
3,5 0,110766977
1,9 0,855926284
2,234 0,883506027
3,14 0,068641345
12,9 0,871115958
22,1 0,131935677
1,45 0,638340942
3,14 0,413197416
22,4 0,913533769
3,14 0,855717954
Nun will ich in VBA6 realisieren das bei jeden A-Wert = 3,14 der dazugehörige B-Wert ausgegeben wird.
Zu diesem Thema hab ich bereits einen hilfenreichen Artikel in diesem Forum gefunden.
https://www.herber.de/forum/archiv/548to552/t551765.htm
Daraus konnte ich folgenden Code benutzen.
Sub FindValues(sSuchkriterium$, sSuchBereich$)
Dim oZelle As Object
Dim rBereich As Range
Set rBereich = Range(sSuchBereich)
ActiveSheet.Cells(3, 5).FormulaR1C1 = ""
For Each oZelle In rBereich
If oZelle.FormulaR1C1 = 3,14 Then
If ActiveSheet.Cells(3, 5).FormulaR1C1 "" Then _
ActiveSheet.Cells(3, 5).FormulaR1C1 = _
ActiveSheet.Cells(3, 5).FormulaR1C1 & ", "
ActiveSheet.Cells(3, 5).FormulaR1C1 = _
ActiveSheet.Cells(3, 5).FormulaR1C1 & _
oZelle.Offset(rowOffset:=0, columnOffset:=1).FormulaR1C1
End If
Next
End Sub
Leider schreibt dieser VBA - Code alle gefunden Zahlen in ein un die gleiche Zelle(3,5 wie oben deklaiert)
Ich will nun aber das jeder neu gefundene Wert in eine extra Zelle geschrieben wird.
D.h. bei dem ersten A-Wert=3,14 soll in Zelle D1:E1 der dazugehörige B-Wert stehen bei dem zweiten A-Wert=3,14 der dazugehörige B-Wert in Zelle D1:E2 usw. Es gibt cirka 200-300 A-Werte die den Wert 3,14 besitzen und deren B-Wert ausgelesen werden muss.
Mit dem Autofilter kann ich es nicht realsieren da es zuviele Werte sind die ich abschreiben müßte.
Leider bin ich absoluter VBA - Beginner und weiß nicht wie ich den Code entsprechend umschreiben kann damit er die oben beschriebenen Aufgaben erfüllt.
Könnt ihr mir irgendwie helfen und denn Code so ändern, dass automatisch alle Werte einzeln untereinander eingetragen werden?
Willi