Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
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
1060to1064
1060to1064
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Drucken bis letzter Eintrag

Forumthread: Drucken bis letzter Eintrag

Drucken bis letzter Eintrag
21.03.2009 05:56:26
sabine
Ob mir jmd. helfen kann? Möchte in einem Arbeitsblatt, dass bis Zeile 225 Formeln enthält nur bis zu der Zeile drucken, die auch Einträge enthält, z. B. bis Zeile 80. Folgendes Makro habe ich mehrfach im Netzt gefunden, funktioniert auch, dauert aber.... Kann man nicht "Drucken bis letzter Eintrag" programmieren statt leere suchen und ausblenden?
Gruß
Sabine

Private Sub CommandButton1_Click()
Dim i!, e!, l!, s%
'e = Erste Zeile der Tabelle
'l = Letzte zeile der Tabelle
's = Spalte, in der die Zellen auf "" (leer)überprüft werden sollen
e = 1
l = 65000
s = 1
'Leere Zeilen ausblenden
For i = e To l
If Cells(i, s) = "" Then Rows(i).EntireRow.Hidden = True
Next
'Drucken
ActiveSheet.PageSetup.PrintArea = "A1:J65000"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
'Zeilen einblenden
For i = e To l
If Rows(i).Hidden = True Then Rows(i).EntireRow.Hidden = False
Next
End Sub


Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Drucken bis letzter Eintrag
21.03.2009 07:21:49
Cathy
Guten Morgen Sabine,
versuche es einmal hiermit:
'Columns("A:A").SpecialCells(xlCellTypeFormulas, 2).EntireRow.Hidden = True
Freundliche Grüße
Cathy
AW: Drucken bis letzter Eintrag
21.03.2009 07:23:49
Tino
Hallo,
versuche es mal hiermit.
Sub Drucken()
Dim rLetzte As Range
Set rLetzte = Cells.Find("*", , xlValues, 2, 1, 2, False, False, False)

If Not rLetzte Is Nothing Then
 With ActiveSheet
  .PageSetup.PrintArea = .Range("A1", rLetzte).Address
  .PrintOut
  .PageSetup.PrintArea = ""
 End With
End If

End Sub


Gruß Tino

Anzeige
@Tino
21.03.2009 08:25:46
Oberschlumpf
Moin Tino
Verrätst du mir bitte, wie du den Code mit den Formatierungen hier rein "kriegst"?
Danke.
Ciao
Thorsten
AW: @Tino
21.03.2009 08:57:38
Oberschlumpf
Hi
Danke für den Link, aber das Prog "mag" mein Office (Version XP) wohl nicht.
2x erhalte ich den Hinweis, dass ich wohl eine frühere Version nutze (als das Prog erwartet), und zum Schluß erscheint die Meldung
"Der programmatische Zugriff auf das Visual Basic Projekt ist nicht sicher"
Letzteres liegt wohl daran, dass ich die Option "Zugriff auf Visual Basic Projekt vertrauen" NICHT aktiviert habe.
Na ja, macht nix, dann poste ich meine Codes eben wie gewohnt.
Ciao
Thorsten
Anzeige
AW: @Tino
21.03.2009 09:08:52
Tino
Hallo,
kann sein, irgendwo habe ich mal gelesen dass es erst ab Version 2000 geht.
Gruß Tino
2000?
21.03.2009 09:11:24
Oberschlumpf
Hi
Bin nu etwas verwirrt. Ich nutze XL2002. Du meintest sicher XL2007, oder 2003, oder?
Ciao
Thorsten
AW: Habs gerade geladen, funkt XL2003-oT
21.03.2009 09:16:31
robert
Anzeige
OK, danke...owT
21.03.2009 09:18:53
Oberschlumpf
AW: 2000?
21.03.2009 09:20:02
Tino
Hallo,
jetzt weis ich wo ich dies gelesen habe, in einer älteren Version.
Userbild
Gruß Tino
AW: @Tino
24.03.2009 11:22:12
Sabine
Hallo Tino,
meinst du, wie ich den Code hier hereinkopiert habe-)? Strg C / Strg V
Anzeige
war nicht meine Frage. ;-) oT.
24.03.2009 11:46:42
Tino
;

Forumthreads zu verwandten Themen

Zeile mit Werten aus anderer Tabelle vergleichen
onkelbobby

Hi,
ich versuche folgendes in meine Datei einzubauen.
Tabelle 2 enthält Adressdaten und eine Infospalte. In diese Infospalte kann der Wert "S" oder der Wert "A" eingetragen werden.
In Tabelle 1 sind auch diverse Adressdaten gepflegt. Alle Adressen in Tabelle 1 sind auch in Tabelle 2...
29.08.2008 10:37:00
Thread-ID: 1005722
3 Beiträge
Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge
zeile ermitteln, werte prüfen
sonja

hallo ihr lieben,
ich hoffe ihr könnt mir auch dieses mal wieder helfen.
ich möchte in einer zeile (die sich ständig ändert letzte beschriebene zeile minus 6)
in jeder spalte prüfen ob der wert kleiner als ... ist, wenn dies zutrifft sollte sich eine userform
mit einem hinweis...
10.10.2008 16:55:00
Thread-ID: 1015638
11 Beiträge
Letzte Zeile Finden und Daten einfügen
Eddie

Hallo @ all ...
Ich würde gerne in meinen aktiven Sheet die letzte Zeile Finden, wo etwas steht, und dann 5 Zeilen tiefer noch den Text 'ENDE' in der A'ten Spalte einfügen
Da mit den Suchen ist ja kein Problem, aber Ihn dann sagen das er 5 Zeilen runter gehen soll schon :-)
Sub su...
20.10.2008 15:17:00
Thread-ID: 1017692
4 Beiträge
Letzte Zeile Finden und Daten einfügen
Eddie

Hallo @ all ...
Ich würde gerne in meinen aktiven Sheet die letzte Zeile Finden, wo etwas steht, und dann 5 Zeilen tiefer noch den Text 'ENDE' in der A'ten Spalte einfügen
Da mit den Suchen ist ja kein Problem, aber Ihn dann sagen das er 5 Zeilen runter gehen soll schon :-)
Sub su...
20.10.2008 15:28:24
Thread-ID: 1017698
2 Beiträge
letzte Zelle mit eintrag
Jens

Hallo,
ich habe ein problem....
in einer tabelle (spalte) werden immer mehr werte eingetragen.... von A16 bis A....
in zelle A7 soll nun automatisch der letzte, also unterste wert der in der entspr. spalte eingetragen ist übernommen werden....
mfg
Jens
24.10.2008 12:17:00
Thread-ID: 1018957
4 Beiträge
Anzeige
Letzte Zelle & Mittelwert
Frank

Hallo,
ich möchte den Mittelwert von z.B. A2 bis A(XYZ) ermitteln.
Die Letzte Zelle kann ich aus der Variable Letzte_Vlinie auslesen.
Wie muß die Befehlszeile in einem Makro aussehen damit xyz durch den Inhalt der Variable ersetzt wird.
Gruß und danke
Frank
05.11.2008 09:22:11
Thread-ID: 1021766
5 Beiträge
VBA - Summe unter letzter Zeile bilden
mgr

hallihallo!
ich hab jetzt schon ziemlich lang rumgesucht, komm aber leider nicht zum durchbruch. dabei - so unterstelle ich - hab ich ein problem, das schon viele gehabt haben müssten und das wahrscheinlich auch nicht unlösbar ist.
ich habe eine tabelle mit einer variablen anzahl von ze...
07.11.2008 13:39:07
Thread-ID: 1022657
3 Beiträge
Jede Zahlenwertänderung mit Blinken der Zelle
Steffi

anzeigen.
Ist sowas möglich? HAt jemand eine Idee?
Soll nur einmal blinken, also kein Dauerblinken.
LG
Steffi
07.11.2008 19:28:58
Thread-ID: 1022795
5 Beiträge
Erste und letzte Zelle finden
Frank

Guten morgen,
ich möchte die Zellen finden indem für Start die 06:00 und für Ende die 14:00 steht.
Beispiel:
In der Zelle A100 steht 06:00
In der Zelle A1000 steht 14:00
Wenn die Startzelle und die Endzelle gefunden wurden, dann möchte ich den Zellenbezug in G übernehme und...
18.11.2008 09:38:00
Thread-ID: 1025505
10 Beiträge
Letzten Zeilenwert
Andre´

Hallo alle zusammen,
wie kann ich den letzten Zeilenwert der 2.Zeile in einer MSGBox angeben also: 11.11.2008
(dazwischen sind leere Zellen)
Tabelle1

 ABCDEFG1wee  dfgh   2trtrt  recht  11.11.20083Uhuu  Prod &n...
18.11.2008 22:31:00
Thread-ID: 1025804
10 Beiträge
Anzeige
Zeilen einfügen vor Zeile mit Wert XX in Spalte D
NetMare

Hallo zusammen,
ich möchte gern per script eine Zeile an bestimmten Stellen einfügen.
Das Einfügen klappt ja über
Worksheets("Tabelle1").Rows(7).Insert
ganz gut...
Ich habe mehrere Zeilen in der Liste mit unterschiedlichen Dingen die ich mir auch über scripte erstellen lasse...
25.11.2008 11:49:00
Thread-ID: 1027648
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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