Hallo zusammen,
ich möchte bestimmte Spalten aus einem externen Excel File auslesen und in mein eigenes kopieren!
Mit folgendem Code klappt das schon recht gut, aber ich hab noch ein kleines Problem damit!
Es wird in der 3. Zeile des externen Files nach bestimmten Worten gesucht. Hier z.B. Status. Jetzt gibt es aber zwei Spalten die mit Status beginnen:
"Status neu" und "Status alt" jeweils mit einem Zeilenumbruch mit ALT + ENTER!
Wenn der Zeilenumbruch nicht mit ALT + ENTER realisiert wäre, hätte ich kein Problem, aber in dem externen File kann nichts verändert werden!
Ich möchte aber nur eine der Spalten haben, wie kann ich das in meine Abfrage einfügen?
With ActiveSheet.Range("A3:P3")
Set a = .Find("Status")
If Not a Is Nothing Then
firstAddress = a.Address
Do
a.Select
ActiveSheet.Range(.Cells(ActiveCell.Row, ActiveCell.Column), .Cells(ActiveCell.Row + 100, ActiveCell.Column)).Select
Selection.Copy
Workbooks(szOrigName).Activate
ActiveSheet.Cells(2, 2).Select
ActiveSheet.Paste
Workbooks(szTargName).Activate
Set a = .FindNext(a)
Loop While Not a Is Nothing And a.Address firstAddress
End If
End With
Gruß
Christian