Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1532to1536
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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
AW: Kopie drucken
15.01.2017 17:44:41
Rainer
Danke Hajo,
funktioniert einwandfrei.
Gruß Rainer

Links zu Excel-Dialogen

ListBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige