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?"