Ich bin mir sicher, einer von euch kann mir helfen und zwar......habe ich ein problem mit diesem makro, er soll vorgegebene zeilen durchsuchen, vergleichen und bei übereinstimmung des inhalts soll er bestimmte zeilen kopieren.......diese zeilen sollen allerdings auch noch eingefügt werden in neues blatt, in ganz bestimmten fest definierten zeilen...... hat da jemand ne idee was meinem makro fehlt??
ein weiteres problem ist es, das alle bereiche variabel sein müssen, das heißt, die inhalte werden öfter verändert, somit auch die platzierung.....
es soll von der ersten zeile/spalte in der 1 tabelle nach unten durchsucht, verglichen und kopiert werden.....
dann erst die zweite spalte der ersten...also immer die inhalte der ersten(quelle) mit den anderen zwei tabellen vergleichen und bei übereinstimmung die bestimmten zeilen in das blatt ergebnis kopieren.....
der button bzw der makro ist auf das arbeitsblatt gelegt, in dem die tabellen stehen....dank für eure hilfe..
Sub Kopieren()
Dim i As Integer
Dim j As Integer
Dim SpaltenZähler As Integer
Dim Tab2 As Boolean
Dim Tab3 As Boolean
Dim QuelleName
Dim QuellePaket
For i = 7 To 20
SpaltenZähler = 1
'Quelldaten aus der 1. Tabelle lesen
QuelleName = Cells(i, 1) ' 1 = A
QuellePaket = Cells(i, 8) ' 8 = H
'2. Tabelle überprüfen
For j = 20 To 35
If Cells(j, 2) = QuelleName And Cells(j, 17) = QuellePaket Then
'KopiereDieseZeile - Spalten B, C, G und K
Cells(j, 2).Copy (Worksheets("Ergebnis").Cells(SpaltenZähler, 8))
Cells(j, 3).Copy (Worksheets("Ergebnis").Cells(SpaltenZähler, 18))
Cells(j, 7).Copy (Worksheets("Ergebnis").Cells(SpaltenZähler, 22))
Cells(j, 11).Copy (Worksheets("Ergebnis").Cells(SpaltenZähler, 12))
Tab2 = True
End If
Next j
For j = 44 To 64
If Cells(j, 2) = QuelleName And Cells(j, 17) = QuellePaket Then
'KopiereDieseZeile - Spalten B, C, G und K
Cells(j, 3).Copy (Worksheets("Ergebnis").Cells(SpaltenZähler, 17))
Cells(j, 7).Copy (Worksheets("Ergebnis").Cells(SpaltenZähler, 21))
Cells(j, 11).Copy (Worksheets("Ergebnis").Cells(SpaltenZähler, 11))
Tab3 = True
End If
Next j
If Tab2 = True Or Tab3 = True Then
SpaltenZähler = SpaltenZähler + 1
Tab2 = False
Tab3 = False
End If
Next i
End Sub
lieber gruß tina
|