Aufgezeichnetes Makro - CommandButton

[TiKr0301]

Hallo Zusammen,

Ich habe das Problem das ich ein Makro aufgezeichnet habe und dieses wollte ich in einen Commandbutton einbinden, er bringt mir dann ein Fehler meldeung bei der markierten Stelle.
Kann mir hier jemand helfen? Ich verstehe nicht warum es weiter oben in Zeile 2 geht und unten nicht.
Vielen Dank schon mal.


Private Sub CommandButton3_Click()
'

    Sheets("Liste_2").Select
    Range("A2:G250").Select
    Selection.ClearContents
    Range("A2").Select
    Sheets("Liste_3").Select
    Range("A3:O250").Select
    Selection.ClearContents
    Range("A3").Select
    Sheets("Liste_1").Select
    Range("B9:O9").Select
    Selection.AutoFill Destination:=Range("B9:O185"), Type:=xlFillDefault
    Range("B9:O185").Select
    Range("A9:A250").Select
    Selection.ClearContents
    Range("A9").Select
End Sub

[Crazy Tom]

moin,

schmeiß das select raus

Code:

Private Sub CommandButton3_Click()
    Sheets("Liste_2").Range("A2:G250").ClearContents
    With Sheets("Liste_3")
        .Range("A3:O250").ClearContents
        .Range("B9:O9").AutoFill Destination:=.Range("B9:O185"), Type:=xlFillDefault
        .Range("A9:A250").ClearContents
    End With
End Sub

mfg Tom

Nachtrag, in meinem Test geht dein Code ohne Fehler durch
hast du vielleicht nen Blattschutz in Blatt Liste_3?

[TiKr0301]

Hallo Tom,

Danke erst mal, mit deinem Code klappt es.
Nein ich habe in keiner Tabelle einen Blattschutz drin.
Wenn ich das Makro normal ausführe über shortcut oder ausführung geht der Code bei mir durch nur eben nicht wenn ich in den Button einfüge.

[Crazy Tom]

probiere deinen Code mal aus wenn du vor jedes Range noch den Blattnamen setzt
offensichtlich nimmt der Code im Commandbutton immer das Blatt in dem er ist wenn kein Blattname davor steht

das heißt wenn der Commandbutton in Liste_2 ist
du schreibst dann Sheets("Liste_3").select
Range("A3:O250").Select <-- ohne Blattname davor ist es dann Blatt Liste_2
du befindest dich durch das select aber in Liste_3

[TiKr0301]

Das hätte ich eigentlich.
Ich habe in meinem ersten Beitrag mal die Sheets grün markiert.

---

Oh da war noch ein Fehler drin der dritte sheet sollte Liste 1 sein.

[Crazy Tom]

und in der Zeile drauf steht das Range ohne Blattangabe

[Kuwer]

Hallo,

vielleicht liegt es daran: http://www.online-excel.de/excel/singsel....html?f=45

Gruß, Uwe

[Crazy Tom]

ist halt immer die Krux mit dem select

der Code würde dann jetzt so aussehen

Code:

Private Sub CommandButton3_Click()
    Sheets("Liste_2").Range("A2:G250").ClearContents
    Sheets("Liste_3").Range("A3:O250").ClearContents
    With Sheets("Liste_1")
        .Range("A3:O250").ClearContents
        .Range("B9:O9").AutoFill Destination:=.Range("B9:O185"), Type:=xlFillDefault
        .Range("A9:A250").ClearContents
    End With
End Sub

[TiKr0301]

Perfekt jetzt passt es vielen Dank für deine Hilfe.
Ja das Select problem war in diesem Fall.
In anderen Codes hat es wunderbar funktioniert nur hier nicht vielleicht wirklich weil es Tabellen übergreifend ist.
Ich wünsche Dir einen schönen Nachmittag.