Thema Datum  Von Nutzer Rating
Antwort
19.03.2020 17:07:12 Metz
Solved
19.03.2020 22:21:52 tscharl
NotSolved
19.03.2020 22:23:37 tscharl
*****
Solved
Blau Suchen und Kopieren
 19.03.2020 23:56:13 Metz
NotSolved
20.03.2020 00:19:09 tscharl
*****
NotSolved
20.03.2020 00:50:30 Metz
NotSolved
20.03.2020 11:49:48 Metz
NotSolved
20.03.2020 11:54:25 tscharl
NotSolved
20.03.2020 13:44:27 Metz
NotSolved
20.03.2020 14:52:50 tscharl
*****
Solved
21.03.2020 01:08:25 Metz
NotSolved
21.03.2020 01:14:43 Metz
NotSolved

Ansicht des Beitrags:
Von:
Metz		 Datum:
19.03.2020 23:56:13		 Views:
545		 Rating:
     
Antwort:
  Ja
Thema:
Suchen und Kopieren

Hallo tscharl,

vielen Dank, es hat geklappt. Hätte allerdings eine Frage:

Wenn ich zwei Werte suchen möchte könnte der Code dann so lauten?

Sub Suche_Und_Kopiere()
   Dim rngC As Range, strAdresse As String, strSuche As String
   strSuche = Worksheets("Tabelle2").Cells(5, 3).Value or
             Worksheets("Tabelle2").Cells(10, 3).Value
 
 
   Application.ScreenUpdating = False
      
   With Worksheets("Tabelle1").Columns("A:D")
      
       Set rngC = .Find(strSuche)
       If Not rngC Is Nothing Then
           strAdresse = rngC.Address
           Do
               rngC.Offset(, -0).Resize(, 8).Copy
               With Worksheets("Tabelle3")
                   .Cells(.Rows.Count, 2).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
               End With
               Set rngC = .FindNext(rngC)
           Loop While Not rngC.Address = strAdresse
       End If
   End With
      
   Application.CutCopyMode = False
   End Sub

Metz

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
19.03.2020 17:07:12 Metz
Solved
19.03.2020 22:21:52 tscharl
NotSolved
19.03.2020 22:23:37 tscharl
*****
Solved
Blau Suchen und Kopieren
 19.03.2020 23:56:13 Metz
NotSolved
20.03.2020 00:19:09 tscharl
*****
NotSolved
20.03.2020 00:50:30 Metz
NotSolved
20.03.2020 11:49:48 Metz
NotSolved
20.03.2020 11:54:25 tscharl
NotSolved
20.03.2020 13:44:27 Metz
NotSolved
20.03.2020 14:52:50 tscharl
*****
Solved
21.03.2020 01:08:25 Metz
NotSolved
21.03.2020 01:14:43 Metz
NotSolved