Thema Datum  Von Nutzer Rating
Antwort
22.08.2016 01:13:17 drimrim
Solved
Blau z.B.
 22.08.2016 08:30:12 Gast34752
NotSolved
22.08.2016 14:48:11 Gast83206
Solved

Ansicht des Beitrags:
Von:
Gast34752		 Datum:
22.08.2016 08:30:12		 Views:
643		 Rating:
     
Antwort:
  Ja
Thema:
z.B.		 
Sub TestIt()
Dim Ws2 As Excel.Worksheet
Dim Ws1 As Excel.Worksheet
Dim rngUsed As Range, c As Range
Dim rngHit As Range, z As Range

   With ThisWorkbook
      Set Ws2 = Sheets("Tabelle2")           'Quelle
      Set Ws1 = Sheets("Tabelle1")           'Ziel
   End With

   Set rngUsed = Ws2.UsedRange.Columns(19)   'Spalte S
   Set rngUsed = rngUsed.Offset(1, 0).Resize(rngUsed.Rows.Count - 1, rngUsed.Columns.Count)
   
   For Each c In rngUsed.Cells
      Set rngHit = Ws1.Columns(24).Find(c.Value, LookIn:=xlValues)   'in X?
      If Not rngHit Is Nothing Then
         Range(c.Offset(, -18), c.Offset(, 34)).Copy rngHit.Offset(, -18)  'überschreiben
      Else
         Set z = Ws1.Columns(24).Cells(Ws1.Rows.Count).End(xlUp).Offset(1) 'anhängen in
         Range(c.Offset(, -18), c.Offset(, 34)).Copy z.Offset(, -18)
      End If
   Next c
   
Set Ws2 = Nothing
Set Ws1 = Nothing
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
22.08.2016 01:13:17 drimrim
Solved
Blau z.B.
 22.08.2016 08:30:12 Gast34752
NotSolved
22.08.2016 14:48:11 Gast83206
Solved