Bedingtes Drucken aus Tabellenkalkulation

Computer: Software & Programmierung Office Software
1

Hallo Zusammen.

Ich habe da eine Frage, dessen Beantwortung zur Lösung eines Problems beitragen könnte, welches bei mir öfters auftritt.

Gibt es die Möglichkeit,eine Zeile aus der Tabellenkalkulation in Abhängigkeit von dem Inhalt einer Spalte der jeweiligen Zeile, auszudrucken bzw. nicht auszudrucken ?

Vielen Dank für die Hilfe.

2

Gibt es die Möglichkeit,eine Zeile aus der Tabellenkalkulation
in Abhängigkeit von dem Inhalt einer Spalte der jeweiligen
Zeile, auszudrucken bzw. nicht auszudrucken ?

Hi Christian,
anpassen musste ggfs noch 
A65536 in die gewünschte Spalte, zB F65536
und
If .Cells(n, 1) "nicht" Then
wobei da die 1 die Spaltennummer ist, A=1,B=2, C=3 usw
und halt die If-bedingung selbst

Sub test()
Set wsQuelle = Worksheets("Tabelle1")
Set wsZiel = Worksheets("Tabelle2")
letzte = Worksheets("Tabelle1").Range("A65536").End(xlUp).Row
zei = 1
With wsQuelle
 For n = 1 To letzte
 If .Cells(n, 1) "nicht" Then
 .Cells(n, 1).EntireRow.Copy Destination:=wsZiel.Cells(zei, 1)
 zei = zei + 1
 End If
 Next n
End With
wsZiel.PrintOut
Set wsQuelle = Nothing
Set wsZiel = Nothing
End Sub

Gruß
Reinhard
3

Hallo Christian,

ich würde vor dem Drucken die Zeilen ausblenden, die nicht gedruckt werden sollen.

Dies geht am einfachsten mit der Autofilter-Funktion unter Daten.

  1. Markiere die Felder in den Spalten einschließlich Spaltentitel, die die Daten enthalten, die Drucken Ja/Nein entscheiden sollen.
  2. Wähle Menüs Daten–> Autofilter
    Für jede der gewählten Spalten wird jetzt ein Pull-Down-Pfeil angezeigt
  3. Wähle Pull-Down-Pfeil der gewünschten Spalte aus und klicke auf ‚(Benutzerdfiniert)‘
  4. Wähle im angezeigten Fenter links die Bedingung ‚entspricht nicht‘ und rechts den Wert der nicht gedruckt werden soll.

Nach Klick auf OK werden alle gewünschten Zeilen ausgeblendet.

Nach dem Drucken kannst mit Klick auf den Pull-Down-Pfeil und dann auf ‚(Alle)‘ die ausgeblendeten Zeilen wieder anzeigen.

Gruß

Franz

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]