Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:59:21
Zellformel in VBA
23.04.2024 14:47:39
Formel SVERWEIS
23.04.2024 14:27:08
Excel - Zellen verketten anhand anderer Spalte
23.04.2024 14:23:45
Gehe zu Tabellenblatt
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
840to844
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

301 Forumthreads zu ähnlichen 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
Anzeige
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
Anzeige
Hyperlink - Bezug ist ungültig VBA Problem?
Martin

Hallo liebe Forum-Mitglieder,
ich habe ein Problem mit einer Excel Datei, die viele Arbeitsblätter hat. Auf dem ersten Blatt befindet sich ein Index, der per VBA berechnet wird, von dort aus kommt man per Hyperlink auf die anderen Tabellenblätter. Nun habe ich auf den Tabellenblättern ein L...
25.06.2009 15:19:37
Thread-ID: 1084362
4 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
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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
8
4
7
9
6
3
2
2
3
4
3
6
4
1
2
3
2
4
1
23
1
3
7
2
11