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
#31
Hallo Clemens,

habe Deine Datei erhalten.

Darauf muss man erst mal kommen, dass alle Blätter gruppiert sind.
Teste mal damit:

Code:
Sub VerkaeuferlistenDrucken()
 Dim oWsQ As Worksheet, oWsZ As Worksheet
 ActiveSheet.Select
 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

Hallo André,
es handelt sich um eine xls-Datei.

Gruß Uwe
Antworten Top
#32
Hallo Uwe,

als xls hab ich die auch runtergeladen. Ich wollte nur noch mal sicher gehen. Excel hat mich nämlich angemosert, dass das Dateiformat nicht mit der Erweiterung übereinstimmt. Ich konnte die Datei entweder "trotzdem öffnen" oder zur Vermeidung der Meldung die Dateierweiterung ändern.
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#33
Hallo André,

das hatte tatsächlich keinen Wert mit dem "Speichern unter",
deshalb bat ich Clemens, mir die Datei per Email zu schicken.

Gruß Uwe
Antworten Top
#34
Hallo Uwe,
habe die Datei getestet, und es funktioniert alles.
Danke schön!
Ich danke euch allen für eure Mühe und Hilfe.

Gruß Clemens
Antworten Top


Gehe zu:


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