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

Ansicht des Beitrags:
Von:
Gast8161
Datum:
18.05.2024 08:24:53
Views:
121
Rating: Antwort:
  Ja
Thema:
Daten von Zeile in Spalte kopieren und Änderungen zurück schreiben

ausgehend von deiner Beschreibung, sollte das so funktionieren.

 If Target.Address(0, 0) = "B6" And Target.Value <> "" Then
        selectedOption = Me.Range("B6").Value
        With Sheets("Rohdaten")
           searchData = Application.Match(selectedOption, .Columns(1), 0)
           If IsNumeric(searchData) Then
               Application.EnableEvents = False
               Me.Range("L5:L9") = WorksheetFunction.Transpose(.Cells(searchData, 2).Resize(1, 5))
               Application.EnableEvents = True
           End If
        End With
    Else
     If Not Intersect(Target, Me.Range("L5:L9")) Is Nothing Then
         If Me.Range("B6") <> "" Then
            With Sheets("Rohdaten")
                searchData = Application.Match(Me.Range("B6").Value, .Columns(1), 0)
                If IsNumeric(searchData) Then
                    .Cells(searchData, 2).Resize(1, 5) = WorksheetFunction.Transpose(Me.Range("L5:L9"))
                End If
            End With
         End If
     End If
    End 

 


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
16.05.2024 14:49:10 Tom
NotSolved
16.05.2024 16:43:27 Gast42031
NotSolved
18.05.2024 02:19:44 Gast7777
NotSolved
Blau Daten von Zeile in Spalte kopieren und Änderungen zurück schreiben
18.05.2024 08:24:53 Gast8161
NotSolved
19.05.2024 15:29:23 Tom
NotSolved