Mit Excel VBA Drucken programmieren?

Hallo Zusammen

Ich steh wieder mal an mit VBA.

Also: Ich habe eine Tabelle mit Kundendaten. Wenn ich die Kundennummer anklicke, soll er mir das verlinkte Dokument drucken, bis er keine Kundennummer mehr findet. Also die Tabelle "Kundendaten" sieht z.B. so aus:

Bild zum Beitrag

Jetzt will ich, dass er die Kundennummern 15-20 druckt und dann aufhört. Dann, wenn ich die Zelle mit "26" anklicke, soll er die Nummern 26-39 drucken. Den Code fürs drucken habe ich geschrieben. Jedoch brauche ich noch etwas, dass er "bis zur nächsten leeren Zelle" alles druckt und dann aufhört. Sozusagen: Wenn der Code eine leere Zelle erreicht, wird der VBA Code unterbrochen. Der Code zum Drucken sieht (vereinfacht) so aus:

ActiveCell.Copy

Workbooks.Open "D:\WKS\2_Aktuelles Jahr\Rapporte\5_Rapport SG, ZH, AI.xlsx"

Range("BQ11:BW11").PasteSpecial

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1

ActiveWorkbook.Close savechanges:=False

ActiveCell.Offset(1, 0).Select

End Sub

Weisst jemand, wie ich das Programmieren kann, dass "eine Leere Zelle" den Code beendet/er nicht unendlich druckt?

Danke im Voraus für eure Antworten!

2 Antworten

geri3d

26.04.2024, 21:24

Stop oder Exit Sub. (Basic) sonst CEEMOUT 0, AE in Assembler.

...

uups, manno . . .

Ein Range ist ein Bereich der mit zwei Koordinaten im Excel Sheet Universum (Ja es hat eine Grenze) angegeben wird mit "A" (Buchstabe und "1" als Koordinate zur Zelle oder quadratischen Zellbereich.´´

Gruß aus Innsbruck

Woher ich das weiß:Berufserfahrung – Softwareentewickler / Unternehmensberater bei CSDIT iR

xDtrinixD

Fragesteller

26.04.2024, 22:56

Habs geschafft, danke. Falls sich jemand die selbe Frage irgendwann stellt, hier mein Code:

If ActiveCell.Offset(0, 0) <> "" Then

ActiveCell.Copy

Workbooks.Open "D:\WKS\2_Aktuelles Jahr\Rapporte\5_Rapport SG, ZH, AI.xlsx"

Range("BQ11:BW11").PasteSpecial

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1

ActiveWorkbook.Close savechanges:=False

ActiveCell.Offset(1, 0).Select

Else

Exit Sub

End If

ActiveCell.Offset(1, 0).Select

Loop

End Sub
LG Trini

cleanercode

27.04.2024, 00:05

@xDtrinixD

Sehr gute Arbeit :)

cleanercode

26.04.2024, 22:49

Eine Schleife, die solange läuft, bis die aktuelle Zelle (oder gar Zeile) leer ist.

Falls dies zutrifft, Exit Sub

Woher ich das weiß:Berufserfahrung – > 20 Jahre in der Softwareentwicklung

Hallo Zusammen

Ich bin ganz neu im VBA und bin etwas am Herumprobieren. Einen Teil habe ich geschafft, aber an einem Punkt hänge ich.

Ich will, dass ein Makro läuft, welches die Datei automatisch unter dem Namen "Kundennummer_Servicedatum" abspeichert. Die Kundennummer und das Servicedatum sind beide im Dokument unter separaten Zellen hinterlegt, die Formel sieht jetzt so aus:

Sub Speichern_unter()

Dim SaveName As String

Dim Datum As Date

SaveName = ActiveSheet.Range("BQ11").Text

Datum = ActiveSheet.Range("BM17")

ActiveWorkbook.SaveAs Filename:="D:\ABC\Service\" & SaveName & "_" & Datum & ".xls"

End Sub

Soweit funktioniert alles, das Dokument heisst z.b. "149_31.10.23"

Das Datum ist als dd.mm.yy in der Zelle, zum Abspeichern brauche ich aber folgendes Format: yymmdd. Ziel ist also der Name "149_231031"

Kann mit jemand helfen, wie ich das Datum umgedreht bekomme? Danke im Voraus :)

...zur Frage

Zeile im VBA Code fixieren?

Hallo,

vielleicht kann mir mal wieder jemand bei einem Excel Problem helfen. Im Netz werde ich nicht fündig :-)

Ich habe in meiner Inventurliste (als Tabelle formatiert mit Ergebniszeile) einen Button eingefügt, der mir automatisch eine neue Zeile hinzufügt. In Zelle B8 zählt mir die Formel =Zeile(B1) die Positionen hoch. Damit er diese aber ordentlich zählt, müsste das Makro immer von der Ergebniszeile aus, eine neue Zeile hinzufügen - tut es aber nicht. Dadurch stimmen die Nummerierungen nicht. Kann man dem Makro sagen, dass er immer von der Ergebniszeile ausgeht, egal in welcher Zelle/Spalte diese steht?

Vielen Dank im Voraus :)

...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

Access VBA Code für Suchformular geht nicht?

Hey, ich habe in einem Formular "Hauptmenü" ein Unterformular "InstallationskeysFormular", in dem Hauptformular habe ich ein Textfeld "txtSuche" und einen Button "btnSuche", mit folgendem Code:

Private Sub btnSuche_Click()

Dim strFilter As String

If Not IsNull(Me!txtSuche) Then

strFilter = "Produkt LIKE '*" & Me!txtSuche & "*' OR Beleg LIKE '*" & Me!txtSuche & "*' OR Kundennummer LIKE '*" & Me!txtSuche & "*'"

Me.Filter = strFilter

Me.FilterOn = True

End If

End Sub

Mithilfe dessen möchte ich das Unterformular sowohl nach Produkt, Beleg oder Kundennummer durchsuchen können und nur die passenden Datensätze sollen im Unterformular angezeigt werden.

In einem anderen Formular, welches kein Unterformular hat, funktioniert das einwandfrei.

Deshalb habe ich folgendes versucht, ich habe bei den Me.Filter und Me.FilterOn, den Namen des Unterformulares ergänzt, aber funktionieren tut es immer noch nicht, kann mir bitte wer sagen woran das liegt, dankeee.

Private Sub btnSuche_Click()

Dim strFilter As String

If Not IsNull(Me!txtSuche) Then

strFilter = "Produkt LIKE '*" & Me!txtSuche & "*' OR Beleg LIKE '*" & Me!txtSuche & "*' OR Kundennummer LIKE '*" & Me!txtSuche & "*'"

Me.InstallationskeysFormular.Filter = strFilter

Me.InstallationskeysFormular.FilterOn = True

End If

End Sub

...zur Frage

Excel VBA - Springe zu Zelle mit Inhalt Befehl?

Hallo,

ich schaffe es leider nicht einen VBA Code zusammenzubauen, welcher folgendes kann:
Klickt man auf Tabelle 1 eine Zelle mit Inhalt an, dann soll Tabelle 2 geöffnet werden und es soll in der Spalte A die erste Zelle angewählt werden die exakt den gleichen Namen hat wie die angeklickte Zelle bei Tabelle 1.

Beispiel: Man klickt auf Tabelle 1 die Zelle an mit dem Inhalt "Lagerhalle". Dann springt Excel in Tabelle 2 und wählt die erste Zelle aus, worin der Inhalt "Lagerhalle" ist.

Danke im Voraus

...zur Frage

VBA Excel Such- und Kopierfunktion?

Moin,

ich habe eine Tabelle eine Excel Tabelle eines Händlers, bei welcher ich nach folgendem suchen muss

Spalte Rücksendung : Wenn ja, dann soll diese Spalte in das Tabellenplatt "Rücksendungen" kopiert werden
Zielland : Wenn Deutschland, dann in Tabelle Deutschland kopieren, ansonsten in Tabelle Ausland

Wie ich die Zeieln kopiere usw habe ich schon draußen, alelrdings habe ich noch viel mehr Sortierkrietreiun und die beiden nur Beispiele sind, würde ich gerne das ganze in einer Funktion programmieren :

--> If "Spalte" = "Suchkritriterium" Then --> Kopieren nach "Ziel"

Allerdings hapert es hier unter anderem daran, wie ich die Funktion dann mit den jeweiligen Argumenten aufrufe.

Ich hoffe ihr könnt mir helfen .... ist sehr wichtig ^^

Danke schonmal :)

...zur Frage

Wie kann ich einen Excel VBA Code Wert in eine vorhandene UserForm einfügen, bearbeiten und zurück übertragen?

Wie kann ich die Werte der Zellen einer Spalte in ein die Textboxen einer UserForm übergeben sodass ich die Werte im Formular bearbeiten und bearbeitet wieder in die Tabelle eintragen kann. Also ich suche einen Code den ich in VBA eingeben kann.

...zur Frage

VBA | UserForm öffnen, sobald Excel-Zelle (die eine Formel enthält) = 2?

Hallo,

Excel-VBA....

ich benötige Hilfe beim Thema UserForm öffnen und ständige Abfrage.

Ich habe eine Zelle mit einer Formel, der Wert, welcher raus kommt soll verglichen werden und bei z.b höher als 2 soll eine User Form geöffnet werden.

Kann mir da wer helfen? Ich bin komplett auf dem Holzweg..

Der Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$T$6" Then
If UCase(Target.Value) > 2 Then NewUserForm.Show
End If

End Sub

Devo

...zur Frage

Mit Klick auf Zelle in Excel etwas einfügen?

Hallo,

Ich will eine Tabelle programmieren, finde aber eine Funktion nicht:

Ich will, dass wenn ich auf eine Zelle in einer Excel Tabelle klicke, automatisch ein voreingestellter Wert eingefügt wird.

Sozusagen ich drücke drauf und es erscheint.

Weiß wer von euch ob es einen solchen Code gibt und falls ja wie er lautet.

Ich weiß es gibt unter entwicklertools solche abhackkästchen zum einfügen, allerdings sind die aus mehreren Gründen unpraktisch für mich.

Danke im voraus, LG Steve

...zur Frage

Makro mit VBA in Excel zerschossen, brauche dringend Hilfe!?

Hallo zusammen,

vorab schonmal, nein ich habe hier absolut 0% Ahnung hiervon und brauche dringend Hilfe!

Ich habe auf der Arbeit bei einer wichtigen Excel Datei eine neue Spalte eingefügt, was dafür gesorgt hat, dass eine wichtige Spalte rechts davon weiter nach rechts verschoben wurde um eine Zelle.

In dieser Spalte wurden Enddatum eingetragen und diese wurden mit einem Makro über VBA Absteigend von jüngerem Datum oben, nach späteren Datum nach unten hin sortiert.

Nachdem ich die neue Spalte zugefügt habe, funktionierte eins nach dem anderen nicht mehr richtig und ich war so dumm zu versuchen das Makro minimal anzugleichen, sodass es funktioniert und habe es dann getestet.

Dadurch habe ich es nur schlimmer gemacht...

Zudem kann ich jetzt nicht mal mehr in der Tabelle scrollen, zumindest in diesem Reiter, in einem anderen Reiter unten, kann ich scrollen in der Datei.

Der Text in VBA Stand jetzt:

Sub Sortieren()

' Sortieren Makro

Rows("3:500").Select

Range("B3").Activate

ActiveWorkbook.Worksheets("Übersicht").Sort.SortFields.Clear

ActiveWorkbook.Worksheets("Übersicht").Sort.SortFields.Add Key:=Range( _

"H4:Hl34"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _

xlSortNormal

With ActiveWorkbook.Worksheets("Übersicht").Sort

.SetRange Range("A3:L500")

.Header = xlYes

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

ActiveWindow.SmallScroll Down:=3

ActiveSheet.Range("$A$3:$L$97").AutoFilter Field:=12, Criteria1:="="

ActiveWindow.SmallScroll Down:=-12

End Sub

...zur Frage

Excel VBA Makro Code?

Guten Tag zusammen,

Undzwar geht es darum das ich ein Makro erstellt habe der sieht so aus :

Sub Makro1()

' Makro1 Makro

Range("D3").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("1M").Select

Range("C6").Select

ActiveSheet.Paste

Sheets("Tabelle1").Select

Range("J3").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("1M").Select

Range("C7").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Sheets("Tabelle1").Select

Range("R3").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("1M").Select

Range("C13").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("D26").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("Tabelle1").Select

Range("H3").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

End Sub

Das Problem ist jetzt das ich möchte das er in der Excel Tabelle jede Zeile mit diesem Makro ausfüllt sprich er soll bei Zeile 3 anfangen und bis 322 weiterführen ich habe 2 Mappen 1. "Tabelle1" und "1M"

Tabelle1 hatt die 322 Zeilen aber er springt nicht zur jeder Zeile und die Zelle "D3" , "J3", "R3", "H3" sollten dann auf die nächste Zeile Springen Sprich "D4", "J4" , "R3" , "H4" wenn er auch in der 4 Zeile ist

die restlichen Zellen sollen festbleiben zugehörig zu Mappe "1M"

ich hoffe es ist verständlich was ich meinte :'D

...zur Frage

Mailversand über Excel - Bestimmte Zeilen/Bereiche durch VBA?

Hallo zusammen,

ich benötige Eure Unterstützung, ich komme nämlich nicht weiter.

Wenn in der Zelle C10 z. B. Erstes-Interview steht, dann sollen, nachdem auf eine Schaltfläche geklickt wird, entsprechende Bereiche/Zellen als E-Mail versendet werden. Leider kann ich aber nicht mehrere Bereiche (die von einander getrennt sind, als eine E-Mail versenden.

Was mach ich falsch?

Vielen Dank vorab.

Mein Code:

Sub Mail_Versand()

Sheets("Template").Select

If Range("C10").Value = "Kaffee-Date" Then

ActiveSheet.Range("B12:D21").Select

End If

If Range("C10").Value = "Erstes-Interview" Then

ActiveSheet.Range("B23:D23,B26:D33").Select

End If

ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope

.Item.To = "xxx"

'.Item.cc =

'.Item.bcc =

.Item.Subject = Range("C10").Value & " / Bitte um weitere Bearbeitung"

.Item.Send

End With

End Sub

...zur Frage

Button in Excel mit Funktionalität programmieren?

Kann ich in Excel einfach einen Button einfügen, hinter dem ein Stück Code steckt, der dann das Sheet durchsucht und auf die richtige Zelle springt?

Kann mir jemand den Link auf die MS Dokumentation schicken oder ein gutes Tutorial?

Die Anforderung ist in etwa so:
* Klick auf Button
* ermittle_Uhrzeit()
*springe in die Zelle rechts neben der Uhrzeit ( gerundet )

danke{};

...zur Frage

Cell Value bzw. Zellen Inhalt ändern über Function in VBA?

Hallo Zusammen, kann mir jemand sagen wie ich mithilfe einer Function in Excel VBA den Inhalt einer Zelle ändern kann? Ich habe hier ein kleines Beispiel, während der Code in einem Sub scheinbar ohne Probleme ausgeführt wird, scheint dieser in einer Function zum Abbruch zu führen.

Vielen Dank für jede Antwort im Voraus!

Gruß Leo

Beispiel:

Sub Test()

ActiveCell.Offset(1, 1) = "1"

End Sub

Function Test()

ActiveCell.Offset(1, 1) = "1"

End Function

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen