Einfüge Meldung

[Enclave]

ich bekomme beim einfügen folgende Meldung:

Die einzufügenden Daten haben nicht die gleiche Größe wie der ausgewähltebereich. möchten Sie sie trotzdem einfügen?

wie bekomme ich diese Meldung beim einfügen weg?

Code:

Sub Anwesenheit()

Application.ScreenUpdating = False
Sheets("ALO").Select
    Columns("A:T").Select
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False, NoHTMLFormatting:=True
Sheets("Mittagspausen verteilen").Select
Application.ScreenUpdating = True

End Sub

[Klaus-Dieter]

Hallo,

du Kopierst ein komplettes Blatt und versuchst die Inhalte in zwanzig Spalten einzufügen. 

Zusatz-Tipp: verzichte auf die Selekt-Anweisung, die ist überflüssig.

[Enclave]

danke für den Hinweis mit select

ich kann aber nur die ganze Seite einfügen (die Seite ist aber nur 20 Zeilen Breit)

also vom Inhalt passt alles.

Nur die Meldung stört mich

[schauan]

Hallöchen,

statt

Columns("A:T").Select

Cells(1,1).Select

oder auch gleich nur in A1 einfügen. Beim Ziel reicht in der Regel die linke obere Ecke als Angabe.

ich kann aber nur die ganze Seite einfügen (die Seite ist aber nur 20 Zeilen Breit)

eine Seite ist bestimmt nicht 20 Zeilen breit

[Enclave]

ich kopiere eine internet seite und füge die in excell ein, und der inhalt steht nur bis zu dieser Zeile

[schauan]

Hallöchen,

ok. Wenn die Seite aus dem Internet nun 20 Zeilen breit ist, wie viele Spalten ist sie dann lang?

[Enclave]

maximal 200. Zeichen

aber dein Tipp mit cells(1.1) hat schon geholfen, Fehlermeldung kommt nicht mehr und alles ist schick  


Danke euch nochmal für eure Hilfe