Könnt ihr mir helfen? Wenn in Zeile 1 Name steht soll er diese Spalte bis zur ersten leeren zeile in ein anderes blatt kopieren!
Vielen Dank im Voraus!
Mfg David
Sub test()
If ActiveSheet.Columns(1).Find("Name") <> "" Then
activehseet.Columns(1).Copy Workbooks("Datei2.xls").Worksheets("Tabelle2").Columns(1)
End If
End Sub