|
Hallo miteinander,
ich hoffe das mir jemand helfen kann bei meinem Problem?
Ich habe zwei Arbeitsblätter "Eingabedialog" und "Rohdaten"
Im Eingabedialog habe ich in der Zelle B6 eine Dropdown Liste mit folgenden Werten RRB 1;RRB 2;RRB 3;RRB 4;RRB 5
Und ein Ausgabefeld von L5:L9, dort stehen die Werte dann aus den Rohdaten: 20;40 etc.
| T |
= |
20 |
a |
| QT,d,aM |
= |
40 |
l/s |
| qDr,k |
= |
20 |
l/(s x ha) |
| tf |
= |
9 |
min |
| fZ |
= |
1,1 |
- |
Im Arbeitsblatt "Rohdaten" sieht die Liste so aus, von A2:F7
| RRR |
T |
QT,d,aM |
xyz |
tf |
fZ |
| RRB 1 |
3 |
10 |
10 |
5 |
1,15 |
| RRB 2 |
10 |
20 |
15 |
6 |
1,1 |
| RRB 3 |
30 |
30 |
33 |
7 |
1,2 |
| RRB 4 |
20 |
40 |
20 |
9 |
1,1 |
| RRB 5 |
100 |
50 |
25 |
8 |
1,2 |
Wenn ich nun RRB 4 auswähle bekomme ich die richtige Anzeige, also bis hier hin alles ok.
Hier der Code aus dem Arbeitsblatt "Eingabedialog dazu:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim modifiedValue As Variant
Dim selectedOption As String
Dim searchData As Range
Dim rowIndex As Long
Dim colIndex As Integer
Dim rowIterator As Long
Dim destinationRow As Long
Dim changedRange As Range
' ###### TEIL 1 ######
' Überprüfe, ob die Änderung in der Dropdown-Liste (Zelle B6) des Tabellenblatts "Eingabedialog" stattgefunden hat
If Not Intersect(Target, Me.Range("B6")) Is Nothing Then
selectedOption = Me.Range("B6").Value
With Sheets("Rohdaten")
Set searchData = .Columns(1).Find(What:=selectedOption, LookIn:=xlValues, LookAt:=xlWhole)
End With
If Not searchData Is Nothing Then
' Zeilenindex der gefundenen Option
rowIndex = searchData.Row
For colIndex = 2 To 6 ' Spalten C bis F
Me.Cells(colIndex + 3, 12).Value = Sheets("Rohdaten").Cells(rowIndex, colIndex).Value
Next colIndex
End If
End If
End Sub
Nun mein Eigentliches Problem, wenn ich unter L5:L9 im Eingabedialog etwas ändere, soll er es auch in den Rohdaten an der richtigen stelle tun.
Ich nun schon vieles Versucht aber entweder ändert er an der falschen Stelle oder garnichts.
Meine Versuche zeige ich euch jetzt nicht, da es zuviele waren.
Ich hoffe es kann mir jemand helfen?
Vielen Lieben Dank schonmal, Gruß Tom
|