Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1608to1612
1608to1612
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro Funktioniert nach dem Kopieren nicht mehr

Forumthread: Makro Funktioniert nach dem Kopieren nicht mehr

Makro Funktioniert nach dem Kopieren nicht mehr
19.02.2018 10:29:53
Stefan
Hallo,
ich habe mir ein Makro aufgezeichnet. Das Blatt in dem sich das Makro befindet ist eine Vorlage. Hier ist alles iO.
Jetzt kopiere ich die Vorlage und das Makro arbeitet nicht mehr.
Ich vermute es liegt daran das im Code das Blatt mit "Vorlage" benannt ist und die Kopie natürlich anders heißt. Nur der Weg zum lösen fehlt mir.
Könnt Ihr mmir bitte Helfen?
------ 
Private Sub CommandButton1_Click()
' niO_Sortieren Makro
' Sortiert die Spalte Menge niO von höchster Anzahl zu kleinster Anzahl von niO Teilen
Range("A28:L116").Select
ActiveWindow.SmallScroll Down:=-69
ActiveWorkbook.Worksheets("Vorlage").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Vorlage").Sort.SortFields.Add Key:=Range( _
"G28:G116"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Vorlage").Sort
.SetRange Range("A28:L116")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("F28").Select
ActiveWindow.SmallScroll Down:=6
End Sub

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro Funktioniert nach dem Kopieren nicht mehr
19.02.2018 10:37:19
Ralf
Hi Stefan,
versuch es so (und ersetze in Worksheets("Vorlage") den Begriff Vorlage durch den gewünschten Tabnamen): 

Private Sub CommandButton1_Click()
' niO_Sortieren Makro
' Sortiert die Spalte Menge niO von höchster Anzahl zu kleinster Anzahl von niO Teilen
With ActiveWorkbook.Worksheets("Vorlage")
.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=Range( _
"G28:G116"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With .Sort
.SetRange Range("A28:L116")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With
End Sub

Anzeige
AW: Makro Funktioniert nach dem Kopieren nicht mehr
19.02.2018 10:57:25
Stefan
Hallo Ralf,
erstmal danke für die schnelle Hilfe,
gerade der Teil mit
>> (und ersetze in Worksheets("Vorlage") den Begriff Vorlage durch den gewünschten Tabnamen): ist ja der Bereich der mein "Problem" ist. Ich muss das Spiel jede Woche machen und müsste dann ja immer KW 7, KW8, usw. umbenennen. Da hatte ich gehofft das es eine Möglichkeit gibt das nicht ich dem Makro sagen muss in welcher Mappe es ist, sondern das sich das Makro den Namen der Mappe holt.
Der Wunsch wäre Mappe Vorlage Kopieren, umbenennen in KW 8 und alles klappt.....
Zu naiv?
Anzeige
AW: Makro Funktioniert nach dem Kopieren nicht mehr
19.02.2018 12:57:11
Rudi
Hallo,
ActiveSheet statt ActiveWorkbook.Worksheets("Vorlage")
Gruß
Rudi
AW: Makro Funktioniert nach dem Kopieren nicht mehr
19.02.2018 13:27:31
Ralf
...naja, ActiveSheet muss ja nicht zwahngsläufig KW 8 sein...
Allerdings, wenn es jedesmal ein anderes Blatt sein soll, muss vorher klar sein, welches es denn sein soll. Ist es immer das mit der aktuellen Kalenderwoche mit einem voranstehenden KW?
Dann ginge das so: 
Dim kw As String
kw = "KW " & WorksheetFunction.WeekNum(Date, 2)'aktuelle Kalenderwoche von Heute ermitteln,  _
Woche beginnt Montags
With ActiveWorkbook.Worksheets(kw)
Die exakte Schreibweise müsstest Du jedoch nochan Deine Gegebenheiten anpassen...
Anzeige
AW: Makro Funktioniert nach dem Kopieren nicht mehr
20.02.2018 06:26:20
Stefan
Hallo Rudi, Hallo Ralf,
danke für eure Hilfe.
Ich habe jetzt erstmal den leichten, schnellen Weg genommen und konnte es über die AchtiveSheet Variante lösen. Benenne das Blatt dann noch manuell um.
Die Lösung von Ralf geht dann ja noch weiter, gefällt mir sehr. Allerdings habe ich gestern abend "neue Aufgaben" bekommen und muss es erstmal an die Seite legen. Danke trotzdem, ich werde mich damit befassen wenn es hier etwas ruhiger wird und ich wieder Zeit zum Basten habe.
Anzeige
;

Forumthreads zu verwandten Themen

wenn Bild hinterlegt, geht nichts mehr (Userform)
Reinhard

Hallo zusammen
ich habe folgende Userform Die Datei https://www.herber.de/bbs/user/61474.xls wurde aus Datenschutzgründen gelöscht
diese funktioniert einwandfrei!
wenn ich aber als Hintergrund ein Image (Anzeige) hinterlege, funktioniert nichts mehr. Wieso ist das so?
kann man...
29.04.2009 08:10:29
Thread-ID: 1071763
4 Beiträge
PrintOut copies:= geht nicht mehr
Jupp

Hallo.
Ich habe vor längerer Zeit ein größeres Makro geschrieben, bei dem unter anderem bei einem Button-Klick entsprechende Seite gedruckt werden.
Meine User rufen das Makro aus einer xls via Terminal Server auf. Bisher war dies ein W2k3x86-Server mit Excel 2003 SP2. Nun habe ich neue...
11.05.2009 12:33:18
Thread-ID: 1074308
3 Beiträge
Dropdown geht nicht mehr
stephan.schwander@wander.ch

Guten Tag zusammen,
in einer Tabelle von mir geht auf eimal der zellendropdown (Spalte G und H) nicht mehr.
Ich habe überhaupt keine Ahnung an was dies liegen kann?
Die Tabelle im Anhang ist ein Auszug einer komplexen Auswertung.
https://www.herber.de/bbs/user/62837.zip
Bes...
30.06.2009 13:26:59
Thread-ID: 1085347
4 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
Einlesen in Combobox geht nicht mehr
Mandy

Hallo,
ich will zewi Comboboxen mit Daten aus der Spalte D (4) und N (14) füllen. Wen ich NUR die Spalte D einlesen will, funktioniert das noch, sobald ich aber die Spalte 14 (N) auch mit auslesen will, bekome ich eine Fehlermldung (ListIndex konnte nicht gesetzt werden)
Kann jemand seh...
17.10.2009 21:17:52
Thread-ID: 1110366
25 Beiträge
laufzeitfehler 9: plötzlich gehts nicht mehr
Andreas

hallo, habe mal ein makro bekommen das auf knopfdruck daten von einer txt-datei in ein excel blatt übernimmt. hat alles prima funktioniert, jahre lang. jetzt habe ich excel neu installiert, und es kommt folgender fehler:
laufzeitfehler 9: index außerhalb des gültigen bereichs
und wenn i...
27.11.2009 18:12:20
Thread-ID: 1120603
6 Beiträge
Einfügen von Bildern in Kommentar geht nicht mehr
Bildern

Hallo zusammen,
ich habe ein Problem mit folgenden Codezeilen:
For spalte = 4 To 13
'*********
If Cells(zeile, spalte).Hyperlinks.Count 1 Then 'Abfrage, ob Hyperlink vorhanden
GoTo weiter2
Else
Dim mycom As Object
On Error Resume Next
Pfad = ActiveWorkbook.P...
30.11.2009 15:34:28
Thread-ID: 1121036
2 Beiträge
UDF geht nicht über mehrere Blätter
Martin Glarner
Habe es nach langer Zeit selber lösen können
Gruss Martin
16.04.2002 07:52:36
Thread-ID: 113576
2 Beiträge
makro geht nach Spalten einfügen nicht mehr
morbiuz

Hallo liebes Forum,
Möchte ich in einem Makro den Wert aus der Zelle A1 auslesen, geht das ja ohne probleme mit...
variable = tabelle1.range("a1").value
Fügt ein User jedoch manuell 2 Spalten ein, verschiebt sich ja die Original Zelle auf die Zelle C1.
Wie muss ich meine Zelle f...
19.05.2010 18:33:41
Thread-ID: 1157897
3 Beiträge
Zellen formatieren geht nicht mehr
Pepi

Hallo Zusammen
Ich habe eine Tabelle mit VBA erstellt, jetzt kann ich die Tabelle innerhalb des Bereiches, wo die Tabelle Daten aufweisst nicht mehr formatieren.
Kontextmenu (Maus Rechtsklick) - Zellen formatieren
oder
Start - Schriftart, Ausrichtung, Zahl
bei all diesen Me...
19.07.2010 15:58:15
Thread-ID: 1167741
4 Beiträge
Zellen formatieren geht nicht mehr
Pepi

Hallo zusammen
Ich kopiere mit einem Makro Zellbereiche von einer Tabelle in eine Andere (neue Datei).
Nach dem ich die neue Datei gespeichert habe kann ich in den Menüs Start - Schriftart / Ausrichtung / Zahl
Bereiche meiner neuen Tabelle markieren und formatieren - doch sobald ich...
16.08.2010 14:33:40
Thread-ID: 1172430
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Makro-Funktioniert-nach-dem-Kopieren-nicht-mehr

Schritt-für-Schritt-Anleitung

  1. Makro aufzeichnen: Starte Excel und zeichne dein Makro auf, während du die gewünschten Schritte ausführst.

  2. Code anpassen: Achte darauf, die Blattnamen im Code so anzupassen, dass sie mit deinen Kopien übereinstimmen. Beispiel:

    With ActiveWorkbook.Worksheets("Vorlage")

    Ändere "Vorlage" in den Namen deines neuen Blattes.

  3. Verwende ActiveSheet: Wenn das Makro für verschiedene Kopien genutzt werden soll, ersetze ActiveWorkbook.Worksheets("Vorlage") durch ActiveSheet.

Häufige Fehler und Lösungen

  • Fehler: Makro findet das Blatt nicht
    Lösung: Stelle sicher, dass der Blattname korrekt ist. Wenn du das Blatt nach dem Kopieren umbenennst, musst du den Namen im Makro anpassen.

  • Fehler: ActiveSheet funktioniert nicht
    Lösung: Überprüfe, ob das aktive Blatt tatsächlich das ist, mit dem du arbeiten möchtest. Möglicherweise musst du das Blatt manuell aktivieren.

Alternative Methoden

Wenn du das Makro dynamischer gestalten möchtest, kannst du den Namen des Blattes automatisch ermitteln. Zum Beispiel kannst du die aktuelle Kalenderwoche verwenden:

Dim kw As String
kw = "KW " & WorksheetFunction.WeekNum(Date, 2) 'Aktuelle Kalenderwoche ermitteln
With ActiveWorkbook.Worksheets(kw)

Diese Methode spart dir das manuelle Umbenennen der Blätter.

Praktische Beispiele

Hier ein einfaches Beispiel, wie du dein Makro umschreiben kannst, um die aktuelle Woche zu berücksichtigen:

Private Sub CommandButton1_Click()
    Dim kw As String
    kw = "KW " & WorksheetFunction.WeekNum(Date, 2)
    With ActiveWorkbook.Worksheets(kw)
        .Sort.SortFields.Clear
        .Sort.SortFields.Add Key:=Range("G28:G116"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
        With .Sort
            .SetRange Range("A28:L116")
            .Header = xlGuess
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    End With
End Sub

Tipps für Profis

  • Verwende Variablen: Nutze Variablen für Blattnamen, um deinen Code flexibler zu gestalten.
  • Fehlerbehandlung einbauen: Implementiere On Error Resume Next, um das Makro robuster zu machen.
  • Regelmäßige Backups: Erstelle Sicherungskopien deiner Arbeitsmappe, bevor du Änderungen vornimmst.

FAQ: Häufige Fragen

1. Warum funktioniert mein Makro nicht nach dem Kopieren?
Das liegt oft daran, dass der Blattname im Code nicht mehr mit dem Namen des kopierten Blattes übereinstimmt.

2. Wie kann ich mein Makro so anpassen, dass es mit verschiedenen Blattnamen funktioniert?
Du kannst ActiveSheet verwenden, um immer auf das aktuell aktive Blatt zuzugreifen, oder den Blattnamen durch eine Variable ersetzen.

3. Ist es möglich, das Makro automatisch den Blattnamen anpassen zu lassen?
Ja, indem du Funktionen wie WorksheetFunction.WeekNum verwendest, kannst du den Blattnamen dynamisch generieren.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige