Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1380to1384
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
1380to1384
1380to1384
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: Zellwerte kopieren -> Fehler 424

VBA: Zellwerte kopieren -> Fehler 424
16.09.2014 08:40:09
Schmitty
Guten Morgen zusammen.
Ich möchte den Inhalt einiger Zellen (ohne Formatierung) einer Excel-Datei in eine andere Excel Datei (die noch geschlossen ist) mittels VBA kopieren. Dazu habe ich mir folgenden Code überlegt:

Workbooks.Open Filename:="Z:\kartei\Adressen.xlsm"
ActiveWorkbook.Worksheets("Schmitz GmbH").Range("D4:H4").Value = Workbooks(Adressen.xlsm). _
Worksheets("Schmitz GmbH").Range("D4:H4").Value
Leider bekomme ich dann immer die Fehlermeldung "Laufzeitfehler 424 - Objekt erforderlich"
Wo könnte der Fehler liegen?
Gruß
Christian

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Zellwerte kopieren -> Fehler 424
16.09.2014 09:03:35
Luschi
Hallo Christian,
schau mal da fehlt etwas: 

Workbooks("Adressen.xlsm").Worksheets("Schmitz GmbH").Range("D4:H4").Value

Gruß von Luschi
aus klein-Paris

Falls die Adresse stimmt, öffnest du ...
16.09.2014 09:10:13
Luc:-?
…Adressen.xlsm, Christian,
das dadurch das aktive Wb wird. Dann willst du in dessen ZellBereich die Werte des gleichen Wb übernehmen? Oder heißen die beide gleich → das würde den Fehler erklären, denn es können keine 2 Dateien gleichen Namens gleichzeitig geöffnet wdn. Eigentlich müsstest du auch eine entsprd Warnung bekommen (falls die nicht vom Pgm unterdrückt wird). Die 2.Datei wird dann jedenfalls nicht geöffnet, was allerdings die 2.CodeZeile nicht stören dürfte, falls das vorher aktive Wb dadurch nicht den Fokus verloren hat, was ich aber nur äußerst ungern testen wollte… ;-]
Morrn, Luc :-?

Anzeige
Primär natürlich Luschis AW! Das Andere ...
16.09.2014 09:12:43
Luc:-?
…kommt anschließend… ;-)
Luc :-?

AW: VBA: Zellwerte kopieren -> Fehler 424
16.09.2014 09:54:19
Schmitty
Hallo Luschi, hallo Luc:-?.
Danke für Eure Antworten. Natürlich hattet Ihr beide recht.
@ Luschi: Die Anführungszeichen sind mir einfach nicht aufgefallen... :-(
@ Luc:-?: Daran habe ich nicht gedacht, dass ja bei dem Öffnen einer neuen Excel-Datei diese als "aktiv" gilt ;-)
Jetzt kopiert VBA die Werte, wie ich es möchte.
Code: 
    Workbooks.Open Filename:="Z:\kartei\Adressen.xlsm"
Workbooks("Adressen.xlsm").Worksheets("Schmitz GmbH").Range("D4:H4").Value = Workbooks(" _
Recherche.xlsm"). _
Worksheets("Schmitz GmbH").Range("D4:H4").Value
Aber:
Ich habe eine Sache nicht bedacht, bzw. sie ist mir erst jetzt mit dem funktionierenden Code aufgefallen.
In der Zieldatei (Adressen.xlsm) werden mit den kopierten Zellwerten mittels eines weiteren VBA-Codes Autofilter gesteuert. Das funktioniert soweit ich die Daten in die jeweilige Zelle eintrage ohne Probleme. Nutze ich aber den oben genannte VBA-Code, sind die Ziel-zellen zwar ausgefüllt, nur der Autofilter arbeitet nicht.
Wie kann ich dieses Problem denn jetzt lösen?
Gruß
Christian

Anzeige
AW: VBA: Zellwerte kopieren -> Fehler 424
16.09.2014 14:00:34
Daniel
Hi
wie - dh mit welchem Code und Makro - steuerst du denn den Autofilter?
Gruß Daniel

AW: VBA: Zellwerte kopieren -> Fehler 424
16.09.2014 14:22:53
Schmitty
Hallo,
z.B. für die Zelle F4:
  If Target.Address = "$F$4" Then
ActiveSheet.Unprotect Password:=""
If Not IsEmpty(Target) Then
Selection.AutoFilter Field:=5, Criteria1:="*" & Range("F4") & "*"
Else
Selection.AutoFilter Field:=5
End If
ActiveSheet.Protect Password:="", AllowFiltering:=True
End If
Gruß
Christian

AW: VBA: Zellwerte kopieren -> Fehler 424
16.09.2014 14:44:28
Daniel
Hi
die Adresse des Targets ist ja $D$4:$H$4 und damit ungleich $F$4.
dein Event reagiert nur dann, wenn F4 allein die geänderte Zelle ist.
wird F4 zusammen mit mehrern Zellen im verbund geändert, so ist dieser Fall mit dieser Bedingung ausgeschlossen:
If Target.Address = "$F$4" Then
soll der Filter auch dann gesetzt werden, musst du das so abändern: 
  If Not Intersect(Target, Range("F4")) is Nothing Then
ActiveSheet.Unprotect Password:=""
If Not IsEmpty(Range("F4")) Then
Selection.AutoFilter Field:=5, Criteria1:="*" & Range("F4") & "*"
Else
Selection.AutoFilter Field:=5
End If
ActiveSheet.Protect Password:="", AllowFiltering:=True
End If
Gruß Daniel

Anzeige
AW: VBA: Zellwerte kopieren -> Fehler 424
16.09.2014 15:51:50
Schmitty
Hallo Daniel,
danke für deinen Code.
Leider erzeugt dein Code schon das nächste Problem. Wenn ich die Autofilter zurücksetzten will, werden alle Autofilter mit einem "*" ausgefüllt. Bei Text-Spalten ist das kein Problem, es wird trotzdem alles angezeigt. Jedoch habe ich auch Ziffern-Spalten und dort funktioniert das "*" nicht und es wird nichts angezeigt.
Folgenden Code nutze ich um alle Autofilter (es sind 24 Stück!) auf dem Arbeitsballt zu leeren:
    Sheets("Schmitz GmbH").ShowAllData
ActiveWorkbook.Worksheets("Schmitz GmbH").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Schmitz GmbH").AutoFilter.Sort.SortFields.Add Key _
:=Range("B5:B2195"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Schmitz GmbH").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("B4:X4") = ""
Range("AA4") = ""
Gruß
Christian

Anzeige
AW: VBA: Zellwerte kopieren -> Fehler 424
16.09.2014 16:05:55
Daniel
Hi
um alle Autofilter auf einem Blatt zurück zu setzen, sollte ein 
ActiveSheet.ShowAllData

ausreichen.
um eine einzelne Filterspalte zu deaktivieren das hier: (x sei die Nummer der Spalte innerhalb des zu filternden Zellbereichs) 
.... .Autofilter Field:=x

dh das Criteria1 wird ganz weggelassen.
der "*" steht ja für "Text in beliebiger Länge" und das schließt Zahlen logischerweise aus.
Gruß Daniel

AW: VBA: Zellwerte kopieren -> Fehler 424
17.09.2014 08:32:59
Schmitty
Hallo Daniel,
ich habe jetzt weiter gebaut. Ich bekomme zwar wieder einen (neuen, unabhängigen) Fehler, jedoch läuft dein Makro soweit durch.
Aber:
Der Autofilter reagiert auf die kopierten Werte immer noch nicht...
Gruß
Christian

Anzeige
AW: VBA: Zellwerte kopieren -> Fehler 424
17.09.2014 08:58:06
Schmitty
Kommando zurück,
hab den "Fehler" gefunden.
Wenn ich das Zeil-Tabellenblatt vor dem Kopieren anzeigen lasse, funktioniert der Autofilter!
So sieht der Code jetzt aus:
    Workbooks.Open Filename:="Z:\kartei\Adressen.xlsm"
Workbooks("Adressen.xlsm").Worksheets("Schmitz GmbH").Select
Workbooks("Adressen.xlsm").Worksheets("Schmitz GmbH").Range("D4:X4").Value = Workbooks(" _
Recherche.xlsm"). _
Worksheets("Schmitz GmbH").Range("D4:X4").Value

Gruß
Christian

318 Forumthreads zu ähnlichen Themen

Beim Kopieren eines Tabellenblattes den VBA-Code e
Alfi

Hallo Excel-Gemeinde!
ich habe eine mehrblättrige Datei, per Makro kopiere ich ein Blatt und speichere dieses unter neuem Namen ab.
Dieses Blatt soll aber nicht mehr den VBA-Code der ursprübglichen Datei enthalten, sprich ein Blatt ohne Makros.
Wer kann mir helfen?
So sieht der...
09.09.2008 09:58:00
Thread-ID: 1008333
8 Beiträge
Anzeige
VBA--Zellen finden/vergleichen/kopieren
Christian

Hallo
einen Beispieldatei ist anbei!!
Bisher konnte ich mit folgendem Code Zellinhalte "täglich" teilen und in neue Zellen kopieren.
Sheets("179").Select Range("B255").End(xlUp).Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=TRIM(LEFT('tägliche Statistik'!R12C6,FIND(""/"",'täglic...
07.10.2008 10:15:00
Thread-ID: 1014634
3 Beiträge
In Zwischenablage kopieren
Claudia

Hallo liebe VBA-Profis,
ich habe eine sehr einfache Bitte. Ich möchte die Daten aus den ersten drei Spalten (ab Zeile 2 einschließlich der letzten befüllten Zelle in Spalte A) mittelsn Makro in die Zwischenablage kopieren. Mehr nicht. :-)
Ich könnte das natürlich mit der Hand machen, d...
15.12.2008 18:19:49
Thread-ID: 1033106
4 Beiträge
Anzeige
VBA Code mit VBA in Tabelle kopieren - Fehler?!
Andreas

Hallo Herber Fans,
ich habe mir heute aus der Recherche eine Möglichkeit rausgesucht, einen Code über VBA in ein anderes VBA Worksheet zu kopieren. Das dies in VBA überhaupt geht ist ja schon genial. Es soll ein Code in das VBA Worksheet des activeworkbooks kopiert werden.
Der Code dafü...
11.02.2009 15:56:00
Thread-ID: 1049657
3 Beiträge
suchen kopieren einfügen vba
Bea

Hallo zusammen
Ich hab folgendes Problem.
in der angehängten Beispielmappe möchte ich, das die in Arbeitsblatt "Nummern" hinterlegten Anfänge von Telefonnummern in Arbeitsblatt "evnachweis" gesucht die jeweiligen Zeilen kopiert und dann in Arbeitsblatt in dem Fall "Februar" (am besten...
10.03.2009 11:55:49
Thread-ID: 1058557
9 Beiträge
variable Zeilenanzahl kopieren, einfügen (VBA)
Alex

Hallo Leute,
In meiner Arbeitsmappe kopiere ich eine! Zeile (aus dem TabBlatt „Grundformular“) - via Doppelklick auf einen Namen in „Übersicht“ - in andere TabBlätter.
(das geht wunderbar)
Sieht jemand eine Möglichkeit ob/wie das ganze mit einer variablen Zeilenanzahl, die im „Grund...
18.03.2009 17:23:56
Thread-ID: 1061522
3 Beiträge
Mit VBA Zeilen in neue Register kopieren
Andreas

Ein Tabellenblatt soll nach einem bestimmten Kriterium durchsucht werden. Immer wenn das Suchkriterium gefunden wird, soll die Zeile kopiert und in ein neues Tabellenblatt eingefügt werden. Dies soll solange geschehen bis alle Zeilen durchsucht worden sind.
Im Detail soll dies wie folgt fun...
08.06.2009 12:29:49
Thread-ID: 1079883
3 Beiträge
Gesperrte Zellen in Zwischenablage kopieren
Elias

Hallo Forum,
ich habe eine Tabelle, in welcher ein Datenbereich von B5:B20 per Button in die Zwischenablage kopiert werden soll.
Der Kram mit dem Button ist alles kein Problem, aber die Crux ist:
-Die Zellen sind gesperrt.
-Das PW darf nicht im VBA-Code hinterlegt werden, da das...
13.06.2009 23:26:05
Thread-ID: 1081337
6 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
7
1
2
3
10
2
8
2
2
5
7
6
1
4
7
3
1
5
5
6
8
2
2
8
1