|
Hallo,
wenn man eine Tabelle als "Overview" benennt und die folgenden Daten ab Zelle A1 einfügt, läuft das VBA-Code nicht fehlerfrei durch:
| |
|
|
[1] |
| 01.01.2024 |
01.02.2024 |
01.03.2024 |
|
| 1 |
1 |
1 |
|
| 2 |
2 |
2 |
|
| 3 |
3 |
3 |
|
| 4 |
4 |
4 |
|
| 5 |
5 |
5 |
Sub TEST()
Dim ow As Worksheet
Dim LastColumn As Range
Dim rng1 As Range
Dim TargetCol As Range
Dim SourceCol As Range
Dim LastRow As Long
Dim LastColumn1 As Long
Set ow = ThisWorkbook.Sheets("Overview")
LastColumn1 = ow.Cells(1, ow.Columns.Count).End(xlToLeft).Column
Set rng1 = ow.Cells.Find("[1]", LookIn:=xlValues)
ow.Range(rng1, ow.Cells(ow.Rows.Count, rng1.Column)).EntireColumn.Insert
Set TargetCol = rng1.Offset(0, -1)
Set SourceCol = rng1.Offset(0, -2)
LastRow = ow.Cells(ow.Rows.Count, SourceCol.Column).End(xlUp).Row
SourceCol.AutoFill Destination:=TargetCol, Type:=xlFillDefault
TargetCol.Formula = "=" & SourceCol.Address
End Sub
Die Ausführung wiird in der vorletzten Zeile gestoppt:
SourceCol.AutoFill Destination:=TargetCol, Type:=xlFillDefault
Fehlermeldung: Laufzeitfehler 1004: Die Autofill-Methode des Range-Objektes konnte n icht ausgeführt werden.
|