Thema Datum  Von Nutzer Rating
Antwort
31.03.2014 12:57:44 Christian
NotSolved
31.03.2014 14:16:31 Gast9382
Solved
31.03.2014 20:40:44 Gast43209
NotSolved
01.04.2014 03:33:22 Gast9382
NotSolved
Rot Kopieren bestimmter Werte in anderes Worksheet
 01.04.2014 17:37:39 Christian
NotSolved
01.04.2014 20:21:09 Gast91664
NotSolved
01.04.2014 20:52:18 Gast15280
Solved
01.04.2014 20:55:31 Gast43032
NotSolved
02.04.2014 10:45:38 Christian
NotSolved

Ansicht des Beitrags:
Von:
Christian		 Datum:
01.04.2014 17:37:39		 Views:
842		 Rating:
     
Antwort:
  Ja
Thema:
Kopieren bestimmter Werte in anderes Worksheet

Hallo,

Hier ist nochmal der veränderte Code:

Sub Test()
 
Dim dValue As Double
Dim iCounter As Integer
Dim i As Integer
Dim yCounter As Integer
Dim y As Integer
Dim wscounter As Integer
Dim ws As Integer
Set wks1 = Worksheets(1)
 
wscounter = Worksheets.Count

 
iCounter = wks1.Range("A1").CurrentRegion.Rows.Count
 
For ws = 2 To wscounter
    
    Set wks2 = Worksheets(ws)
    yCounter = wks2.Range("A1").CurrentRegion.Rows.Count
    
     
    For i = 2 To iCounter
        
        For y = 2 To yCounter
        
         
        If wks2.Range("A" & y) = wks1.Range("A" & i) And wks2.Range("B" & y) = wks1.Range("B" & i) And wks2.Range("C" & y) = wks1.Range("C" & i) Then
         
        wks1.Rows(i).Copy Destination:=wks2.Rows(y)
         
        End If
        Next
         
    Next
    End
    
    MsgBox wks2
 
Next
End
 
End Sub

 

Das Problem ist, z.b. bei einer Datei mit 3 WKS kopiert er nur die Zeilen von WKS1 in WKS2. In WKS3 passiert jedoch nichts. Also geht scheinbar die for schleife in Z17 nicht. Ich versteheh aber nicht warum.

Gruß Christian

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
31.03.2014 12:57:44 Christian
NotSolved
31.03.2014 14:16:31 Gast9382
Solved
31.03.2014 20:40:44 Gast43209
NotSolved
01.04.2014 03:33:22 Gast9382
NotSolved
Rot Kopieren bestimmter Werte in anderes Worksheet
 01.04.2014 17:37:39 Christian
NotSolved
01.04.2014 20:21:09 Gast91664
NotSolved
01.04.2014 20:52:18 Gast15280
Solved
01.04.2014 20:55:31 Gast43032
NotSolved
02.04.2014 10:45:38 Christian
NotSolved