Seriendruck Wenn Spalte x oder X

Hallo Forum,
ich habe hier ein Makro gefunden:


Sub Seriendruck()
'Sicherheitsabfrage ob gedruckt werden soll
If MsgBox("Seriendruck starten?", vbOKCancel + vbQuestion, "Seriendruck") = vbCancel Then  _
Exit Sub
For i = 2 To 7 'Zeilen, die befüllt sind, hier A2-A7 wobei A Constant und Zahl variabel ist
If Not Sheets("tabelle1").Cells(i, 1) = "" Then 'sonst rennt das auch bei nicht befüllten  _
Zeilen durch!!
Sheets("tabelle2").Cells(3, 2) = Sheets("tabelle1").Cells(i, 1) 'Tab2 B3 Ziel, Tab1 A2-A7  _
Quelle
Sheets("tabelle2").Cells(4, 2) = Sheets("tabelle1").Cells(i, 2) 'Tab2 B4 Ziel, Tab1 B2-B7  _
Quelle
Sheets("tabelle2").Cells(5, 2) = Sheets("tabelle1").Cells(i, 3) 'Tab2 B5 Ziel, Tab1 C2-C7  _
Quelle
Sheets("tabelle2").PrintOut Copies:=1, Collate:=Tru '
End If
Next i
End Sub

Kann man es so einrichten, wenn in Spalte H ein x oder X steht, dass dann nur diese gedrückt werden als Seriendruck.
Dank und Gruss
mehmet

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Seriendruck() Dim Zeile1 As Long, wks1 As Worksheet, wks2 As Worksheet 'Sicherheitsabfrage ob gedruckt werden soll If MsgBox("Seriendruck starten?", vbOKCancel + vbQuestion, "Seriendruck") = vbCancel Then _ Exit Sub Set wks1 = Sheets("tabelle1") Set wks2 = Sheets("tabelle2") With wks1 'Zeilen in Spalte 8 (H) ab Zeile 2 prüfen auf x oder X, _ ggf. Werte übertragen und drucken For Zeile1 = 2 To .Cells(.Rows.Count, 8).End(xlUp).Row If LCase(.Cells(Zeile1, 8)) = "x" Then wks2.Cells(3, 2) = .Cells(Zeile1, 1) 'Tab2 B3 Ziel, Tab1 A2-A7 Quelle wks2.Cells(4, 2) = .Cells(Zeile1, 2) 'Tab2 B4 Ziel, Tab1 B2-B7 Quelle wks2.Cells(5, 2) = .Cells(Zeile1, 3) 'Tab2 B5 Ziel, Tab1 C2-C7 Quelle wks2.PrintOut Copies:=1, Collate:=Tru ' End If Next Zeile1 End With End Sub

Hallo mehmet,
Frage 1: weiss ich nicht
Bei mir finde ich die entsprechende DLL-Datei im Verzeichnis
C:\Programme\Gemeinsame Dateien\Symantec Shared\SSC
sie gehört also zum Virenscanner, dürfte für die Grund-Funktion von VBA-Excel normalerweise keine Rolle spielen.
Frage 2: Reihenfolge spielt keine Rolle
Frage 3: Die Verweise werden je Datei gespeichert. Wenn eine leere Arbeitsmappe geöffnet ist, dann sollten eigentlich für diese Arbeitsmappe die Grundeinstellung reichen.
Werden in der persönlichen MakroarbeitsMappe oder in AddInns viele Funktionen verwendet, zum Beispiel auch die Einbindung anderer Programme, dann sind für diese Mappe auch entsprechend mehr Verweise erforderlich.
ggf. die Verweise auf "überflüssigen" Verweise deaktivieren und probieren, ob es Probleme gibt. Evtl. auch mal den System-Administrator oder EDV-Betreuer fragen, ob bestimmte Funktionen/Verweise zwingend erforderlich sind.
Gruß
Franz

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Seriendruck Wenn Spalte x oder X

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread