|
Hallo Werner,
ich habe dein Makro jetzt noch mal in eine Beispiel-Datei kopiert und ausgeführt. Der Fehler lag bei mir - dein Makro funktioniert perfekt!
Ursache war, dass die erste Zeile des zu kopierenden Bereichs eine verbundene Zelle war (über 7 Spalten) und somit eben nicht immer Daten vorhanden waren.
Ich habe die obere Zeile mit der verbundenen Zelle jetzt einfach aus dem Bereich ausgeschlossen - spielt keine große Rolle.
Das Thema nur Formate und Werte kopieren funktioniert nun auch - anbei die komplette Lösung.
Sub kopieren_einfuegen_nebeneinander()
Dim loSpalte As Long
loSpalte = Worksheets("Tabelle2").Cells(1, Columns.Count).End(xlToLeft).Column + 1
Worksheets("Tabelle1").Range("B5:H28").Copy
With Worksheets("Tabelle2").Cells(1, loSpalte)
.PasteSpecial Paste:=xlValues ' Werte
.PasteSpecial Paste:=xlFormats ' Formate
End With
Application.CutCopyMode = False
End Sub
Vielen Danke für deine Unterstützung, Werner!
|