Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
Screenshot zu CommandButton	CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema OptionButton
Screenshot zu OptionButton	OptionButton-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema ScrollBar
Screenshot zu ScrollBar	ScrollBar-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema SpinButton
Screenshot zu SpinButton	SpinButton-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema TextBox
Screenshot zu TextBox	TextBox-Seite mit Beispielarbeitsmappe aufrufen

Werte per Button kopieren

• Werte per Button kopieren von Kraichtaler vom 23.10.2014 07:06:49
• AW: Werte per Button kopieren - von Hajo_Zi am 23.10.2014 07:16:10
  • AW: Werte per Button kopieren - von Kraichtaler am 23.10.2014 10:39:51

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

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"