VBA: Zellwerte kopieren -> Fehler 424

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

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

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

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") = ""

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

Beliebteste Forumthreads (12 Monate)

VBA: Zellwerte kopieren -> Fehler 424

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

VBA: Zellwerte kopieren -> Fehler 424

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread