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
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.
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
Hallöchen,
statt
Zitat: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.
Zitat: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
ich kopiere eine internet seite und füge die in excell ein, und der inhalt steht nur bis zu dieser Zeile
Hallöchen,
ok. Wenn die Seite aus dem Internet nun 20 Zeilen breit ist, wie viele Spalten ist sie dann lang?
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
