Nicht zusammenhängende Zellen kopieren
01.03.2023 06:30:33
Milan
ich brauche wieder Hilfe. Ich habe zwei Blätter, in der
Tabelle1 sind Daten von A2 bis M500. In der Spalte F befindet sich Suchbegriffe
Wenn alle Suchbegriffe gefunden sind soll in die Tabelle2 nur bestimmte Zellen übertragen und zwar A, B, C, D, F, J und K
Tabelle2 soll Daten speichern von B2 bis G
Für bessere Verständigung habe ich eine BeispielMappe hochgeladen.
https://www.herber.de/bbs/user/158067.xlsm
Die Code habe ich Netz gefunden und etwas manipuliert dass es in etwa funktioniert,
aber es kann auch bessere Idee her.
Vieleicht hat sich jemand damit schon auseinader gesetzt.
Danke in voraus
Sub Kopieren_Einfügen()
Application.ScreenUpdating = False
Dim rng As Range, i As Long, j As Long
Range("B2:L500").ClearContents
With Sheets("Tabelle1")
For i = 2 To 500
If .Cells(i, 6).Value = "Suchbegriff" Then
.Range(.Cells(i, 1), .Cells(i, 11)).
j = j + 2
With Sheets("Tabelle2").Cells(j, 2)
.PasteSpecial Paste:=xlPasteValues
'.PasteSpecial Paste:=xlPasteFormats
End With
End If
Next i
End With
Worksheets("Tabelle2").Sort.SortFields.Clear
Range("B1:L500").Sort Key1:=Range("C2"), Header:=xlYes
Application.ScreenUpdating = True
End Sub