Thema Datum  Von Nutzer Rating
Antwort
Rot Kopieren bestimmter Werte in anderes Worksheet
 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
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:
31.03.2014 12:57:44		 Views:
1661		 Rating:
     
Antwort:
  Ja
Thema:
Kopieren bestimmter Werte in anderes Worksheet

Hallo,

Ich habe mehrere Dateien mit unterschiedlich vielen Worksheets. In WKS 1 sind meine gesamten Daten abgelegt. Diese sind über die ersten drei Zellen eindeutig definiert. In den WKS 2-X sind die Daten aus WKS 1 sortiert, es ist also nur eine Auswahl der Daten aus WKS 1, jedoch nur die ersten drei Zellen mit dem man sie eindeutig identifizieren kann. Jetzt möchte ich die darauffolgenden Zellen aus WKS1 ind das aktuelle WKS kopieren, wenn die ersten drei Zellen identisch sind.

Ich habe mich schonmal an eine Code versucht, der funktioniert aber leider nicht. Er springt immer bei "wks2.Column(1).Select" raus.

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

Range("A1").Select
iCounter = Selection.CurrentRegion.Rows.Count

For ws = 2 To wscounter

    Set wks2 = Worksheets(ws)
    
    
    wks2.Column(1).Select
    yCounter = Selection.CurrentRegion.Rows.Count
    
    
    For y = 2 To yCounter
    
        For i = 2 To iCounter
        
        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 wks2.Rows(y)
        
        End If
        Next
        
    Next
    End

Next
End

End Sub

 

Vielen Dank für die Hilfe

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
Rot Kopieren bestimmter Werte in anderes Worksheet
 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
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