Thema Datum  Von Nutzer Rating
Antwort
19.03.2020 17:07:12 Metz
Solved
19.03.2020 22:21:52 tscharl
NotSolved
Rot Suchen und Kopieren
 19.03.2020 22:23:37 tscharl
*****
Solved
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:
tscharl		 Datum:
19.03.2020 22:23:37		 Views:
541		 Rating:
     
Antwort:
 Nein
Thema:
Suchen und Kopieren		 
Fehler behoben im letzten Beitrag:

Sub Suche_Und_Kopiere()
   Dim rngC As Range, strAdresse As String, strSuche As String
   strSuche = Worksheets("Tabelle2").Cells(5, 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

 

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
Rot Suchen und Kopieren
 19.03.2020 22:23:37 tscharl
*****
Solved
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