Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1496to1500
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
1496to1500
1496to1500
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

leere Zeilen ausblenden / pdf und Mail erzeugen

leere Zeilen ausblenden / pdf und Mail erzeugen
09.06.2016 09:39:19
Marco
Hallo zusammen,
ich erstelle ein Angebotsvorlage für unseren Vertrieb und ich benötige in zwei Fällen Hilfe :)
1) ausblenden wenn leer per Makro
ich suche nach einer Makro code, welcher leere Zeilen ausblendet.
Im Detail heißt das, dass ich eine Tabelle habe (siehe anbei), bei der die leeren Zeilen (Zeile 2-61) ausgeblendet werden sollen, wenn Spalte T kein Inhalt enthält.
2) pdf erzeugen und eine neue Mail mit dieser pdf im Anhang erstellen
über ein Makro Code soll das Angebot ein pdf Dokument erzeugt werden und automatisch eine neue E-Mail geöffnet werden mit dem pdf Dokument im Anhang.
https://www.herber.de/bbs/user/106108.xlsm
Kann mir bitte jemand in diesen Fällen helfen?
Vielen Dank für die Infos.
Grüße Marco

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: leere Zeilen ausblenden / pdf und Mail erzeugen
09.06.2016 09:48:27
Bernd
Hi,
als Anfang:
Sub Ausblenden()
Dim Zelle As Range
Dim ws As Worksheet
Set ws = Application.ThisWorkbook.ActiveSheet
For Each Zelle In ws.Range("a2:a61").Cells
If Zelle = "" Then
ws.Rows(Zelle.Row).Hidden = True
End If
Next
End Sub


Sub Einblenden()
Dim Zelle As Range
Dim ws As Worksheet
Set ws = ThisWorkbook.ActiveSheet
For Each Zelle In ws.Range("a2:a61").Cells
If Zelle = "" Then
Rows(Zelle.Row).Hidden = False
End If
Next
End Sub
Lasse aber offen, da zweite Frage nicht beantwortet.
mfg Bernd

Anzeige
Offen owT
09.06.2016 09:48:53
Bernd

AW: Offen owT
09.06.2016 13:30:01
Marco
Hallo,
wenn ich deinen Code in mein original formular einfüge, erhalte ich die Fehlermeldung
"Laufzeitfehler - Die Hidden Eigenschaft des Range-Objektes kann nicht festgelget werden"
An was kann das liegen? Text etc. ist in denselben Spalten wie im Muster, nur von Zeile 24 bis 83. Kannst du mir hier noch eine Info geben wo hier der Fehler sein kann? Danke.
Code, welche ich eingefügt habe 
Private Sub CommandButton2_Click()
Dim Zelle As Range
Dim ws As Worksheet
Set ws = Application.ThisWorkbook.ActiveSheet
For Each Zelle In ws.Range("a24:a83").Cells
If Zelle = "" Then
ws.Rows(Zelle.Row).Hidden = True
End If
Next
End Sub

Anzeige
AW: leere Zeilen ausblenden / pdf und Mail erzeugen
09.06.2016 10:01:27
UweD
Hallo
zu 1)
- Das ginge mit Filter
- Aber die Infos aus Zeile63 fallen dann auch weg
= du hast Zellen STU 63 verbunden
= Wenn du diese Verbindung aufhebst und
= Nettobetrag in Zelle T63 verschiebst und zentriert formatiert (sieht dann fast genauso aus wie vorher)
== dann klappt das mit Filtern

With ActiveSheet
If .FilterMode Then .ShowAllData ' Autofilter alle
If .AutoFilterMode Then .AutoFilterMode = False
.Columns("T:T").AutoFilter
.Range("$T:$T").AutoFilter Field:=1, Criteria1:=""
'mach was
.AutoFilterMode = False
End With
Gruß UweD

Anzeige
AW: leere Zeilen ausblenden / pdf und Mail erzeugen
09.06.2016 10:08:08
UweD
ich nochmal
nochmal zu 1)
geht noch einfacher (ohne Änderungen an deinem Aufbau)

'ausblenden
ActiveSheet.Columns("T:T").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
'einblenden
ActiveSheet.Columns("T:T").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = False
Gruß UweD

314 Forumthreads zu ähnlichen Themen

VBA Zeilen ein/ausblenden + weiters Problem
oblivion

hallo, ich hab mal wieder ein kleines und ein etwas größeres Problem
erstmal zum kleinen. wie bekomme ich es mit hilfe von einem vba hin, wenn ich ein kontrollkästchen mit einem Hacken versehe, dann bestimmte Zeilen (Sagen wir mal Zeile 20 bis 30), die ich vorher versteckt hatte, nun zum vo...
10.08.2008 00:22:06
Thread-ID: 1000558
3 Beiträge
Anzeige
vba Leere zellen löschen wenn
Carmen

Hallo liebe Wissenden,
möchte gerne wenn die zellen in Spalte B UND C leer sind dass die gesamte Zeile gelöscht wird, aber vba will keine überlappung.
Sub Leerzeilen_löschen() Range("B1:C100").SpecialCells(xlCellTypeBlanks).EntireRow.delete End Sub
hab das ganze mit if davor und...
06.04.2009 21:26:03
Thread-ID: 1067195
8 Beiträge
VBA - Zellen löschen
gegs2

Hallo,
ich bin auf der Suche nach einem Makro welches mir Zellen aus meiner Tabelle löscht. Es soll bei Spalte C von oben her anfangen zu suchen (bis Spalte AF), und alle Zellen löschen und nach oben verschieben bei welchen der Inhalt der Zelle nicht mit einem kleinen "c" beginnt.
Ist s...
22.06.2009 16:24:03
Thread-ID: 1083531
5 Beiträge
Anzeige
Makro doppelte Zeilen löschen
Christian

Hallo allerseits,
ich habe folgendes Makro, welches Zeilen ahand von doppelten Einträgen in einer spalte löscht.
Allerdings wird immer die zweite Zeile (von oben gesehen) gelöscht, ist es auch möglich die erste zeile zu löschen und die zweite zu behalten?
hier das makro: Sub supp_d...
22.07.2009 10:44:51
Thread-ID: 1090433
5 Beiträge
leere Zellen löschen
Udo

Hallo zusammen,
ich hab folgendes Problem:
In Spalte A und B stehen Zahlen drin, wenn in Spalte A eine Zelle leer ist, steht in Spalte B eine Zahl und umgekehrt. Nun möchte ich die Werte der Spalten A und B zusammenführen, so dass ich nur eine Spalte mit den Zahlen habe ohne leere Zelle...
25.07.2009 21:51:47
Thread-ID: 1091320
20 Beiträge
Makro gezielte Zeilen löschen / kopieren
walter

Hallo und guten Abend,
bzgl. einer Optimierungsgeschichte bräuchte ich bitte mal wieder Hilfe:
Datentabelle mit variabler Länge
a) unvollständige Sätze kopieren und in neues Blatt einkopieren, dann diese unvollständigen Sätze löschen (würde ich evtl. mit viel Schweiß selbst noch geb...
23.08.2009 00:48:36
Thread-ID: 1097980
8 Beiträge
Wirklich leere Zeilen löschen
Markus

Hallo,
verschiedene Makro's die ich im Archiv gefunden haben,
lösen nicht mein Problem.
Ich möchte alle Zeilen im aktuellen Sheet löschen, aber nur dann wenn,
keine Formeln, keine Werte und keine Formatierungen (z.B. Zellen gelb hinterlegt), keine Kommentare in den entsprechende...
30.09.2009 14:36:43
Thread-ID: 1106327
4 Beiträge
Zellen verschieben/Zeilen löschen VBA
Thomas

Liebes Forum,
ich habe folgendes Problem
Ich habe eine Excel Datei mit den beiden Spalten Name und Wahlpflichtfach und möchte die Fächerkombinationen auszählen lassen.
Nun ist mir die Tabelle aber leider so gegeben worden, dass diesselbe Person immer doppelt aufgeführt ist. Einmal...
07.11.2009 14:43:44
Thread-ID: 1115212
5 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
4
7
4
5
4
19
7
3
4
8
4
4
14
2
7
8
6
2
25
7
4
8
3
6