Thema Datum  Von Nutzer Rating
Antwort
Rot mehrere do loop schleifen
 04.04.2019 23:23:32 eli
Solved
05.04.2019 00:42:28 Gast51224
NotSolved
05.04.2019 07:46:56 Gast11415
NotSolved
05.04.2019 07:47:17 eli
NotSolved
05.04.2019 13:31:47 Gast41541
NotSolved
06.04.2019 09:07:38 eli
NotSolved

Ansicht des Beitrags:
Von:
eli		 Datum:
04.04.2019 23:23:32		 Views:
973		 Rating:
     
Antwort:
 Nein
Thema:
mehrere do loop schleifen

Hallo zusammen,

 

das ziel ist es, die werte in der spalte A tabelle 1 in der tabelle 2 spalte A wiederzufinden mit einem Do loop befehl. das was passieren soll ist, dass der wert in A2(tabelle1) in tablle 2 im range A  zu suchen bis ein vordefinierter Cell (z.B. Cells(20,1) in range A erreicht ist. Wenn der Wert A2 (tabelle1) in range A (tabelle 2) gefunden ist, wird eine kopie von dem wert gemacht. Wenn A2(tabelle1) nicht in Tabelle 2 range A gefunden wird, springe man in die nächste Spalte "B2" in tabelle 1 und sucht diesen Wert in tabelle 2 unter range B, bis dieser wert gefunden wird. Wenn nicht, geht es nach tablle 1 C2 um diesen Wert in Tabelle 2 range C zusuchen etc.

habe hier mal meine Anfänge dargelegt. Ich hoffe es hilft ein wenig. Ich komme da leider nicht mehr weiter und würde mich über eine kleine hilfe freuen.

Danke

https://i.stack.imgur.com/q2Jgc.jpg

https://i.stack.imgur.com/bKPog.jpg

?
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
Dim wp As Workbook
 Dim ws As Workbook
 Dim c As Long, r As Long, rng As Range
 Dim w As Integer
 Dim t As Integer
 
 
 Set ws = Workbooks.Open("C:\Users\Yavuz\Desktop\a.xlsx")
 Set wp = Workbooks.Open("C:\Users\Yavuz\Desktop\t.xlsx")
 
 
  Do
    w = w + 1
    i = i + 1
    t = 0
      Do
         t = t + 1
         If ws.Sheets("Tabelle1").Cells(i, w).Value = wp.Sheets("Tabelle2").Cells(t, w).Value Then
         wp.Sheets("Tabelle2").Cells(t, w).Copy
        Exit Do
 
     End If
  Loop Until wp.Sheets("Tabelle2").Cells(t, w).Value = treu
     i = 0
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
Rot mehrere do loop schleifen
 04.04.2019 23:23:32 eli
Solved
05.04.2019 00:42:28 Gast51224
NotSolved
05.04.2019 07:46:56 Gast11415
NotSolved
05.04.2019 07:47:17 eli
NotSolved
05.04.2019 13:31:47 Gast41541
NotSolved
06.04.2019 09:07:38 eli
NotSolved