Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1532to1536
1532to1536
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kopie drucken

Forumthread: Kopie drucken

Kopie drucken
15.01.2017 14:32:54
Rainer
Hallo,
verwende diesen Code 
    For lListBox = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(lListBox) Then
iIndex = iIndex + 1
ReDim Preserve aTemp(1 To iIndex)
aTemp(iIndex) = CLng(ListBox1.List(lListBox, 2))
End If
Next lListBox
für den Ausdruck aus einer ListBox.
Da ich diesen durch Eure Mithilfe eingerichtet habe, bräuchte ich nochmal etwas Unterstütung.
Den Code würde ich gerne wiederholen, um eine Kopie zu erhalten.
Dazu sollte auf dem entsprechenden Arbeitsblatt z.B. in Zelle D4 "KOPIE" stehen haben und am Ende dann wieder leer stehen.
Ist das möglich?
Gruß Rainer
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopie drucken
15.01.2017 14:37:54
Hajo_Zi
Hallo Rainer,
mit dem Code wird nicht gedruckt.
For lListBox = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(lListBox) Then
iIndex = iIndex + 1
ReDim Preserve aTemp(1 To iIndex)
aTemp(iIndex) = CLng(ListBox1.List(lListBox, 2))
Worksheets(CLng(ListBox1.List(lListBox, 2))).Range("D4") = "KOPIE"
End If
Next lListBox

Anzeige
AW: Kopie drucken
15.01.2017 14:45:44
Rainer
Hallo Hajo,
im Anschluss folgt: 
    Me.Hide 'Erforderlich, falls mit Seitenvorschau gearbeitet wird
If iIndex > 0 Then
DruckerAktiv = Application.ActivePrinter 'aktiven Drucker merken
Sheets(aTemp).Select
If Application.Dialogs(8).Show = True Then
End If
Application.ActivePrinter = DruckerAktiv 'gemerkten Drucker wieder aktivieren
End If
Kann ich hier dann noch eine Änderung einbauen?
Gruß Rainer
Anzeige
AW: Kopie drucken
15.01.2017 17:12:28
Hajo_Zi
der erste Code ist also richtig.
nach Druck
For lListBox = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(lListBox) Then
iIndex = iIndex + 1
ReDim Preserve aTemp(1 To iIndex)
aTemp(iIndex) = CLng(ListBox1.List(lListBox, 2))
Worksheets(CLng(ListBox1.List(lListBox, 2))).Range("D4") = ""
End If
Next lListBox
Gruß Hajo
Anzeige
AW: Kopie drucken
15.01.2017 17:44:41
Rainer
Danke Hajo,
funktioniert einwandfrei.
Gruß Rainer
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige