Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1732to1736
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
1732to1736
1732to1736
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro geht nicht im Pjojekt

Makro geht nicht im Pjojekt
18.01.2020 22:09:26
Alex
Guten Tag liebes Forum
Erstmal ein herzliches Danke an alle Experten die in den bisherigen Beiträgen (anderer User) viele meiner VBA-Probleme lösen konnten.
Da ich nun ein Problem habe welches ich noch nirgens gefunden habe, ist dies mein erster "Problem-Post"
Ich habe eine Datenbank die ich anpasse und anschliessend als PDF exportiere.
Da ich jeweils Ende Jahr eine Auswertung der Werte in der Spalte "A" benötige, ist meine idee die relevanten Daten in ein neues Blatt zu "Kopieren" und Ende Jahr mit Filter die nötigen Angaben herauszusuchen.
Ich habe schon jeden lösungsansatz den ich in diversen Foren gefunden habe durchprobiert, jedoch nichts gefunden was mir weiterhilft, der einzige lösungsansatz der mich weiter gebracht hat, ist das interessanterweise das Makro im Modul einwandfrei funktioniert, jedoch im Projekt die Fehlermeldung "Laufzeitfehler 1004..." kommt.
Ich hoffe jemand hat eine idee wo ich den fehler gemacht habe.
Die Tabelle habe ich in einer Vereinfachten Version reproduziert, da die Originaldatei vertrauliche informationen enthält.
https://www.herber.de/bbs/user/134506.xlsm

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro geht nicht im Pjojekt
19.01.2020 07:24:20
Hajo_Zi
Benutze Autofilter und Kopiere den sichtbarenb bereich, Start, Bearbeiten, Suchen..., Gehe zu, Inhalte, sichtbare Zellen.
Excel hat auch einen Makrorecorder.

AW: Makro geht nicht im Pjojekt
19.01.2020 09:21:25
Regina
Hi Alex,
der Fehler kommt wegen einer fehlerhaften Verwendung von Columns. Im gegensatz zum Range-Objekt wird bei Columns der Spaltenbuchstabe nur einmal gesetzt, also für Splate A Columns("A").
Ich habe Dir den Cod emal etwas umgeschrieben, auf Selects kann und sollte man verzichten. Außerdem vermute ich, dass Du nicht nur Spalte A ansprechen willst, sondern A bis C?
Teste mal diesen Code:
Private Sub CommandButton1_Click()
Dim lng_zeile As Long
Dim NewRow As Long
' Kopieren
Sheets("Hilfstabelle").Range("A:C").ClearContents
Sheets("Erfassung").Range("A:C").Copy Sheets("Hilfstabelle").Range("A1")
' Sortieren
' Letzte Zeile ermitteln, da die Liste evtl. unterschiedlich lang ist
lng_zeile = Worksheets("Hilfstabelle").Cells(Rows.Count, 1).End(xlUp).Row
ActiveWorkbook.Worksheets("Hilfstabelle").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Hilfstabelle").Sort.SortFields.Add2 Key:=Range("A1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Hilfstabelle").Sort
.SetRange Range("A1:A" & lng_zeile)
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
' Kopieren in Auswertung
NewRow = Worksheets("Auswertung").Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheets("Hilfstabelle").Range("A1:C" & lng_zeile).Copy Worksheets("Auswertung").Cells(NewRow, _
1)
Application.CutCopyMode = False
End Sub

Anzeige
AW: Makro geht nicht im Pjojekt
19.01.2020 10:51:39
Alex
Hallo Regina
Vielen Dank für die Hilfe.
Wenn man den falschen Befehl auswählt, kommt natürlich auch nicht das Richtige dabei raus.
Weshalb funktioniert das im Modul? Sollte ja eigentlich auch nicht gehen...?!?
AW: Makro geht nicht im Pjojekt
19.01.2020 12:21:32
Regina
Hi Alex,
ich habe eben mal etwas rumgetestet: Die Schreibweise Columns("A:A") sollte auch funktionieren (habe ich bloß nie benutzt). Im Arbeitsblattmodul beziehen sich alle Range- oder Columnsangaben auf das aktuelle Arbeitsblatt. Es funktioniert in einem Arbeitsblattmodul nur, wenn man den Blattnamen voranschreibt, also so:
Sheets("Hilfstabelle").Columns("A:A").Select
Aber wie gesagt, Select und Activate sollte man sowieso vermeiden.
Gruß Regina
Anzeige

300 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

Links zu Excel-Dialogen

CommandButton

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