Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema OptionButton
BildScreenshot zu OptionButton OptionButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ScrollBar
BildScreenshot zu ScrollBar ScrollBar-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema SpinButton
BildScreenshot zu SpinButton SpinButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Werte per Button kopieren

Betrifft: Werte per Button kopieren von: Kraichtaler
Geschrieben am: 23.10.2014 07:06:49

Hallo zusammen,

ich stehe gerade vor einem Rätzel. Ich will den Inhalt von zwei Zellen in ein anderes Excel-File schreiben und .....scheitere.
Wie bin ich vorgegangen ? Ich habe den ganzen Prozeß per Makro aufgezeichnet und habe dann den Inhalt des Makros in eine Sub eines Buttons eingefügt. So habe ich das eigentlich schon öfter gemacht.
Wenn ich jetzt über den Button das ganze ausführen will kommt die Fehlermeldung "Die Select-Methode des Range-Objekts konnte nicht ausgeführt werden"
Hier mal noch das Makro. Es bleibt an der Stelle "Range("E11").Select" hängen. Weiß mir jemand zu helfen ? Wäre super.
Viele Grüße
Jürgen

Private Sub M1_P3500H_Click()
    Range("G2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Muster-Zertifikat.xlsx").Activate
    Range("E11").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("AV_Rohdaten_Muster.xlsm").Activate
    Range("H2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Muster-Zertifikat.xlsx").Activate
    Range("F11").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("AV_Rohdaten_Muster.xlsm").Activate
    Range("F2").Select
End Sub

  

Betrifft: AW: Werte per Button kopieren von: Hajo_Zi
Geschrieben am: 23.10.2014 07:16:10

Hallo Jürgen,

Select, Activate usw. ist in VBA zu 99,9% nicht notwendig.
Der Cursor ist kein Hund der überall rumgeführt werden muss.
Hinweise zu select usw. Hajo-Excel.de
Hinweise zu select usw. Online-Excel.de
Hinweise zu select usw. Online-Excel.de

Option Explicit

Private Sub M1_P3500H_Click()
    Range("G2").Copy
    Windows("Muster-Zertifikat.xlsx").Range("E11").PasteSpecial Paste:=xlPasteValues
    Windows("AV_Rohdaten_Muster.xlsm").Range("H2").Copy
    Windows("Muster-Zertifikat.xlsx").Range("F11").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
End Sub
GrußformelHomepage


  

Betrifft: AW: Werte per Button kopieren von: Kraichtaler
Geschrieben am: 23.10.2014 10:39:51

perfekt......passt.
Ein herzliches Dankeschön für Deine Mühe Hajo.
viele Grüße
Jürgen


 

Beiträge aus den Excel-Beispielen zum Thema "Werte per Button kopieren"