Live-Forum - Die aktuellen Beiträge
Datum
Titel
01.12.2023 17:31:05
Spalte ausblenden wenn zellen leer sind.
01.12.2023 15:24:19
Bereich definieren und nach mehreren Kriterien Zählen
01.12.2023 15:11:13
Wenn Funktion nicht zutrifft nächste Zeile überprüfen
Du konntest keine passende Antwort finden?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1012to1016
1012to1016
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Arbeitsblätter UND Diagrammblätter drucken

Arbeitsblätter UND Diagrammblätter drucken
29.09.2008 15:12:24
th.heinrich
Bestes Forum,
Mit diesem Beispiel von Hans können Arbeitsblätter in einer User-Form zum Druck gewählt werden.
Option Explicit

Private Sub cmdAbbrechen_Click()
Unload Me
End Sub




Private Sub cmdDrucken_Click()
Dim arrWks()
Dim iCounter As Integer, iCount As Integer
For iCounter = 0 To lstDrucken.ListCount - 1
If lstDrucken.Selected(iCounter) Then
Worksheets(lstDrucken.List(iCounter)).PrintOut
End If
Next iCounter
Unload Me
End Sub




Private Sub UserForm_Initialize()
Dim wks As Worksheet
For Each wks In Worksheets
If wks.Visible = True Then
lstDrucken.AddItem wks.Name
End If
Next wks
End Sub


Sind Diagrammblätter vorhanden, sollte es mit Sheets statt Worksheets gehen. Wer kann bitte helfen.
Gruss thomas

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Arbeitsblätter UND Diagrammblätter drucken
29.09.2008 15:19:00
Rudi
Hallo,

Sind Diagrammblätter vorhanden, sollte es mit Sheets statt Worksheets gehen.


Damit bist du schon auf dem richtigen Weg.


Private Sub UserForm_Initialize()
Dim wks As Object
For Each wks In Sheets
If wks.Visible = True Then
lstDrucken.AddItem wks.Name
End If
Next wks
End Sub

Gruß
Rudi

AW: Arbeitsblätter UND Diagrammblätter drucken
29.09.2008 16:05:37
th.heinrich
Hallo Rudi
Index ausserhalb des gültigen Bereichs in Codezeile
Worksheets(lstDrucken.List(iCounter)).PrintOut
Gruss thomas
Fehlerergänzung...
29.09.2008 16:13:00
th.heinrich
Hallo Rudi,
Fehler tritt nur beim Druckversuch des Diagrammblattes auf.
thomas
Anzeige
AW: Fehlerergänzung...
29.09.2008 16:17:49
Rudi
Hallo,
ersetze Worksheets durch Sheets.
Gruß
Rudi
AW: roger, vielen dank oT.
29.09.2008 16:37:24
th.heinrich
AW: Arbeitsblätter UND Diagrammblätter drucken
29.09.2008 15:29:27
Tino
Hallo,
vieleicht geht es so.
Dialog UserForm1 
Option Explicit 
 
 
 
Private Sub cmdDrucken_Click() 
Sheets(CStr(lstDrucken)).PrintOut 
 Unload Me 
End Sub 
 
Private Sub UserForm_Initialize() 
   Dim A As Integer 
   For A = 1 To Sheets.Count 
      If Sheets(A).Visible = True Then 
        lstDrucken.AddItem Sheets(A).Name 
      End If 
   Next A 
End Sub


Gruß Tino

Anzeige
AW: Arbeitsblätter UND Diagrammblätter drucken
29.09.2008 16:11:25
th.heinrich
Hi Tino,
in Codezeile
Sheets(CStr(lstDrucken)).PrintOut
unzulässige Verwendung von Null
Gruss thomas
? kann ich nicht nachvollziehen
29.09.2008 17:08:00
Tino
Hallo,
in CStr(lstDrucken), sollte Dein Tabellenname sein den Du in der ComboBox gewählt hasst, kann also nicht Null sein.
Gruß Tino
AW: ? kann ich nicht nachvollziehen
30.09.2008 12:01:39
th.heinrich
Servus Tino,
sorry kann erst jetzt antworten. Code schaut jetzt so aus.
Option Explicit

Private Sub cmdAbbrechen_Click()
Unload Me
End Sub




Private Sub cmdDrucken_Click()
Sheets(CStr(lstDrucken)).PrintOut  'unzulässige Verwendung von Null
Unload Me
End Sub




Private Sub UserForm_Initialize()
Dim A As Integer
For A = 1 To Sheets.Count
If Sheets(A).Visible = True Then
lstDrucken.AddItem Sheets(A).Name
End If
Next A
End Sub


Fehlermeldung sowohl beim Druckversuch eines Tabellenblattes, alsauch Diagrammblattes wie oben.
Gruss thomas

Anzeige
Vieleicht liegt es an Office 2000
30.09.2008 14:01:00
Tino
Hallo,
vielleicht liegt es daran, dass Office 2000 etwas kleinlich ist, unter 2003 geht der Code.
Eventuell müsste es so akzeptiert werden.
Option Explicit

Private Sub cmdAbbrechen_Click()
Unload Me
End Sub




Private Sub cmdDrucken_Click()
Sheets(CStr(lstDrucken.Value)).PrintOut  'unzulässige Verwendung von Null
Unload Me
End Sub




Private Sub UserForm_Initialize()
Dim A As Integer
For A = 1 To Sheets.Count
If Sheets(A).Visible = True Then
lstDrucken.AddItem Sheets(A).Name
End If
Next A
End Sub


Gruß Tino

Anzeige
AW: Funzzt leider auch nicht oT.
30.09.2008 16:32:42
th.heinrich
dann weis ich auch nicht...
30.09.2008 16:58:00
Tino
Hallo,
..., unter 2003 und 2007 geht dies.
Gruß Tino
AW: Funzzt leider auch nicht oT.
30.09.2008 17:00:00
Gerd
Hallo,
vlt. liegt es daran, dass in der Listbox nix ausgewählt worden ist?

Private Sub cmdDrucken_Click()
If lstDrucken.ListIndex > -1 then
Sheets(CStr(lstDrucken.Value)).PrintOut  'unzulässige Verwendung von Null ?
End if
Unload Me
'End if  'oder hier
End Sub


Gruß Gerd

AW: Fehlermeldung bleibt
01.10.2008 10:47:22
th.heinrich
Danke Gerd,
für Deine Hilfe, aber egal wo End If gesetzt wird, es bleibt bei der Fehlermeldung.
Bei den bisherigen Versuchen war auch immer ein Eintrag der ListBox gewählt.
Gruss thomas
Anzeige

303 Forumthreads zu ähnlichen Themen

@Hans W. Herber: 1 Million Beiträge - Glückwunsch
mpb

Hallo Hans,
wenn ich die URLs richtig interpretiere, haben wir im Forum soeben die Zahl von 1 Million Beiträgen überschritten.
Herzlichen Glückwunsch zu dem Erfolg Deines "Babys"!
Gruß
Martin
07.08.2008 16:23:47
Thread-ID: 1000004
3 Beiträge
Arbeitsblätter zählen und Ergebnis verarbeiten
Botti

Hallo Leute,
heute habe ich wieder mal ein einfaches Problem für Euch, an dem ich aber nicht weiter kommen:
Ich möchte die Arbeitsblätter in meiner Arbeitsmappe zählen. Das ist ja kein Problem (ThisWorkbook.sheets.count).
wenn das makro mehr als ein Arbeitsblatt zählt (also das Erge...
07.08.2008 19:11:30
Thread-ID: 1000078
8 Beiträge
Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Zellen mit Werten aus darüberliegender Zelle fülle
Andreas

Guten Morgen!
Ich hätte folgendes Problem: Ich erhalte automatisiert Exceltabellen, bei denen nicht alle Zellen einer Zeile gefüllt werden, wenn dort der Inhalt einer darüberliegenden Zeile stehen sollte. Zur Weiterverarbeitung muss ich aber diese Zellen mit den dazugehörigen Werten füllen....
11.08.2008 08:59:25
Thread-ID: 1000713
4 Beiträge
Häufigkeitslücken
Michi

Hallo,
google spuckt Zu "Excel" und "Häufigkeitslücken" lediglich 3 Treffer aus, die nicht gerade brauchbar für meine Aufgabe sind.
Ich muss für 3 Variablen eine Typisierung mit einer Häufigkeitslücke durchführen.
Hiermit bin ich fast gänzlich überfragt. Mit Quantilen hatte ich das...
11.08.2008 10:29:00
Thread-ID: 1000742
2 Beiträge
Zellen formatieren mit vorangehenden "Nullen"
Addi

Hallo zusammen,
ich habe eine lange Liste, in der in einer Spalte Daten stehen, wo ab und zu vorangehende Nullen nötig sind (mal eine - mal 2...etc.) - und manchmal auch keine.
Wie kann ich diese Zellen formatieren, das die vorangehenden "Nullen" nicht automatisch weggelassen werden?
11.08.2008 10:37:00
Thread-ID: 1000746
8 Beiträge

Links zu Excel-Dialogen

ComboBox
ListBox
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige