wie werde ich die Select los?

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Label
Bild

Betrifft: wie werde ich die Select los? von: Peter Feustel
Geschrieben am: 14.03.2005 12:15:12

Hallo Excel Experten,

ich habe mir ein Makro aufgezeichnet und werde nun die SELECTS nicht los.
Excel behauptet immer es unterstütze die Methode nicht.

Wer beseitigt die Selects für mich?

Für eure Hilfe bereits vielen Dank im voraus.

Gruß Peter



Sub Shapes_transferieren()
'
' Shapes_transferieren Makro
' Makro am 14.03.2005 von Peter Feustel aufgezeichnet
'
    Application.CommandBars("Control Toolbox").Visible = True
    Sheets("Images").Select
    ActiveSheet.Shapes("Image1").Copy
    Sheets("Tabelle5").Select
    Range("F15").Select
    ActiveSheet.Paste
    Sheets("Images").Select
    ActiveSheet.Shapes("Label1").Copy
    Sheets("Tabelle5").Select
    Range("F21").Select
    ActiveSheet.Paste
    Sheets("Images").Select
    ActiveSheet.Shapes("Label2").Copy
    Sheets("Tabelle5").Select
    Range("H15").Select
    ActiveSheet.Paste
    Sheets("Images").Select
    ActiveSheet.Shapes("Label3").Copy
    Sheets("Tabelle5").Select
    Range("E15").Select
    ActiveSheet.Paste
    Sheets("Images").Select
    ActiveSheet.Shapes("Label4").Copy
    Sheets("Tabelle5").Select
    Range("F8").Select
    ActiveSheet.Paste
    Application.CommandBars("Control Toolbox").Visible = False
    Range("A1").Select
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Bild


Betrifft: AW: wie werde ich die Select los? von: Uduuh
Geschrieben am: 14.03.2005 12:28:34

Hallo,
nach diesem Schema:
Sheets("Images").Shapes("Image1").Copy
Sheets("Tabelle5").Paste
Selection.Top = Range("F15").Top
Selection.Left = Range("F15").Left

Gruß aus'm Pott
Udo



Bild


Betrifft: zumindest so: von: IngoG
Geschrieben am: 14.03.2005 12:28:47

Hallo Peter,

versuchs mal so...

Gruß Ingo

Sub Shapes_transferieren()
'
' Shapes_transferieren Makro
    Application.CommandBars("Control Toolbox").Visible = True
    Sheets("Images").Shapes("Image1").Copy
    Sheets("Tabelle5").Range("F15").Paste
    Sheets("Images").Shapes("Label1").Copy
    Sheets("Tabelle5").Range("F21").Paste
    Sheets("Images").Shapes("Label2").Copy
    Sheets("Tabelle5").Range("H15").Paste
    Sheets("Images").Shapes("Label3").Copy
    Sheets("Tabelle5").Range("E15").Paste
    Sheets("Images").Shapes("Label4").Copy
    Sheets("Tabelle5").Range("F8").Paste
    Application.CommandBars("Control Toolbox").Visible = False
'   Range("A1").Select
End Sub



Bild


Betrifft: AW: zumindest so: von: Peter Feustel
Geschrieben am: 14.03.2005 12:44:20

Hallo Ingo

in der Zeile 'Sheets("Tabelle5").Range("F15").Paste' steigt Excel mit Fehler 348 - Objekt unterstützt diese Eigenschaft oder Methode nicht aus.

Ich muss wohl meine Select behalten - schade.



Viele Grüße Peter


Bild


Betrifft: AW: dann so ;-) sorry my fault von: ingoG
Geschrieben am: 14.03.2005 13:04:29

Hallo nochmal,

stimmt nat.

folgende Lösung hat jetzt aber bei mir gefunzt

Gruß Ingo

Sub Shapes_transferieren()
'
' Shapes_transferieren Makro
    Application.CommandBars("Control Toolbox").Visible = True
    Sheets("Images").Shapes("Image1").Copy
    Sheets("Tabelle5").Paste Destination:=Sheets("Tabelle5").Range("F5")
    Sheets("Images").Shapes("Label1").Copy
    Sheets("Tabelle5").Paste Destination:=Sheets("Tabelle5").Range("F21")
    Sheets("Images").Shapes("Label2").Copy
    Sheets("Tabelle5").Paste Destination:=Sheets("Tabelle5").Range("H15")
    Sheets("Images").Shapes("Label3").Copy
    Sheets("Tabelle5").Paste Destination:=Sheets("Tabelle5").Range("E15")
    Sheets("Images").Shapes("Label4").Copy
    Sheets("Tabelle5").Paste Destination:=Sheets("Tabelle5").Range("F8")
    Application.CommandBars("Control Toolbox").Visible = False
'   Range("A1").Select
End Sub



Bild


Betrifft: AW: danke nun läuft es von: Peter Feustel
Geschrieben am: 14.03.2005 13:25:21

Hallo Ingo,

nun läuft es! Danke für die Hilfe


Viele Grüße Peter


Bild


Betrifft: Danke für die Rückmeldung oT von: IngoG
Geschrieben am: 14.03.2005 14:34:20

.


Bild


Betrifft: AW: wie werde ich die Select los? von: Volker
Geschrieben am: 14.03.2005 12:31:35

Hallo Peter,

statt

Application.CommandBars("Control Toolbox").Visible = True
Sheets("Images").Select
ActiveSheet.Shapes("Image1").Copy
Sheets("Tabelle5").Select
Range("F15").Select
ActiveSheet.Paste
....

ungetestet:

Application.CommandBars("Control Toolbox").Visible = True
Sheets("Images").Shapes("Image1").Copy
Sheets("Tabelle5").Range("F15").Paste

oder mit with:

with Sheets("Images")
.Shapes("Image1").Copy
end with
with Sheets("Tabelle5").Range("F15")
.Paste
end with

oder hast Du das schon versucht?

Gruß
Volker


 Bild

Beiträge aus den Excel-Beispielen zum Thema "wie werde ich die Select los?"