Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
840to844
840to844
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro aufgezeichnet - Button geht nicht

Forumthread: Makro aufgezeichnet - Button geht nicht

Makro aufgezeichnet - Button geht nicht
28.01.2007 14:06:26
Gordon
Moin,
ich mal wieder. Ich habe ein Makro aufgezeichnet. Wenn ich es jetzt so ausführe geht es. Wenn ich es aber mit einem Button verbinde, geht es nicht bzw. Excel meckert rum. Woran kann das liegen?
Gruß
Gordon
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Hokus Pokus....
28.01.2007 14:38:38
Ramses
Hallo
... geht schon wieder nicht mit der Kristallkugel ;-)
WAS geht nicht ?
Zeig mal den Code
Beschreibe was du damit machen willst.
Gruss Rainer
AW: Hokus Pokus....
29.01.2007 11:39:46
Gordon
So,
das ist die Aufzeichnung:

Sub Import()
' Import Makro
Sheets("HD A").Select
Range("A12:C21").Select
Selection.Copy
Sheets("Spieplan Doppel").Select
Range("D3:D12").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.UnMerge
Sheets("HD A").Select
ActiveWindow.SmallScroll Down:=20
Range("A34:C43").Select
Selection.Copy
Sheets("Spieplan Doppel").Select
Range("D13:D22").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.UnMerge
Sheets("HD A").Select
Range("A55:C64").Select
Selection.Copy
Sheets("Spieplan Doppel").Select
Range("D23:D32").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.UnMerge
Sheets("HD A").Select
ActiveWindow.SmallScroll Down:=20
Range("A77:C86").Select
Selection.Copy
Sheets("Spieplan Doppel").Select
Range("D33:D42").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.UnMerge
Sheets("HD A").Select
ActiveWindow.SmallScroll Down:=20
Range("A100:C109").Select
Selection.Copy
Sheets("Spieplan Doppel").Select
Range("D43:D52").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.UnMerge
Sheets("HD B").Select
Range("A12:C21").Select
Selection.Copy
Sheets("Spieplan Doppel").Select
Range("D53:D62").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.UnMerge
Sheets("HD B").Select
ActiveWindow.SmallScroll Down:=20
Range("A34:C43").Select
Selection.Copy
Sheets("Spieplan Doppel").Select
Range("D63:D72").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.UnMerge
Sheets("HD B").Select
Range("A55:C64").Select
Selection.Copy
Sheets("Spieplan Doppel").Select
Range("D73:D82").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.UnMerge
Sheets("HD B").Select
ActiveWindow.SmallScroll Down:=20
Range("A77:C86").Select
Selection.Copy
Sheets("Spieplan Doppel").Select
Range("D83:D92").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.UnMerge
Sheets("HD B").Select
ActiveWindow.SmallScroll Down:=20
Range("A100:C109").Select
Selection.Copy
Sheets("Spieplan Doppel").Select
Range("D93:D102").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.UnMerge
Sheets("HD C").Select
Range("A12:C21").Select
Selection.Copy
Sheets("Spieplan Doppel").Select
Range("D103:D112").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.UnMerge
Sheets("HD C").Select
ActiveWindow.SmallScroll Down:=20
Range("A34:C43").Select
Selection.Copy
Sheets("Spieplan Doppel").Select
Range("D113:D122").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.UnMerge
Sheets("HD C").Select
Range("A55:C64").Select
Selection.Copy
Sheets("Spieplan Doppel").Select
Range("D123:D132").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.UnMerge
Sheets("HD C").Select
ActiveWindow.SmallScroll Down:=20
Range("A77:C86").Select
Selection.Copy
Sheets("Spieplan Doppel").Select
Range("D133:D142").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.UnMerge
Sheets("DD A").Select
Range("A12:C21").Select
Selection.Copy
Sheets("Spieplan Doppel").Select
Range("D143:D152").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.UnMerge
Sheets("DD A").Select
ActiveWindow.SmallScroll Down:=20
Range("A34:C43").Select
Selection.Copy
Sheets("Spieplan Doppel").Select
Range("D153:D162").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.UnMerge
Sheets("DD A").Select
Range("A55:C64").Select
Selection.Copy
Sheets("Spieplan Doppel").Select
Range("D163:D172").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.UnMerge
Sheets("DD A").Select
ActiveWindow.SmallScroll Down:=20
Range("A77:C86").Select
Selection.Copy
Sheets("Spieplan Doppel").Select
Range("D173:D182").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.UnMerge
Sheets("DD B").Select
Range("A12:C21").Select
Selection.Copy
Sheets("Spieplan Doppel").Select
Range("D183:D192").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.UnMerge
Sheets("DD B").Select
ActiveWindow.SmallScroll Down:=20
Range("A34:C43").Select
Selection.Copy
Sheets("Spieplan Doppel").Select
Range("D193:D202").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.UnMerge
Sheets("DD B").Select
Range("A55:C64").Select
Selection.Copy
Sheets("Spieplan Doppel").Select
Range("D203:D212").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.UnMerge
Sheets("DD B").Select
ActiveWindow.SmallScroll Down:=20
Range("A77:C86").Select
Selection.Copy
Sheets("Spieplan Doppel").Select
Range("D213:D222").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.UnMerge
Sheets("DD C").Select
Range("A12:C21").Select
Selection.Copy
Sheets("Spieplan Doppel").Select
Range("D223:D232").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.UnMerge
Sheets("DD C").Select
ActiveWindow.SmallScroll Down:=20
Range("A34:C43").Select
Selection.Copy
Sheets("Spieplan Doppel").Select
Range("D233:D242").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.UnMerge
Sheets("DD C").Select
Range("A55:C64").Select
Selection.Copy
Sheets("Spieplan Doppel").Select
Range("D243:D252").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.UnMerge
Sheets("DD C").Select
ActiveWindow.SmallScroll Down:=20
Range("A77:C86").Select
Selection.Copy
Sheets("Spieplan Doppel").Select
Range("D253:D262").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.UnMerge
Columns("D:D").Select
Range("D2").Activate
Selection.FormatConditions.Delete
Range("K3:L54").Select
Selection.Copy
Range("B3:C54").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range("B55:C106").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWindow.SmallScroll Down:=63
Range("B107:C158").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWindow.SmallScroll Down:=66
Range("B159:C210").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWindow.SmallScroll Down:=66
Range("B211:C262").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWindow.SmallScroll Down:=-216
Range("A1:F1").Select
Range("B3:H262").Select
Selection.Sort Key1:=Range("H3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A1:F1").Select
End Sub

In den ersten sechs Blöcken werden verschiedene Zeilen aus verschiedenen Tabellenblättern kopiert und auf ein bestimmtes Blatt (Spielplan Doppel)eingefügt.
Im nächsten kleinen Block werden von den kopierten Zellen auf dem Blatt "Spielplan Doppel" die bedingten Formatierungen zurückgenommen.
Im nächsten Block also achten Block werden Daten von einer Stelle im Blatt "Spielplan Doppel" an ein andere Stelle dieses Blattes kopiert.
Im letzten Block werden nun die ganzen kopierten Zielen nach der Spalte "H" sortiert.
Wenn ich das Makro nun so ausführe also über "Extras -> Makro -> Makros..." funktioniert es, aber wenn ich es mit einem Button verknüpfe will es nicht funktioniern....
Anzeige
AW: Hokus Pokus....
30.01.2007 05:44:56
Ramses
Hallo
WAS funktioniert dann nicht ?
Gruss Rainer
AW: Hokus Pokus....
31.01.2007 11:51:26
Gordon
Ja,
das würde ich ja auch gerne wissen. Ich bekomme immer folgende Fehlermeldung, wenn ich das Modul in einen Button im Tabellenblatt einbinde:
"Laufzeitfehler '1004':
Die Select-Methode des Range-Objektes konnte nicht ausgeführt werden."
Ideen?
Anzeige
AW: Hokus Pokus....
31.01.2007 20:50:48
Gerd
Hallo Gordon,
es ist schon enorm, was man mit dem Recorder alles aufzeichnen kann. :-)
Schreibe mal in das Makro zu deinem Button
Call test
und stelle diese beiden Prozeduren in ein Standardmodul
(Unmerge habe ich weggelassen, wenn nötig zum Testen vorher
verbundene Zellen manuell trennen u. nochmal melden)

Sub test()
Bereiche_kopieren "HD A", 3
Bereiche_kopieren "HD B", 53
Bereiche_kopieren "HD C", 103
Bereiche_kopieren "DD A", 143
Bereiche_kopieren "DD B", 183
Bereiche_kopieren "DD C", 223
With Sheets("Spieplan Doppel")
.Columns("D:D").FormatConditions.Delete
.Range("B3:C54").Value = .Range("K3:L54").Value
.Range("B55:C106").Value = .Range("K3:L54").Value
.Range("B107:C158").Value = .Range("K3:L54").Value
.Range("B159:C210").Value = .Range("K3:L54").Value
.Range("B211:C262").Value = .Range("K3:L54").Value
.Range("B3:H262").Sort Key1:=.Range("H3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
.Range("A1:F1").Select
End With
End Sub



Sub Bereiche_kopieren(strSheet As String, ersteZeile As Integer)
Dim objZiel As Object
Set objZiel = ThisWorkbook.Sheets("Spieplan Doppel")
With Sheets(strSheet)
.Range("A12:C21").Copy Destination:=objZiel.Range("D" & ersteZeile)
.Range("A34:C43").Copy Destination:=objZiel.Range("D" & ersteZeile + 10)
.Range("A55:C64").Copy Destination:=objZiel.Range("D" & ersteZeile + 20)
.Range("A77:C86").Copy Destination:=objZiel.Range("D" & ersteZeile + 30)
If strSheet = "HD A" Or strSheet = "HD B" Then
.Range("A100:C109").Copy Destination:=objZiel.Range("D" & ersteZeile + 40)
End If
End With
End Sub

Gruß
Gerd
Anzeige
AW: Hokus Pokus....
01.02.2007 18:09:42
Gordon
Super,
hat nun so geklappt. Und das mit dem Unmerge habe ich noch selbst eingefügt bekommen. Danke für die Hilfe...
Gordon
Hokus Pokus....
28.01.2007 14:38:57
Ramses
Hallo
... geht schon wieder nicht mit der Kristallkugel ;-)
WAS geht nicht ?
Zeig mal den Code
Beschreibe was du damit machen willst.
Gruss Rainer
Anzeige
AW: Makro aufgezeichnet - Button geht nicht
28.01.2007 14:40:22
MathiasW
Moin moin Gordon
schreib mal was genau Excel anmeckert.
Gruss Mathias
PS: Oder bist du noch im Entwurfsmodus?
;

Forumthreads zu verwandten Themen

Makro geht und geht doch nicht
David

Hallo VBA-Profis,
ich wollte einem anderen Forumsmitglied hier helfen und habe auch alles soweit hinbekommen, aber an einem Problem bin ich gerade verzweifelt.
In der Datei:
Die Datei https://www.herber.de/bbs/user/55435.xls wurde aus Datenschutzgründen gelöscht
wird beim Änder...
16.09.2008 15:02:10
Thread-ID: 1010129
9 Beiträge
Makro geht mit Blattschutz nicht - trotz unprotect
donald

Hallo,
ich hab nochmal eine Frage. Ich hab ein paar Zellen meines Blatts mit dem Blattschutz ausgestattet. Und jetzt funktioniert mein Makro nicht, obwohl ich protect/unprotekt ins Makro reingeschrieben habe:
Sub FarbeSortieren() ActiveSheet.Unprotect Password:="esm-win" Range("S12...
23.10.2008 16:41:43
Thread-ID: 1018743
5 Beiträge
makro geht nicht
donald

Hallo liebe Helfer,
ich hab hier ein Makro, das Farben sortiert. Das Problem ist jetzt, dass die Datei als Vorlage dienen soll und damit der NAme der Vorlage geändert wird und in dem Makro aber der Name der Vorlage drin ist. Das heißt, dass Makro funktioniert nicht mehr, sobald die Datei u...
12.12.2008 08:57:19
Thread-ID: 1032278
8 Beiträge
Zielwertsuche Makro geht nicht
Bastian

Hallo Leute,
beim Starten des Makros
Sub schleife()
   Dim rng As Range
   For Each rng In Range("I13:I200").Cells
      rng.GoalSeek Goal = 0,  ChangeingCell:=rng.Offset(0, &...
09.01.2009 13:46:00
Thread-ID: 1038219
10 Beiträge
Druckmakro geht nicht
lutz

Hallo Excel-Profis.
ich versuche ein Druckmakro zu schreiben, dass schneller geht als die normale Funktion.
Sub PrintF1() Dim Head1 As String Dim Foot1 As String Head1 = "________&8& chr(10)& Text& Seite &P/&N, Date &D; &T Uhr" Foot1 = "Testfoot" Execut...
27.03.2009 11:18:20
Thread-ID: 1064534
7 Beiträge
Makro in Vista geht nicht
ReSt

Hallo
ich habe nun ein Problem welches ich nicht verstehe.
Unten steht ein Makro welches in Windows XP funktionierte. Das heisst es kam ein Speichern unter Dialogfeld welches schon mit dem Namen und dem Dateityp ausgefüllt war.
Jetzt wo ich Windows Vista verwende, bekomme ich nur no...
10.07.2009 08:48:59
Thread-ID: 1087252
3 Beiträge
Datei lässt sich nicht öffnen
einfachf

Hallo Zusammen ich schreibe gerade an einem Macro.
Dazu soll aus einer bestehenden datei eine andere Datei geöffnet werden.
Leider funzt das nicht und ich weiß nicht warum.
Hier mein Code.
Dim EX As Excel.Application
Dim WB As Workbook
Dim WS As Worksheet
Set EX = Cr...
06.08.2009 12:12:10
Thread-ID: 1094009
3 Beiträge
Makro, das vorher ging, geht jetzt nicht mehr
diplingoec

Hallo,
ich hatte im Internet vor einiger Zeit ein Makro gefunden zum Auslesen von Google Ergebnissen.
Das funktionierte Prima. Jetzt kommt immer eine Fehlermeldung (Laufzeitfehler 1004) und ich habe keine Ahnung woran das liegen könnte.
Kurz zum Hintergrund: Ich möchte meine Recher...
15.09.2009 15:00:59
Thread-ID: 1102892
4 Beiträge
Anzeige
Makro geht nach Blattschutz nicht mehr
Reimund

Habe ein einfaches Makro, wo Zeilen ausgeblendet werden sollen wenn ein bestimmtes Wort in einer bestimmten Zelle steht.
Geht auch. Abr wenn ich den Blattschutz eingeschaltet habe geht´s nicht mehr. Und dann auch nicht wenn der Schutz wieder raus ist. Hängt schon im ersten Teil.
Hier bi...
23.09.2009 15:24:10
Thread-ID: 1104971
5 Beiträge
Copy/paste per makro geht einfach nicht
Julian

Liebe Excelgemeinde,
ich bin vollkommen ratlos, ich möchte eine liste kopieren per:
Worksheets("Bond Portfolios").Range(Chr(64 + i) & "13:" & Chr(64 + i) & LastRow).Copy
was auch zu klappen scheint, sobald ich aber in der nächsten funktion das kopierte wieder eingefügen...
20.11.2009 20:16:25
Thread-ID: 1118957
4 Beiträge
Makro aus Excel 2003 geht in Excel 2007 nicht - Bi
Joe

Hallo zusammen,
hab folgendes Mkro:
----------------------------------------------- Sub Bilder_einfügen() Dim Pfad As String, Wiederholungen As Long On Error Resume Next Pfad = "I:\Allgemein\Organisationshandbuch\6 Marketing\Bilddatenbank\" For Wiederholungen = 2 To Range("A65536").E...
02.12.2009 21:45:59
Thread-ID: 1121481
7 Beiträge
Anzeige
Datei lässt sich nicht öffnen
Ernst

Hallo Forum
Habe eine Datei abgespeichert, so wie ich es immer mache, lässt sich aber jetzt nicht mehr öffnen.
Wie kann ich die Datei öffnen?
Bitte um Hilfe
mfg
Ernst Dunkel
04.01.2010 13:35:12
Thread-ID: 1127045
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige