Thema Datum  Von Nutzer Rating
Antwort
11.12.2015 12:18:28 KaaK
NotSolved
11.12.2015 14:22:34 Gast73306
NotSolved
11.12.2015 16:19:22 Gast2843
NotSolved
Blau  VBA: Zellen kopieren (mehrfach auftretendes Suchkriterium)
 11.12.2015 18:16:34 Gast77130
NotSolved

Ansicht des Beitrags:
Von:
Gast77130		 Datum:
11.12.2015 18:16:34		 Views:
810		 Rating:
     
Antwort:
  Ja
Thema:
VBA: Zellen kopieren (mehrfach auftretendes Suchkriterium)

Da hast du Recht, hatte ich nicht dran gedacht! Problem bleibt aber weiterhin, dass du bei jedem Durchlauf in Spalte A bei OTA von neuem anfängst und dann auch immer an der selben Stelle den Treffer hast, wie beim ersten Treffer. Mit find und findnext könntest du dir immer den nächsten Treffer anzeigen lassen (also die Zelle des Treffers aus der du dann die Reihe/Spalte extrahierst). Bei deiner Variante müsstest du bei einem Treffer auf für den nächsten Durchlauf auf diesen Anfangswert setzen lassen. In Spalte A von OTA kommen die Werte ja auch nur so oft wie in BS vor. Habe mal einen Versuch gemacht. Dabei wird der Nachfolgeindex von i bei einem Treffer zwischengespeichert und alle Suchen starten dann ab dem Wert. Beim nächsten Treffer wird der wieder gespeichert. Name ist neui. Damit wird der selbe Treffer nicht nochmal angesprochen. Zudem sollte die I Schleife bei einem Treffer scho vorzeitig beendet werden. Gibt doch hoffentlich pro z nur einen Treffer?! Falls auch je z mehrere Treffer möglich sind, das exit do wieder rausnehmen. Gruß

 

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Dim i As Integer
Dim wbOTA As Workbook
Dim wsOTA As Worksheet
Dim wsBS As Worksheet
 
Sub CopyBS()
 
Dim neui
 
Set wbOTA = ThisWorkbook
 
Set wsOTA = wbOTA.Worksheets("OTA")
Set wsBS = wbOTA.Worksheets("BS")
 
 
neui = 4
i = 4
z = 3
 
Do While z < 600
 
            Do While i < 200
 
                 If wsOTA.Cells(i, 1).Value = wsBS.Cells(z, 6).Value Then
 
                        wsOTA.Cells(i, 2).Value = wsBS.Cells(z, 9).Value
                        wsOTA.Cells(i, 3).Value = wsBS.Cells(z, 7).Value
                        wsOTA.Cells(i, 4).Value = wsBS.Cells(z, 12).Value
                        wsOTA.Cells(i, 6).Value = wsBS.Cells(z, 19).Value
                        wsOTA.Cells(i, 7).Value = wsBS.Cells(z, 20).Value
                        wsOTA.Cells(i, 8).Value = wsBS.Cells(z, 21).Value
                        wsOTA.Cells(i, 9).Value = wsBS.Cells(z, 22).Value
                        wsOTA.Cells(i, 12).Value = wsBS.Cells(z, 23).Value
                        wsOTA.Cells(i, 14).Value = wsBS.Cells(z, 24).Value
                        wsOTA.Cells(i, 15).Value = wsBS.Cells(z, 25).Value
                        wsOTA.Cells(i, 16).Value = wsBS.Cells(z, 26).Value
                        neui = i + 1
                        Exit Do
                 End If
 
            i = i + 1
 
            Loop
             
i = neui
z = z + 1
 
Loop

 

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
11.12.2015 12:18:28 KaaK
NotSolved
11.12.2015 14:22:34 Gast73306
NotSolved
11.12.2015 16:19:22 Gast2843
NotSolved
Blau  VBA: Zellen kopieren (mehrfach auftretendes Suchkriterium)
 11.12.2015 18:16:34 Gast77130
NotSolved