AW: Bestimmte Spalten kopieren bis letzte Zeile
18.05.2016 20:29:17
Werner
Hallo Markus,
versuch mal
Sub übertragen()
Dim zuSuchen, i
Dim loLetzte As Long
zuSuchen = Array("Spalte A", "Spalte C", "Spalte E", "Spalte F")
With Sheets("Tabelle1")
loLetzte = .Cells(Rows.Count, 1).End(xlUp).Row
For i = 0 To UBound(zuSuchen)
Set suche = .Rows(1).Find(zuSuchen(i), lookat:=xlWhole)
If Not suche Is Nothing Then
.Range(.Cells(1, suche.Column), .Cells(loLetzte, suche.Column)).Copy _
ThisWorkbook.Sheets("Tabelle2").Cells(1, i + 1)
Else
MsgBox zuSuchen(i) & " wurde nicht gefunden"
End If
Next
End With
Gruß Werner
End Sub