Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
956to960
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
956to960
956to960
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

2. vorhandenes Makro einfügen

2. vorhandenes Makro einfügen
29.02.2008 17:06:37
Gesa
Hallo,
ich würde gerne, dass in das Makro "Druck Std. Auswertung" zusätzlich noch das Makro "Einfügen beliebige Zellen" ans Ende eingefügt wird.
Hintergrund ist, dass wenn das Makro Druck Std. Auswertung durchgeführt wurde, die ausgeblendeten Zeilen wieder angezeigt werden und wenn ich dann in der letzten Zelle einen Wert in Spalte A einfüge kopiert er mir diese als "Blanko Zeile" und nicht wie gewünscht eine "leere Blanko Zeile".
Datei: https://www.herber.de/bbs/user/50313.xls
Für eure Unterstützung bedanke ich mich
Schöne Grüße
Gesa S.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 2. vorhandenes Makro einfügen
01.03.2008 01:50:54
fcs
Hallo Gesa,
durch Ausblenden der letzten Zeile mit Formel sollte es reibungslos funktionieren.
Gruß
Franz

Sub Druck_Std_Auswertung()
ActiveSheet.Unprotect Password:="1234"
Dim iRowL As Integer, iRow As Integer
Application.ScreenUpdating = False
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = 1 To iRowL
Rows(iRow).Hidden = (IsEmpty(Cells(iRow, 29)) Or Cells(iRow, 29).Value = 0)
Next iRow
Range("Sortieren").Sort Key1:=Range("A11"), Order1:=xlAscending, Key2:=Range("I11" _
), Order2:=xlAscending, Key3:=Range("J11"), Order3:=xlAscending, Header _
:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
ActiveSheet.PrintPreview
Rows.Hidden = False
' letzte Zeile mit Formel in Spalte 2 wieder ausblenden (leere Blankozeile)
Cells(Rows.Count, 2).End(xlUp).EntireRow.Hidden = True
ActiveSheet.DisplayPageBreaks = True
Application.EnableEvents = True
Application.ScreenUpdating = True
ActiveSheet.Protect Password:="1234"
End Sub


Anzeige
AW: 2. vorhandenes Makro einfügen
02.03.2008 19:57:50
Gesa
Hallo,
sorry für die späte Antwort. Klappt super und vielen Dank.
Schöne Grüße
Gesa S.

98 Forumthreads zu ähnlichen Themen

rückgängig historie speichern vor SelectionChange
Susanne

Hallo zusammen,
ich benutze eine Worksheet_SelectionChange Prozedur und ändere damit Formate meiner Zellen. Jedes ausgeführte Makro löscht ja die Rückgängig Historie. Nun möchte ich gerne zu Beginn des Makros die Historie speichern und am Ende des Makros wieder einfügen. Es soll also nicht...
18.09.2008 10:37:00
Thread-ID: 1010643
5 Beiträge
Anzeige
Prüfen ob Datensätze vorhanden ggf. hinzufügen
Urmila

Hallo alle gemeinsam,
im Tabelle 1 stehen daten, Spalte A Dokument...Spalte D Datum.
Nun will ich dass geprüft wird, ob Datum größer als Heute, dann prüfen
ob Dokument von Spalte A in Tabelle 2 (ebenfalls Spalte A) vorhanden,
wenn nicht, diese Zeile kopieren und in Tabelle 2 al...
09.01.2009 12:56:00
Thread-ID: 1038201
5 Beiträge
Datei speichern, wenn vorhanden nicht überschreibe
Elias

Hallo Forum,
ich brauche mal wieder ein wenig Hilfe.
Unten findet Ihr den Code eines Buttons, mit dessen Hilfe ich eine Datei unter einem
sich aus der Excel-Datei ergebenden Namen in einem fix vorgegebenen Pfad im Datei-
system anlege.
Nun bestünde theoretisch die Möglichkei...
17.03.2009 15:24:49
Thread-ID: 1061133
3 Beiträge
Anzeige
Label alle 10 Sekunden für 5 Sekunden anzeigen
k

Hallo,
...mal was anderes. Für unsere Azubis soll ein kleines "Lern-Spiel" gebastelt werden in Excel. Dazu sollen alle 10 Sekunden in einer Userform ein Produktname erscheinen und 5 Sekunden stehen bleiben. Der Azubi hat dann in dieser Zeit die Möglichkeit alles was ihm dazu einfällt in ein...
11.08.2009 16:53:14
Thread-ID: 1095083
7 Beiträge
nach Speichern automatisch Schließen
Valeri

Hallo liebes Forum,
ich möchte meine Arbeitsmappe nach dem ich gespeichert habe Automatisch schlissen lassen.
Wie würde den der Code dafür aussehen?
Vielen Dank schon mal im Voraus!
Gruß Valeri
11.01.2012 11:23:23
Thread-ID: 1245611
12 Beiträge
Uhrzeit nach Wenn-Abfrage automatisch eintragen
GP

Hallo VBA-Künstler,
ich möchte automatisch die Uhrzeit nach nach einer Wenn-Abfrage eintragen und einfrieren.
Folgender Code wird verwendet:
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("C1:C100")) Is Nothing Then Exit Sub If Target.Value "ok" Th...
15.01.2014 14:59:00
Thread-ID: 1345327
4 Beiträge
Automatische Aufforderung zu Speichern nach Öffnen
Michael

Hallo,mein Problem: Ich möchte, dass nach dem Öffnen meiner Excel-Vorlage der Benutzer sofort zum Speichern dieser als xls-Datei aufgefordert wird.Kann mir jemand helfen?Michael
31.07.2002 14:18:16
Thread-ID: 143099
3 Beiträge
VBA Daten aus anderer Excel laden und speichern
teambob


VBA Daten aus anderer Excel laden und speichern
Beitragvon Teambob » 06. Nov 2015, 10:28
Hallo Community,
ich habe ein kleines Programm mit VBA geschrieben, wo ich den Lagerbestand abfrage und Zu/Abbuchen kann.
Die Daten werden dann in einer Tabelle in der gleichen Excel ge...
06.11.2015 11:25:42
Thread-ID: 1456666
3 Beiträge

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
4
5
4
2
1
6
11
3
2
2
4
9
1
4
5
1
3
3
3
1
1
1
5
5
3