Zelleninhalt in andere Tabelle kopieren
27.05.2020 11:32:22
Markus
ich habe folgendes Problem: Ich möchte Inhalte aus Tabelle ("ImportXML") in Tabelle ("Tabelle1") kopieren. Die Tabelle ImportXML wird mittels VBA aus einer XML erstellt. Tabelle 1 ist vorgegeben. Nach erfolgreichem kopieren wird die Tabelle ImportXML wieder gelöscht.
Alles klappt wie gewünscht, zumindest solange ich den Code zum Kopieren für die ersten beiden Zellen (ImportXML A2 und ImportXML B2) weglasse oder auskommentiere.
Lasse ich die 4 Zeilen drin, wird der Rest zwar auch korrekt kopiert und eingefügt nicht aber die zwei ersten Zellen. Zudem heißt die Tabelle dann ImportXMLImportXML und wird folglich auch nicht mehr gelöscht
Eine Vermutung: Die Zielzellen für die ersten zwei Zellen (Tabelle1 A3 und Tabelle1 A2) sind verbunden (A3:I3 und A2:I2).
Ich habe schon probiert die Zellen komplett anzusprechen mit .Range("A3:I3").PasteSpecial xlPasteValues, aber auch das funkionierte nicht.
Wo könnte das Problem liegen
Sub setÜberschrift(wks As Excel.Worksheet)
With wks
Sheets("ImportXML").Range("A2").Copy
Sheets("Tabelle1").Range("A3").PasteSpecial xlPasteValues
Sheets("ImportXML").Range("B2").Copy
Sheets("Tabelle1").Range("A2").PasteSpecial xlPasteValues
Sheets("ImportXML").Range("C2").Copy
Sheets("Tabelle1").Range("H5").PasteSpecial xlPasteValues
Sheets("ImportXML").Range("D2").Copy
Sheets("Tabelle1").Range("H6").PasteSpecial xlPasteValues
Sheets("ImportXML").Range("E2").Copy
Sheets("Tabelle1").Range("H7").PasteSpecial xlPasteValues
End With
With wks
Application.DisplayAlerts = False
ActiveWorkbook.Worksheets("ImportXML").Delete
Application.DisplayAlerts = True
End With
End Sub