Thema Datum  Von Nutzer Rating
Antwort
Rot Suchergebnis als neuen Zeileneintrag unterhalb einfügen
 25.08.2018 20:59:29 Paul M.
NotSolved
26.08.2018 13:40:28 Gast76851
Solved
26.08.2018 14:38:21 Gast83565
NotSolved
26.08.2018 17:13:28 Gast35688
Solved
26.08.2018 17:38:35 Paul M.
NotSolved

Ansicht des Beitrags:
Von:
Paul M.		 Datum:
25.08.2018 20:59:29		 Views:
1220		 Rating:
     
Antwort:
  Ja
Thema:
Suchergebnis als neuen Zeileneintrag unterhalb einfügen

Hallo zusammen,

habs bisher nur hinbekommen, die im Tabellenblatt Liste gefundenen Werte einmal neben dem Suchwert im Tabellenblatt Abgleich zu kopieren, würde aber gern alle Ergebnisse unter dem Suchwert als jeweils neuen Zeileneintrag einfügen. Hat jemand eine Idee? Vielen Dank vorab fürs grübeln.

Sub AbgleichListe()
   
Dim Wks As Worksheet
Dim x As Range
Dim Finden As Range
Dim EndLine As Long
   
    Sheets("Abgleich").Activate
    Set Wks = Sheets("Liste")
    EndLine = Cells(Rows.Count, "B").End(xlUp).Row
    For Each x In Range("B2:B" & EndLine) 
    Set Finden = Wks.Columns("a").Find(x, LookIn:=xlValues, LookAt:=xlWhole)
   If Not Finden Is Nothing Then
  

'Wenn in der Found-Zeile (Found=Range) Spalte A-G kopieren und in Tabelle Abgleich in Spalte C in aktueller Zeile einfügen
  Range(Wks.Cells(Finden.Row, "A"), Wks.Cells(Finden.Row, "G")).Copy Destination:=Cells(x.Row, "c")
  End If
  Next
End Sub

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 Suchergebnis als neuen Zeileneintrag unterhalb einfügen
 25.08.2018 20:59:29 Paul M.
NotSolved
26.08.2018 13:40:28 Gast76851
Solved
26.08.2018 14:38:21 Gast83565
NotSolved
26.08.2018 17:13:28 Gast35688
Solved
26.08.2018 17:38:35 Paul M.
NotSolved