Live-Forum - Die aktuellen Beiträge
Datum
Titel
06.11.2025 16:16:08
In einer Zelle die Anzahl der Zahlen zählen die durch ; getr
06.11.2025 16:14:37
Danke an Uduuh
06.11.2025 15:49:58
bedingter Formatierung
06.11.2025 14:26:08
Nur Werte Kopieren und Einfügen
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
1316to1320
1316to1320
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hilfe beim abändern des Makros

Forumthread: Hilfe beim abändern des Makros

Hilfe beim abändern des Makros
25.06.2013 05:58:27
Josef_T
Guten Morgen alle,
habe beim Versuch das Makro anzupassen, ein paar Zuordnungen derart verändert,
so das nun überhaupt nichts mehr geht.
Kann mir bitte jemand von euch helfen, dass Makro wieder lauffähig zu bekommen?
https://www.herber.de/bbs/user/86019.xls
Danke schon mal
Grüße
Josef

Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hilfe beim abändern des Makros
25.06.2013 06:27:07
Matthias
Hallo
Option Explicit
Sub KopierenBedingung2()
Dim Z1 As Long, Z2 As Long
Z2 = Sheets("Tabelle2").Cells(Rows.Count, 2).End(xlUp).Row + 1
For Z1 = Cells(65536, 3).End(xlDown).Row To 3 Step -1
If Cells(Z1, 7) = "fertig" Then
If Z2 = 65536 Then
MsgBox "In Tabelle2 ist keine Zeile mehr frei.", vbCritical
Exit Sub
End If
Range(Cells(Z1, 2), Cells(Z1, 6)).Copy Destination:=Sheets("Tabelle2").Cells(Z2, 2)
Z2 = Z2 + 1
Rows(Z1).ClearContents
End If
Next Z1
End Sub
Gruß Matthias

Anzeige
AW: Hilfe beim abändern des Makros
25.06.2013 06:44:51
Josef_T
Guten Morgen Matthias,
erstmal Danke für die Änderung.
Matthias, mir wird folgende Fehlermeldung angezeigt:
Laufzeitfehler 9
und im Makro diese Zeile gelb unterlegt:
Z2 = Sheets("Tabelle2").Cells(Rows.Count, 2).End(xlUp).Row + 1
Warum?
Gruß
Josef

Anzeige
versuchs mal mit With ...
25.06.2013 06:53:46
Matthias
Hallo Josef
Bei läufts durch ohne Fehler
https://www.herber.de/bbs/user/86020.xls
probiers mal so:
With Sheets("Tabelle2")
Z2 = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
End With
Gruß Matthias

Anzeige
hier noch mit Sortierung
25.06.2013 06:38:58
Matthias
Hallo
Sub KopierenBedingung2()
Dim Z1 As Long, Z2 As Long
Z2 = Sheets("Tabelle2").Cells(Rows.Count, 2).End(xlUp).Row + 1
For Z1 = Cells(65536, 3).End(xlDown).Row To 3 Step -1
If Cells(Z1, 7) = "fertig" Then
If Z2 = 65536 Then
MsgBox "In Tabelle2 ist keine Zeile mehr frei.", vbCritical
Exit Sub
End If
Range(Cells(Z1, 2), Cells(Z1, 6)).Copy Destination:=Sheets("Tabelle2").Cells(Z2, 2)
Z2 = Z2 + 1
Rows(Z1).ClearContents
End If
Next Z1
With Sheets("Tabelle2")
.Range("B2:F" & Z2).Sort Key1:=.Range("B3"), Order1:=xlAscending, Header:=xlYes
End With
End Sub
Gruß Matthias

Anzeige
Danke Matthias L, funktioniert alles einwandfrei!
25.06.2013 07:10:35
Josef_T
Hallo Matthias,
funktioniert Super. Vielen Dank nochmal
LG
Josef

Danke für Deine Rückmeldung kwT
25.06.2013 07:12:42
Matthias

AW: Hilfe beim abändern des Makros
25.06.2013 07:03:46
hary
Moin Josef
hier noch was mit Autofilter. 
Dim letzteQ As Long
Dim letzteZ As Long
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Set wksQ = Worksheets("Tabelle1") 'Quelltabellenname
Set wksZ = Worksheets("Tabelle2") 'Zieltabellenname
Application.ScreenUpdating = False
Application.DisplayAlerts = False
letzteQ = wksQ.Cells(wksQ.Rows.Count, 2).End(xlUp).Row
letzteZ = wksZ.Cells(wksZ.Rows.Count, 2).End(xlUp).Row + 1
wksQ.Range("G2:G" & letzteQ).AutoFilter Field:=1, Criteria1:="fertig"
With wksQ.Range("B3:F" & letzteQ).SpecialCells(xlVisible)
.Copy Worksheets("Tabelle2").Cells(letzteZ, 2)
.Delete '----loescht sichtbare Zeilen-----
End With
wksZ.Range("B2:F" & letzteZ).Sort Key1:=wksZ.Range("B3"), Order1:=xlAscending,  _
Header:=xlYes
wksQ.Range("G2:G" & letzteQ).AutoFilter
Set wksQ = Nothing
Set wksZ = Nothing
Application.DisplayAlerts = True
Application.ScreenUpdating = True

gruss hary

Anzeige
Klappt ...
25.06.2013 07:28:09
Matthias
Hallo hary
Gute Alternativlösung
Ich wollte nur nicht seine Variablen umbenennen, um ihn nicht noch mehr zu verwirren.
Autofilter und dann gleich die Zeilen löschen ist natürlich besser :o)
Wenn ich es richtig gelesen habe, war das dein 4000'ster Beitrag - Glückwunsch
Gruß Matthias

Anzeige
AW: OT.@Matthias
25.06.2013 07:44:59
hary
Moin Matthias
Danke! Darauf achte ich nicht, mir geht's ums lernen und ueben.
Da ich nicht alle meine Loesungswege und Versuche hochlade, moechte ich auch nicht wissen wieviel Mappen ich schon durch den Papierkorb gejagt habe.
Auch wenn meine Loesungswege manchmal nicht optimal sind, es macht Spass und bloeder wird man auch nicht.
Gruss hary

Anzeige
AW: Hilfe beim abändern des Makros
25.06.2013 10:33:01
Josef_T
Guten Morgen Hary,
werde Deine Lösung mal ausgiebig testen. Sollte, wie der rücksichtsvolle Matthias schon festgestellt hat besser sein als meine, werde ich sie natürlich einsetzen.
Danke sehr für Deine Arbeit.
Gruß
Josef
;

Forumthreads zu verwandten Themen

Makros zusammenfügen
Tom

Hallo,
ich habe folgende u.a. Codes. Ich möchte nun, dass diese Codes als ein Makro ablaufen. Aber nicht als Worksheet_Activate sondern nach Betätigung eines Buttons (MAkro zuweisen). Da ich in VBA nicht der Held bin und mir diese Codes zusammengebastelt habe, benötige ich die Hilfe von Pro...
14.08.2008 10:40:00
Thread-ID: 1001761
13 Beiträge
Anzeige
Evaluate mittels Excel4-Makros
Reinhard

Hallo Wissende,
ich bin mir unsicher, aber ich meine man kann durch Namensvergabe für eine Formel, im Stil von
=Zelle.Zuordnen(x;A1)
errichen, daß dann ein "Ausdruck" so wie bei Evaluate berechnet wird.
Annahme:
A1: 15
A2: +
A3: 12
Namensformel für A4, wo drin s...
14.08.2008 22:18:00
Thread-ID: 1001996
3 Beiträge
Makros: Ein Teil nur ein Mal ausführen
wowa

Hallo an Alle!
Kann man ein Teil eines Makros nur ein Mal ausführen lassen und den Rest ständig, sodass der "unnötige Abschnitt eines Makros" ab dem 2ten Mal übersprungen wird?
Vielen Dank im Voraus!!!!
Wowa
19.08.2008 11:11:54
Thread-ID: 1002852
12 Beiträge
Mehrere Makros beim Öffnen abspielen
wowa

Hallo an Alle!
Ich habe mehrere Makro für mehrere PivotCharts und ich möchte, dass die beim öffnen der Excel-Datei ausgeführt werden.
Ich habe rausgefunden dass das über die Arbeitsmappe--}"Workbook Open" geht und es klappt wenn ich nur ein Makro habe. Aber mit mehreren klappt es nic...
19.08.2008 17:49:00
Thread-ID: 1003015
5 Beiträge
Inputbox vor Makrostart
Tom

Hallo,
ich habe mal den Anfang des Codes hier her kopiert.
Ich möchte erreichen, dass beim Aufrufs dieses Codes im Vorfeld eine Eingabebox geöffnet in der dann der zweite Wert eingetragen wurde, der hier steht:
For i = 2 To 4 'Anzahl der Mails
Sub Excel_Serienmail_via_Outlook_Hy...
23.08.2008 16:25:07
Thread-ID: 1004126
3 Beiträge
Anzeige
makros funktionieren auf anderen Rechnern nicht
walter

Hallo liebe excel Freunde!
Ich habe eine excel Datei geschrieben, in der sehr viele Makros stecken. Leider funktionieren die meisten Makros auf einigen Rechnern nicht. Auf manchen gehen alle Makros, auf einigen aber eben nicht. Ich habe auf allen Rechnern, wo die Datei laufen soll die Makro...
27.08.2008 15:47:49
Thread-ID: 1005118
11 Beiträge
Anzeige
Makrostart wenn in Zelle was geschrieben wird
Bernd

Hallo,
wie stelle ich es an, damit ein Makro startet, sobald ich in einer bestimmten Zelle etwas schreibe?
Mein Code will irgendwie nicht so wie ich will. Der läuft ohne nonstop.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("D3") "" Then Call tabelle_kopi...
31.08.2008 11:09:00
Thread-ID: 1006152
2 Beiträge
ThisWorkbook.FollowHyperlink Address - Makros akt.
Peter

Guten Abend
Kann ich bei nachfolgendem Code eine Ergänzung anbringen, damit allfällig vorhandene Makros einer zu öffnenden Datei automatisch aktiviert werden?
Wenn ja, wie?
Danke für jede Hilfe.
Gruss, Peter
If Dir(strPath & "\" & strFile) "" Then
Cancel = True<...
02.09.2008 22:09:05
Thread-ID: 1006962
3 Beiträge
Makrospeicherung
Michael

Hallo Excelgemeinde,
ich muss 1x die Woche aus einem Programm Daten exportieren. Dieser Export findet immer in die gleiche Exceldatei statt (auch unter demselben Namen). Um diese Exceldatei dann weiter zuverarbeiten und optisch ein bißchen aufzubereiten habe ich mir per Recorder ein Makro z...
09.09.2008 13:24:00
Thread-ID: 1008448
12 Beiträge
Makros
Carolina

Hallo alle zusammen,
ich habe eine Excel Tabelle mit einem Makro, dass nichts anderes macht, als die Tabelle nach drei bestimmten Spalten mithilfe der Kombination Strg+Y zu sortieren.
Das Makro funktioniert auch einwandfrei, will ich aber die Tabelle speichern, bekomme ich folgende Meld...
13.09.2008 11:12:13
Thread-ID: 1009487
8 Beiträge
Makrosammlung für Super Addin
Rocky

Hallo Excelfans,
ich bin auf der suche nach anregungen für meine Addinsammlung. Hat jemand nützliches was man in einem addin sammeln kann? Auf manche schönen Sachen kommt man erst, wenn man sie sieht.
würde gern Anregungen sammel, sie dann in einem Addin zusammensteleen und Sie es dann...
16.09.2008 12:16:05
Thread-ID: 1010049
4 Beiträge
4.0 Makros (Excel 2002 SP 3) unter 2003
Bernd

Hallo VBA-Experten,
mit meinen Makros, die ich unter Excel 2002 SP 3 erstellt habe, habe ich nun - seitdem ich Excel 2003 habe - Probleme. Beim Öffnen einer Datei fragt er mich als erstes "Makros aktivieren Ja/Nein" und als zweites gibt Excel den Hinweis, dass die Datei MS Excel 4.0 Makros...
17.09.2008 08:20:16
Thread-ID: 1010219
7 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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