Spaltenüberschriften suchen und Spalten kopieren
27.07.2016 20:45:52
SoHam
Möchte gerne ein Makro machen mit dem man in dem Blatt newData jede Spaltenüberschrift nimmt und in dem Blatt importedData sucht, diese Spalte dann kopiert und in newData einfügt.
Ich kann gar nicht programmieren und habe ein paar Code Sachen gesucht.
Bei "Set whatToFind" kommt immer ein Fehler das ein Objekt erforderlich ist.
Was ist da denn falsch?
Ich wollte statt er anstatt nach "city" zu suchen nach jeder Spaltenüberschrift sucht
Sub SucheundKopieren()
Dim i As Integer
Dim Treffer As Range
Dim whatToFind As String
Dim LastColumn As Integer
Set whatToFind = newData.Cells(1, i).Value
newData.Activate
For i = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
With ImportedData
Set Treffer = .Rows(1).Find(what:="city", lookat:=xlWhole)
If Treffer Is Nothing Then
MsgBox "Spalte mit Wert wurde nicht gefunden"
Else
.Columns(Treffer.Column).Copy Destination:=newData.Range("A1")
End If
End With
Next i
End Sub
Grüsse
Daniel