Thema Datum  Von Nutzer Rating
Antwort
09.04.2024 14:22:48 Tina
NotSolved
23.04.2024 09:38:45 Ben
NotSolved
Rot Neue Spalte neben String + Formel Flash Fill
23.04.2024 09:53:07 Ben
NotSolved
23.04.2024 10:04:18 Gast5287
NotSolved
23.04.2024 11:57:56 Ben
NotSolved
23.04.2024 22:13:42 Nobody
NotSolved
23.04.2024 12:40:25 Gast74119
NotSolved
24.04.2024 18:59:17 Gast67816
NotSolved

Ansicht des Beitrags:
Von:
Ben
Datum:
23.04.2024 09:53:07
Views:
84
Rating: Antwort:
  Ja
Thema:
Neue Spalte neben String + Formel Flash Fill

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.


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
09.04.2024 14:22:48 Tina
NotSolved
23.04.2024 09:38:45 Ben
NotSolved
Rot Neue Spalte neben String + Formel Flash Fill
23.04.2024 09:53:07 Ben
NotSolved
23.04.2024 10:04:18 Gast5287
NotSolved
23.04.2024 11:57:56 Ben
NotSolved
23.04.2024 22:13:42 Nobody
NotSolved
23.04.2024 12:40:25 Gast74119
NotSolved
24.04.2024 18:59:17 Gast67816
NotSolved