Hallo liebe Macro Spezialisten,
ich habe folgendes Macro zusammengebastelt. Diese Macros soll eine Kopie von einem Blatt erstellen, ein neues oeffnen und darein kopieren und anschliessend, basierend auf Zelle M1 speichern als:"". Es klappt auch wunderbar wenn ich den macro laufen lasse, allerdings wenn ich den Macro kopiere und dann in einen Button reinspeichere (also das macro einem Button zuweisen, dann bleibt er immer bei der vierten Zeile haengen („Cells.Select“)
Weiss jemand Rat?
Ich moechte den Macro ueber einen Button laufen lassen, da meine Kollegen sich nicht mit dem Macro-Zeugs auskennen.
Vielen Dank fuer Hilfe
euer Ingo
Cells.Select
Selection.Copy
Workbooks.Add
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range(„A1“).Select
If NewName = „“ Then
str1 = Range(„N1“)
Else
str1 = NewName
End If
ck = Application.Dialogs(xlDialogSaveAs).Show(str1)
If ck = True Then
NewName = ActiveWorkbook.Name
End If
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range(„A1“).Select
If NewName = „“ Then
str1 = Range(„N1“)
Else
str1 = NewName
End If
ck = Application.Dialogs(xlDialogSaveAs).Show(str1)
If ck = True Then
NewName = ActiveWorkbook.Name
End If
end sub
Salute Jamiro,
Vielen Dank fuer die Muehe bin echt froh das Du mir hilfts.
Aber sorry, irgendwie raff ich das jetzt nicht, ich muss naemlich gestehen das ich eher noch Laie bin, der nur Macros recorded und dann nach Bedarf abaendert, aber mit dem „lesen“ hab ich so meine Probleme. Irgendwas am Anfang deines Makros ist nicht ganz richtig. Kannst du ihn bitte so schreiben das ich ihn nur noch in ein Button reinkopiere?
Vielen, vielen Dank.
P.S: wieso konnte ich meinen Code nicht ueber den Button laufen lassen. Ich hatte naemlich auch versucht ein Macro zu recorden den den Start des Macros ausloest, aber das geht auch nicht da das Workbook sich laufend im Namen aendert!!!
Liebe Gruesse in die Schweiz aus Australien
Sag Hallo zu meinen Baslern und dem Joggeli…
Ingo
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Bitte nur den Text mitquoten, den Du noch brauchst
Wenn Du ihn stehen lässt dann schreib Deine Antwort darüber. Das erspart das scrollen
erwarte nicht von anderen, dass sie Dir Dein Problem komplett lösen…
Aber sorry, irgendwie raff ich das jetzt nicht, ich muss
naemlich gestehen das ich eher noch Laie bin, der nur Macros
recorded und dann nach Bedarf abaendert, aber mit dem „lesen“
hab ich so meine Probleme.
Vielleicht haben Deine Kollegen ja noch mehr Ahnung als Du? *fg*
Irgendwas am Anfang deines Makros
ist nicht ganz richtig. Kannst du ihn bitte so schreiben das
ich ihn nur noch in ein Button reinkopiere?
Was meinst Du mit reinkopieren?
Du kannst mit Buttons direkt ein Makro zuweisen oder Du kannst den Code in das Steuerelement kopieren.
Zweiteres führt definitiv zu fehlern.
Vielen, vielen Dank.
P.S: wieso konnte ich meinen Code nicht ueber den Button
laufen lassen. Ich hatte naemlich auch versucht ein Macro zu
recorden den den Start des Macros ausloest, aber das geht auch
nicht da das Workbook sich laufend im Namen aendert!!!
Und?
Da wirst Du nicht dran vorbei kommen, denn der Focus liegt nach dem Klicken auf dem Button und damit schlägt das Cells.Select wohl fehl.
ich kann dir zwar nicht helfen, deinen Makro zu verbessern, da müsste ich selbst ein bisschen probieren und forschen.
Fragen:
Warum kopierst du ein Blatt mit Paste 'n Copy? Da gibt’s doch die Funktion „Blatt kopieren/verschieben“ im Menü „Bearbeiten“. Recorde die einfach mal mit. Nicht vergessen, „Kopieren“ unten links anzukreuzen! Damit kannst du Blätter in derselben Mappe oder in andere Mappen kopieren/verschieben.
Was meinst du genau mit Makro einem Button zuweisen? Hast du irgendwo einen Button, mit dem du deinen Makro aktivieren willst?
Sowas mache ich mit: Rechtsklick irgendwo in die Symbolleisten - „Anpasssen“ wählen - nochmal Rechtsklick auf deinen Button - „Makro zuweisen“ wählen - im aufgehenden Fensterchen deinen Makro auswählen. Auch das kannst du mal mitrecorden.
Bitte nur den Text mitquoten, den Du noch brauchst
…vielleicht brauch ich ihn nicht aber der der meine Antwort liest.
Wenn Du ihn stehen lässt dann schreib Deine Antwort
darüber. Das erspart das scrollen
wenn das scrollen zu muehselig ist, dann erspar dir doch das Antworten, oder besser noch das lesen. *gg*
erwarte nicht von anderen, dass sie Dir Dein Problem
komplett lösen…
Erwarten tue ich garnichts, sonst haette ich nicht nochmal nachgefragt, wieso das mit dem cells.select nicht funktioniert. Im uebrigen liegt das in der Entscheidungsmacht eines jeden einzelnen wer inwieweit bereit ist einer dritten Person zu helfen. In anderen Worten: MYOB
Aber sorry, irgendwie raff ich das jetzt nicht, ich muss
naemlich gestehen das ich eher noch Laie bin, der nur Macros
recorded und dann nach Bedarf abaendert, aber mit dem „lesen“
hab ich so meine Probleme.
Vielleicht haben Deine Kollegen ja noch mehr Ahnung als Du?
*fg*
Haben sie ganz bestimmt nicht!!! Sie wissen garnichts ueber Macros sonst wuerden sie es ja wohl selber machen.
Irgendwas am Anfang deines Makros
ist nicht ganz richtig. Kannst du ihn bitte so schreiben das
ich ihn nur noch in ein Button reinkopiere?
Was meinst Du mit reinkopieren?
Du kannst mit Buttons direkt ein Makro zuweisen oder Du kannst
den Code in das Steuerelement kopieren.
Zweiteres führt definitiv zu fehlern.
Vielen, vielen Dank.
P.S: wieso konnte ich meinen Code nicht ueber den Button
laufen lassen. Ich hatte naemlich auch versucht ein Macro zu
recorden den den Start des Macros ausloest, aber das geht auch
nicht da das Workbook sich laufend im Namen aendert!!!
Und?
Da wirst Du nicht dran vorbei kommen, denn der Focus liegt
nach dem Klicken auf dem Button und damit schlägt das
Cells.Select wohl fehl.
…ach was, echt? Danke das du das so beilaeufig erwaehnst, denn ich haette fast vergessen um was es jetzt ging!