Excel VBA Druckvorschau?

Hallo, wie kann ich eine benutzerdefinierte Seite (Tabellenblatt) über einen Button in der Userform in der Druckvorschau anzeigen lassen?

Einen Weg habe ich bereits gefunden, Problem ist nur, dass die Userform selbst auf der Druckvorschau erscheint und ich die Maske (Userform) nicht beenden kann.

Der weg ist folgender:

Private Sub btndruckvorschau_Click()

Worksheets("Beispiel").PrintPreview

End sub

2 Antworten

daCypher

04.08.2023, 11:00

Ein Problem ist, dass ein UserForm standardmäßig Modal angezeigt wird, also den Code von anderen Fenstern pausiert, solange es geöffnet ist. Das kannst du in den Eigenschaften vom UserForm einstellen. Stell die Eigenschaft "ShowModal" auf False.

Das zweite Problem ist, dass das UserForm im Weg ist, wenn man die Druckvorschau öffnet. Du könntest natürlich das UserForm beiseite schieben, bevor du den Button klickst, aber man das UserForm auch unsichtbar machen und später wieder sichtbar machen.

Etwa so:

Private Sub btndruckvorschau_Click()
    UserForm1.Hide
    Worksheets("Beispiel").PrintPreview
    UserForm1.Show
End Sub

TygaX

Fragesteller

06.08.2023, 17:28

Hi, Danke erstmal für deinen Kommentar, das hat mir sehr geholfen!!! Ist es möglich, die Userform in der PrintPreview "aktiviert" zu lassen, sprich das man von da aus das Dokument steuern kann?

daCypher

07.08.2023, 07:30

@TygaX

Ich kann es dir nicht 100%ig sagen, aber ziemlich wahrscheinlich geht das nicht. Die Druckvorschau öffnet sich selbst ja auch modal. Was vielleicht funktionieren könnte ist, wenn du jeweils eine Excel für das Formular und eine für die Tabellen hast. Ich kann es leider nicht testen, weil ich jetzt im Urlaub bin und keinen Laptop dabei hab

Xandros0506

03.08.2023, 21:14

Vor dem Öffnen der Druckvorschau legst du per VBA den Druckbereich fest.....

Private Sub btndruckvorschau_Click()
  With ActiveSheet.PageSetup
    .PrintArea = "A1:C20"
  End With
  Worksheets("Beispiel").PrintPreview
End Sub

Welcher Bereich gedruckt werden soll, musst du auf deine Bedürfnisse anpassen.

TygaX

Fragesteller

03.08.2023, 21:18

Das Problem ist nur, dass die Userform immer noch mit auf die Druckansicht gelangt und ich die Ansicht nicht schließen kann

Hallo, ich habe folgenden Code:

ComboBox1.RowSource = Worksheets("tabelle3").Range("intelligentetabelle[spalte1]").Address

Diesen Code führe ich auf einer Userform auf einem anderen Tabellenblatt, dem ersten, aus. Das Problem ist, jedes mal zieht sich die ComboBox die daten aus dem ersten Tabellenblatt und nicht aus dem dritten der intelligenten Tabelle. Wie kann ich das beheben?

Danke!

...zur Frage

Excel VBA - Nächste Leere Zelle finden?

Hallo, ich habe eine Sub geschrieben, die die nächste leere Zelle finden soll und dort etwas einfügen soll. Das ganze wird immer wieder wiederholt. Dabei habe ich allerdings ein Problem. In den Zellen A1-A10 stehen Formeln, die entweder einen Wert, oder "" ausgeben. Nehmen wir das Beispiel, dass in A1-A5 Werte stehen und A6-A10 leere Zellen sind, bzw "" (also nur eine Formel mit Ergebnis "" enthalten). Nun werden diese mit folgendem Code in das andere Tabellenblatt kopiert.

Wenn ich jetzt das ganze wiederhole, werden die neuen Daten in Tabellenblatt B erst in A11 eingefügt, obwohl A6-A10 ja leere Zellen sind.

Wie kann ich es abändern, dass Excel das Formelergebnis "" als leere Zelle ansieht?

Hier der Code:

Sub Test()

Worksheets("A").Range("A1:A10").Copy

Worksheets("B").Cells(Rows.Count, 1).End(xlUp).Offset(0, 0).PasteSpecial xlPasteValues

Application.CutCopyMode = False

End Sub

...zur Frage

Ausgeblendetes Tabellenblatt einblenden und dann aktivieren möglich?

Und wieder eine Frage:

Ich habe ausgeblendete Tabellenblätter und möchte nun über einen Command-Button, dass sich die Userform schließt, ein bestimmtes Tabellenblatt eingeblendet, dann aktiviert und dann eine Userform öffnet. Im Debug-Modus klappt es, aber wenn ich es direkt versuche, wird zwar die Userform geschlossen aber das Tabellenblatt nicht eingeblendet und aktiviert. Wenn ich die Userform schließe, dann aber wird das Tabellenblatt eingeblendet.

Habe wohl eine falsche Reihenfolge in diesem Code:

Private Sub CMD_More_Click()
    CMD_More.TakeFocusOnClick = False
    Unload Me
    Worksheets("Fertigungsprüfplan Seite 2").Visible = True
    Call change1
End Sub

Public Sub change1()
    Worksheets("Fertigungsprüfplan Seite 2").Select
    Range("A1").Select
    Load UserFormInspectionFeature2
    UserFormInspectionFeature2.Show
End Sub

Kann da auch jemand helfen? Danke im Voraus. Ich möchte es nur verstehen...

...zur Frage

Excel VBA UserForm schließt sich unabsichtlich?

Hallo,

ich habe in einer UserForm eine Button

Private Sub CommandButton1_Click()


Tabelle2.Range("A1") = "1"


End Sub

Wenn ich diesen Button drücke, schließt sich auch die UserForm.
Schreibe ich etwas unter:

 Tabelle2.Range("A1") = "1"

wird dieses nicht mehr ausgeführt.
Warum schließt sich die UserForm?

Zu aller Verwirrung schließt sich die UF nicht immer (wäre ja auch zu einfach...) wenn ich den Wert in A1 lösche und dann die UF öffne, den Button drücke, schließt sich die UserForm "meistens" nicht, trägt aber die "1" ein.

Wenn ich die UF wieder öffne und den Button drücke, während die "1" schon in A1 steht, schließt sich die UF jedesmal...

Öffnen tu ich die UF ebenfalls mit einem Button von einem Tabellenblatt

Private Sub CommandButton1_Click()
  UserForm1.Show
End Sub

Mein eigentliches Ziel:

Ich wollte lediglich die Spalte A in Tabelle2 clearen um dann aus einer ListBox die Werte in Spalte A einzutragen...nur schloss sich die UF jedesmal und teilweise wurde nicht mal Spalte A leer gemacht.

Wieso schließt sich die UserForm und wie kann ich es beheben?

...zur Frage

Excel Vba, Bilder löschen?

Hallo, gibt es eine Möglichkeit in excel vba alle Bilder auf dem Tabellenblatt mit einer Ausnahme zu löschen? Also alle Bilder bis auf ein definiertes sollen gelöscht werden.

...zur Frage

VBA-Code für Excel erweitern?

Hallo,

folgender Sachverhalt: In meiner Excel-Datei habe ich in Zelle A10 ein Datum stehen. In der Regel ist es der 01. Januar(Abweichungen möglich). In den Zellen B10-J10 stehen Daten. Nach betätigen der Enter-Taste soll in die Zelle A11 gesprungen werden. Dazu habe ich folgenden Code in einer Beispielmappe im Netz gefunden:

Sub EnterOnOff(Optional bolOn As Boolean)

If bolOn Then

Application.OnKey "{ENTER}", "NaechsteZeileEinblenden" 'EINGABETASTE (Zehnertastatur)

Application.OnKey "~", "NaechsteZeileEinblenden" 'EINGABETASTE

Else

Application.OnKey "{ENTER}" 'EINGABETASTE (Zehnertastatur)

Application.OnKey "~" 'EINGABETASTE

End If

End Sub

Private Sub NaechsteZeileEinblenden()

With ActiveCell.Offset(1).EntireRow

.Hidden = False

.Cells(1).Activate

End With

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

With Target.Cells(1)

EnterOnOff .Column = 10 And .Row > 9

End With

End Sub

Das funktioniert auch soweit. Nun möchte ich gerne, das Excel mir nach betätigen der Enter-Taste das nächste Datum in Zelle A11. Entsprechendes gilt natürlich fortlaufend.

Hat jemand ne Idee oder gar ne Lösung für mich?

Gruß Chris

...zur Frage

Excel VBA, Exit Sub?

Hallo, wenn ich eine Prozedur (Sub Beispiel()) in excel verlasse, bzw. wenn diese beendet wird, würde ich gerne dieses Signal abfangen und die Datei per Application.Quit beenden. Wie realisiere ich das?

...zur Frage

Excel Vba Typen Unverträglich?

Sub test()

For i = 1 To 10

Worksheets("Tabelle1").Range("C1:C10") = IIf((IsEmpty(Range("A1:A10")) + IsEmpty(Range("B1:B10"))) <> 0, "Not Calculable", (Range("A1:A10") - Range("B1:B10") + 1))

End Sub

...zur Frage

Excel VBA: Zu ausgeblendeten Tabellenblättern springen?

Hallo Community,

ich habe ein kleines VBA-Problem in Excel.

Zur Situation: Ich habe eine Mappe mit mehreren Tabellenblättern. Diese Blätter werden mir in einem Dropdownmenü angezeigt. Mithilfe eines Commandbutton springe ich dann auf das zuvor im Dropdown gewählte Tabellenblatt:

Hier der Code vom Commandbutton:

Private Sub CommandButton1_Click()

    ThisWorkbook.Sheets(Range("D7").Value).Select

End Sub

Dieses Code funktioniert allerdings nur, solange ich die Blätter auch unten in der Mappe anzeige.

Nun zu meiner Frage: Wie müsste der Code aussehen, wenn ich die Tabellenblätter ausblende?

...zur Frage

Excel VBA Userform: Textbox abhängig von Combobox machen?

Hallo,ich bin aktuell an einem Excel Projekt, in dem ich per VBA eine Userform erstellen möchte. Nun komme ich an folgender Prozedur nicht weiter.Ausgangssituation: Ich habe eine Userform mit Combobox (Combobox1) und Textbox (Textbox1) erstellt. Ich möchte nun, dass sobald in der Combobox ein bestimmter Wert ausgewählt wird, in der Textbox ebenso ein bestimmter Wert erscheint, der nur auf den einen Wert der Combobox passt. Die Combobox funktioniert einwandfrei, die Textbox macht nur nicht was sie soll. Bitte um Hilfe.Hier mein aktueller Code:

Private Sub UserForm_Initialize()

Me.ComboBox1.AddItem Range("A2")

Me.ComboBox1.AddItem Range("A3")

Me.ComboBox1.AddItem Range("A4")

Me.ComboBox1.AddItem Range("A5")

Me.ComboBox1.AddItem Range("A6")

If ComboBox1.Value = Range("A2") Then

TextBox1.Text = "5"

End If

End Sub

...zur Frage

Excel vba formel falsch,Was?

Sub test()
  Worksheets("Tabelle1").Range("A1") = worksheetfunction.iif(or(isempty(Range(A1)),isempty(Range(B2)),""(Range(A1-B2+1))
End Sub

...zur Frage

excel Range als Datum formatieren?

Hallo, wie kann ich per Excel Vba eine beliebige Range auf einem individuellen Tabellenblatt als benutzerdefinertes Datumsformat formatieren?

Worksheets("Tabellenblatt5").Range("A1:A14") = Format("ddd. * dd.mm.yyyy")

Mein bisheriger Versuch funktioniert leider nicht.

Danke

...zur Frage

Wie ermittelt man in Excel (VBA) den Zelleninhalt bei verbundenen Zellen?

Ich durchlaufe in meinem Excel VBA-Script die Zellen einer Spalte, um den Zelleninhalt auszuwerten. Nun kann es passieren daß Zellen "verbunden" sind. In diesem Fall liefert mir das Script nur jeweils für die linke oberste Zelle der verbundenen Zellen den Wert zurück. In den anderen Zellen kommt Blank zurück. Ich würde in allen Zellen den gleichen Wert zurückerwarten?
Wie könnte man das bewerkstelligen?
Hardcopy/Beispiel: In den grünen Spalten steht was ich erwarten würde. In den gelben die tatsächliche VBA-Ausgabe.

Private Sub Worksheet_Activate()
  Dim iRow As Integer
  iRow = 4
  Do
    Worksheets("Test").Cells(iRow, 5) = Worksheets("Test").Cells(iRow, 1)
    Worksheets("Test").Cells(iRow, 7) = Worksheets("Test").Cells(iRow, 2)
    iRow = iRow + 1
    If iRow > Worksheets("Test").UsedRange.Rows.Count Then Exit Do
  Loop
End Sub

...zur Frage

Ich möchte eine Userform mit einem VBA Code ausdrucken, wer weis wie es geht?

Private Sub btn3_Click() frmMengenrechner_Obi.PrintForm End Sub

Der Befehl druckt die Userform aus, aber leider nur einen kleinen Teil. Ich möchte einen Code, der mir ohne viel aufwand für den Anwender, die UserForm ausdruckt. Vielen Dank schon mal!!

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen