Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

definierte Zellen drucken
#11
Hallo Uwe,
da kommt das Fehler "400"

Gruß Clemens
Antworten Top
#12
Hi Clemens,

(08.03.2015, 14:14)barried schrieb: da kommt das Fehler "400"

kann es sein, daß die Tabellenblatt-Namen nicht mit denen im Makro übereinstimmen oder eine Tabelle nicht vorhanden ist?
Antworten Top
#13
Hallo Clemens,

welche Codezeile ist markiert wenn die Fehlermeldung auftaucht?
Gruß Stefan
Win 10 / Office 2016
Antworten Top
#14
Hallo Clemens,

kommt der Fehler eventuell in dieser Zeile:
Set oWsZ = Workbooks.Add(-4167).Worksheets(1)

Falls ja, probiere es mal so:
Set oWsZ = Workbooks.Add.Worksheets(1)
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#15
Hallöchen

ich habe das Makro gerade in 2000 getestet, da kommt auch kein Fehler 400. Wird also wahrscheinlich nicht an der von mir geposteten Zeile liegen.
Dort habe ich jedoch einen Fehler 1004, weil ich in dieser alten Version das Blatt nicht mit aktiviertem Autofilter löschen kann.
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#16
Eine Tabelle konnte ich jetzt drucken, sollte aber die ganze Mappe (V01 - V200) drucken.
Kenn mich mit Makros gar nicht aus.
Hab die Mappe nochmal hier.
https://onedrive.live.com/redir?resid=FC...FCD0DA!138&authkey=!ABHe4fFrqTGJRlU&ithint=file%2cxls
Antworten Top
#17
Hallo Clemens,

die geschützten Tabellen machten Probleme. Ersetze den alten Code durch folgenden:

Code:
Sub VerkaeuferlistenDrucken()
 Dim oWsQ As Worksheet, oWsZ As Worksheet
 Set oWsZ = Workbooks.Add(-4167).Worksheets(1)
 For Each oWsQ In ThisWorkbook.Worksheets
   If Left(oWsQ.Name, 1) = "V" And IsNumeric(Mid(oWsQ.Name, 2)) Then
     oWsQ.Range(oWsQ.Cells(9, 1), oWsQ.Cells(oWsQ.Rows.Count, 3).End(xlUp)).Copy
     With oWsZ
       .Cells(1, 1).Value = oWsQ.Name
       .Cells(3, 1).PasteSpecial xlValues
       .Columns.AutoFit
       .Range("A2:C2").AutoFilter 3, "=0"
       .PrintPreview 'zum Testen
       '.PrintOut
       .Range("A2:C2").AutoFilter
       .Cells.Delete
     End With
   End If
 Next oWsQ
 oWsZ.Parent.Close False
End Sub

Gruß Uwe
Antworten Top
#18
Hallo, jetzt hab ich das hier:
https://onedrive.live.com/redir?resid=FC...FCD0DA!139&authkey=!AFA9kqTgfVGhdac&ithint=file%2cdocx

Ich glaub ich mach was falsch!
Antworten Top
#19
Hallo,

hast Du eventuell irgendwo verbundenen Zellen drin? Wäre besser, die auseinander zu dröseln ...
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#20
Soweit ich weiß sind keine verbundenen Zellen drin
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste