variabler Datenbereich
23.12.2014 23:41:36
Thomas
ich habe hier ein super Macro gefunden. Kann mir jemand helfen ich möchte gern den Datenbereich variabel gestalten. Super wäre es wenn der datenbereich sich an den gefüllten zeilen in der tabelle datenbereich anpasst.
Richtig cool wäre auch wenn nur die daten gedruckt werden wenn in Spalte D ein x in der betroffenen spalte steht.
Sub Seriendruck()
On Error Resume Next
Dim Serientabelle As Worksheet
Dim Datentabelle As Worksheet
Dim Datenbereich As String
Dim Dbereich As Range
Dim Sbereich As Range
Dim Anzahl As Long
Dim Quellzelle As Range, Zielzelle As Range
Dim Datenname As String
Dim Serienname As String
Datenname = "Datentabelle"
Serienname = "Serientabelle"
Datenbereich = "A2:D7"
Serienbereich = "b3,b4,b6,b7"
Set Serientabelle = ActiveWorkbook.Worksheets(Serienname)
Set Datentabelle = ActiveWorkbook.Worksheets(Datenname)
Set Dbereich = Datentabelle.Range(Datenbereich)
Set Sbereich = Serientabelle.Range(Serienbereich)
'Tabellen adressieren
For Anzahl = 1 To Dbereich.Rows.Count
Spalte = 1
'Schleife starten
For Each Zielzelle In Sbereich
Set Quellzelle = Dbereich.Cells(Anzahl, Spalte)
Spalte = Spalte + 1
'Alle variablen Zellen pro Datensatz durchlaufen
Zielzelle.Formula = Quellzelle.Value
Next Zielzelle
'Daten aus Datensatz in Serientabelle übernehmen
Serientabelle.PrintPreview
'Serientabelle.PrintPreview zum drucken tauschenPrintOut
Next Anzahl
'Tabelle drucken
A = MsgBox("Es wurden " & CStr(Anzahl - 1) & " Tabellen ausgedruckt.", vbOKOnly, "Druckbericht") _
On Error GoTo 0
End Sub