ich möchte gern bestimmte Spalten anhand der Überschrift kopieren.
Dazu habe ich das untenstehende Makro umgebaut. Das kopieren klappt schon mal ganz gut. Nur leider komme ich mit dem einfügen nicht klar
Zur Zeit ist es so das die Überschrift in der Quelle in Zeile 10 steht und das Makro kopiert die Daten in die Zieltabelle ab Zelle A10. Ich benötige aber die Daten aber ab zelle B2.
kann sich dies mal bitte jemand anschauen und mir ein tipp geben?
liebe grüsse thomas
https://www.herber.de/bbs/user/99834.xls
Public Sub SpaltenKopieren()
Dim lastColumn As Integer
Dim wbFrom As Workbook
Dim wsFrom As Worksheet
Dim wsTo As Worksheet
Dim i As Integer
Application.ScreenUpdating = False
'Sheet, in das die Daten eingefügt werden
Set wsTo = ActiveWorkbook.Sheets("Tabelle1")
'wsTo.Cells.Clear
'Datendatei öffnen und letzte verwendete Spalte ermitteln
Set wbFrom = ActiveWorkbook
Set wsFrom = wbFrom.Sheets("Input1")
lastColumn = Sheets("Input1").Cells(10, Columns.Count).End(xlToLeft).Column
'alle verwendeten Spalten durchlaufen und überprüfen,
'ob Wert in erster Zelle einem gesuchten Wert entspricht
'wenn ja, Spalte kopieren
For i = 1 To lastColumn ' die Zahl ist die spalte
Select Case wsFrom.Cells(10, i).Text
Case "Nummer"
wsFrom.Columns(i).Copy
wsTo.Columns(1).PasteSpecial xlPasteAll
Case "Bezeichnung"
wsFrom.Columns(i).Copy
wsTo.Columns(2).PasteSpecial xlPasteAll
Case "Geprüft"
wsFrom.Columns(i).Copy
wsTo.Columns(3).PasteSpecial xlPasteAll
Case "Offen"
wsFrom.Columns(i).Copy
wsTo.Columns(4).PasteSpecial xlPasteAll
Case "Erledigt"
wsFrom.Columns(i).Copy
wsTo.Columns(5).PasteSpecial xlPasteAll
Case "In Bearbeitung"
wsFrom.Columns(i).Copy
wsTo.Columns(6).PasteSpecial xlPasteAll
Case "Verkauf"
wsFrom.Columns(i).Copy
wsTo.Columns(7).PasteSpecial xlPasteAll
End Select
Next
Application.ScreenUpdating = True
End Sub