In With - end with Fehler 1004 | HERBERS Excel Forum

With ws Sheets("Protokoll").Select .Cells(6, ls + 1) = Muster .Range(.Cells(6, ls), .Cells(lz, ls)).Select => Ab hier ist der Fehler 1004: Die Select-Methode des Range-Objektes konnte nicht ausgeführt werden Application.CutCopyMode = False Selection.Copy .Cells(6, ls + 1).Select .Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False End If Else .Close SaveChanges:=True .ActiveWorkbook.Close SaveChanges:=True End With

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Peter
Das sind leider wie so oft beim Fragesteller nur halbe Codes, die hier gezeigt werden.

Was mimmt die Variable ws auf?

Was mimmt die Variable ls auf?

Was mimmt die Variable Muster auf?

Warum fehlt die If-Anweisung?

Vermutlich willst Du einen Bereich markieren, der nicht im aktiven Worksheet ist
Mit:

With ws
Sheets("Protokoll").Select
.Cells(6, ls + 1) = Muster
.Range(.Cells(6, ls), .Cells(lz, ls)).Select '...

Da Du Dich hier im Worksheet("Protokoll") befindest, dann aber einen Bereich
eines anderen Blattes markieren willst, kommt vermutlich der Fehler.
Fazit:
Komplette Codes zeigen, mit sauberer Variablendeklaration und der Information
wo der Code steht(DieseArbeitsmappe, Tabelle, Modul)
So ist das alles immer nur ein Ratespiel
Gruß Matthias

Hallo Matthias,
danke für deine Antwort. Du hast die Sache richtig beschrieben.
Ich befinde mich in der Datei A mit dem Worsheet "Protokoll". Von hieraus wird eine Überschrift in die Datei B übertragen. In der Datei B wird dann die neue Spalte mit dem Tabellenformat formatiert.
Nach deine Antwort habe ich erstmal Ordnung in meinen Code gebracht und "mea culpa" es funktioneiert.
Jetzt habe ich nur noch ein kleines Problem. Ich möchte die Datei B, die ich in der Datei A geöffnet, speichern und schließen.


With ws
lz1 = .Cells(Rows.Count, 2).End(xlUp).Row                'letzte Zeile
'----------------------------------------------------------------------------------------------- _
'Wenn die CD in der Tabelle vorhanden ist dann wird das Makro geschlossen und die Datei B    ' _
gespeichert und geschlossen
'----------------------------------------------------------------------------------------------- _
Set c = .Range(.Cells(6, 4), .Cells(6, ls)).Find(Muster, LookIn:=xlValues, LookAt:=xlWhole)
If c Is Nothing Then
Eingabe = MsgBox("Diese CD: " & Muster & " existiert noch nicht. Soll sie in die Tabelle in  _
der Datei B eingefügt werden?", vbYesNoCancel)
If Eingabe = vbYes Then
.Cells(6, ls + 1) = Muster
.Range(.Cells(6, ls), .Cells(lz, ls)).Copy
.Range(.Cells(6, ls + 1), .Cells(lz, ls + 1)).PasteSpecial Paste:=xlPasteFormats,  _
Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End If
Else
ws.Close SaveChanges:=True ==> Fehler beim Kompilieren: Methode oder Datenobjekt nicht  _
gefunden
ws.ActiveWorkbook.Close SaveChanges:=True  ==> Fehler beim Kompilieren: Methode oder  _
Datenobjekt nicht gefunden
End If
End With

Wie müsste der Befehl beim speichern aussehen?
Vielen dank für deine Antwort im voraus
LG, Peter

Beliebteste Forumthreads (12 Monate)

In With - end with Fehler 1004

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread