Thema Datum  Von Nutzer Rating
Antwort
Rot Daten von Zeile in Spalte kopieren und Änderungen zurück schreiben
16.05.2024 14:49:10 Tom
NotSolved
16.05.2024 16:43:27 Gast42031
NotSolved
18.05.2024 02:19:44 Gast7777
NotSolved
18.05.2024 08:24:53 Gast8161
NotSolved
19.05.2024 15:29:23 Tom
NotSolved

Ansicht des Beitrags:
Von:
Tom
Datum:
16.05.2024 14:49:10
Views:
176
Rating: Antwort:
  Ja
Thema:
Daten von Zeile in Spalte kopieren und Änderungen zurück schreiben

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Daten von Zeile in Spalte kopieren und Änderungen zurück schreiben
16.05.2024 14:49:10 Tom
NotSolved
16.05.2024 16:43:27 Gast42031
NotSolved
18.05.2024 02:19:44 Gast7777
NotSolved
18.05.2024 08:24:53 Gast8161
NotSolved
19.05.2024 15:29:23 Tom
NotSolved