Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1456to1460
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
1456to1460
1456to1460
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Leere Zeilen beim Drucken ausblenden

Leere Zeilen beim Drucken ausblenden
19.11.2015 06:56:49
Dirk
Hallo zusammen.
Anbei eine Excel Datei.
https://www.herber.de/bbs/user/101636.xlsm
Wenn ich auf den Button "Drucken" klicke möchte ich, dass alle Zeilen (von Zeile 5-50) ausgeblendet werden, die in der Spalte "Termin" keinen Eintrag haben und die Druckvorschau erscheint, in der ich dann einen Drucker auswählen kann.
Nach dem Drucken sollen dann wieder alle Zeilen eingeblendet werden.
Ich habe es schon mit verschiedenen VBA Codes hier aus dem Formun versucht aber leider werden die Zeilen nicht ausgeblendet :-(
Vielen Dank!!

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
einfach Filtern
19.11.2015 07:36:03
Matthias
Hallo
aber leider werden die Zeilen nicht ausgeblendet
Weise mal dieses Makro Deinem Druckbutton zu
Option Explicit
Sub Filtern()
With Range("A4:G4")
.AutoFilter
.AutoFilter Field:=1, Criteria1:=""
MsgBox "jetzt drucken"
.AutoFilter Field:=1
End With
End Sub
schöner Kalender übrigens :-)
Gruß Matthias

AW: einfach Filtern
19.11.2015 08:00:45
Dirk
Hallo Matthias.
Manche Dinge macht man sich kompliziert, können aber so einfach sein :-)
Danke!!!!
Gruß
Dirk

eine Frage an Dich wg. Kalender
19.11.2015 08:15:02
Matthias
Hallo
Danke erstmal für die Rückmeldung!
Meine Frage:
Wie/Wo machst Du das, das man mit den Cursor-Tasten über die Tage gleiten kannst
und dann der Tag der aktiviert ist den Focus erhält?
Ich würde das gerne auch für meine eigenen Kalender so umsetzen.
Deinen Kalender aus der Datei darf man benutzen?
Gruß Matthias

Anzeige
AW: eine Frage an Dich wg. Kalender
19.11.2015 08:28:03
Dirk
Hallo.
Klar kannst du den Kalender benutzen :-)
Mit dem Focus funktioniert über diesen Abschnitt:
Private Sub Build_Calendar()
'the routine that actually builds the calendar each time
If CreateCal = True Then
CalendarFrm.Caption = " " & CB_Mth.Value & " " & CB_Yr.Value
'sets the focus for the todays date button
CommandButton1.SetFocus
For i = 1 To 42
If i Controls("D" & (i)).Caption = Format(DateAdd("d", (i - Weekday((CB_Mth.Value) & "/1/" & (CB_Yr.Value))), _
((CB_Mth.Value) & "/1/" & (CB_Yr.Value))), "d")
Controls("D" & (i)).ControlTipText = Format(DateAdd("d", (i - Weekday((CB_Mth.Value) & "/1/" & (CB_Yr.Value))), _
((CB_Mth.Value) & "/1/" & (CB_Yr.Value))), dtFormat)
ElseIf i >= Weekday((CB_Mth.Value) & "/1/" & (CB_Yr.Value)) Then
Controls("D" & (i)).Caption = Format(DateAdd("d", (i - Weekday((CB_Mth.Value) _
& "/1/" & (CB_Yr.Value))), ((CB_Mth.Value) & "/1/" & (CB_Yr.Value))), "d")
Controls("D" & (i)).ControlTipText = Format(DateAdd("d", (i - Weekday((CB_Mth.Value) & "/1/" & (CB_Yr.Value))), _
((CB_Mth.Value) & "/1/" & (CB_Yr.Value))), dtFormat)
End If
If Format(DateAdd("d", (i - Weekday((CB_Mth.Value) & "/1/" & (CB_Yr.Value))), _
((CB_Mth.Value) & "/1/" & (CB_Yr.Value))), "mmmm") = ((CB_Mth.Value)) Then
If Controls("D" & (i)).BackColor &H80000016 Then Controls("D" & (i)).BackColor = &H80000018 '&H80000010
Controls("D" & (i)).Font.Bold = True
If Format(DateAdd("d", (i - Weekday((CB_Mth.Value) & "/1/" & (CB_Yr.Value))), _
((CB_Mth.Value) & "/1/" & (CB_Yr.Value))), dtFormat) = Format(ThisDay, dtFormat) Then Controls("D" & (i)).SetFocus
Else
If Controls("D" & (i)).BackColor &H80000016 Then Controls("D" & (i)).BackColor = &H8000000F
Controls("D" & (i)).Font.Bold = False
End If
''Debug.Print i & " - " & Controls("D" & (i)).ControlTipText
Next
End If

Anzeige
Kalender - Labelfocus
19.11.2015 09:05:20
Matthias
Hallo
Danke! erstmal für die Erlaubnis Deinen Kalender benutzen zu dürfen :-)
Mit dem Focus funktioniert über diesen Abschnitt:
Private Sub Build_Calendar()
Das kann es aber nicht sein!
Ich habe alles der Reihe nach auskommentiert und immer wieder neu getestet
Auch wenn die Labels leer sind (da auskommentiert) kann ich mit den Pfeiltasten den Curor über den Kalender bewegen und das jeweilige Label bekommt den Focus.
Ich habe am Ende nur die Deklaration stehen lassen.
Bin etwas ratlos
Gibts da nicht doch evtl. in den Eigenschaften irgend eine Einstellung die ich übersehe?
Gibt es evtl in den Eigenschaften der Label Unterschiede zwischen 2010 und 2007
Meine höchste Version ist 2007
Gruß Matthias

Anzeige
AW: Kalender - Labelfocus
19.11.2015 09:17:14
Dirk
Hallo.
Leider fällt mir auch nichts neues dazu ein wieso... :-(
Sorry

AW: Kalender - Labelfocus
19.11.2015 09:28:26
Matthias
Hallo Dirk Ehrhardt
Danke für Deine Rückmeldungen
und den Kalender :o)
Ich werde in der Datei einen Link zum Beitrag setzen.
Gruß Matthias

Das sind keine Labels, sonder Buttons
19.11.2015 09:37:49
EtoPHG
Matthias,
Bei Labels funktioniert die Cursor-Bewegung auf einer UF nicht.
Da bei Dirk's Kalender die Tage aber als CommandButtons definiert sind, funktioniert die Cursor-Steuerung!
Gruess Hansueli

Kann nicht wahr sein, wie peinlich ... ;-)
19.11.2015 09:57:47
Matthias
Hallo Hansueli
Ich danke Dir!
Da ich immer mit Labels in meinen Kalendern arbeite, hab ich überhaupt nicht mehr nachgeschaut.
Jetzt sitz ich vorm Rechner und lache über mich selbst :-)
Danke!!
Gruß Matthias

Anzeige
AW: Kalender
19.11.2015 10:48:10
Werner
Hallo Dirk,
das ist ja mal richtig gut, bekommt bei mir auch einen Platz im Archiv.
Gruß Werner

319 Forumthreads zu ähnlichen Themen

Es wird nur die Formel angezeigt, nicht der Text
Oswald

Hallo an die guten Geister,
hab mal wieder ein Problem.
In der angeängten Datei in B41 hatte ich das Problem das nicht der Text angezeigt wird sondern die Formel.
https://www.herber.de/bbs/user/54704.xls
Habe ich dadurch gelöst das ich das Selbe noch mal in einer anderen Datei...
18.08.2008 14:47:05
Thread-ID: 1002609
4 Beiträge
Anzeige
Kommentar-marker mit drucken??
joerg

Hallo,
Ist es möglich beim drucken eines Tabellenblattes die kleinen roten Dreiecke, die das vorhandenseins eines Kommentars anzeigen, mitzudrucken?
Ich weiss natürlich dass man die Kommentare als solches drucken kann, allerdings interessiert mich wirklich nur, ob es einen Kommentar gib...
04.09.2008 15:55:00
Thread-ID: 1007447
2 Beiträge
Teilergebnis einer Spalte wird nicht angezeigt
thaake

Hallo,
ich lasse mir die Teilergebnisse verschiedener Spalten anzeigen mit =Teilergebnis(9;V5:V300), was auch überall klappt, aber nur eine Spalte weigert sich. Formatierung ist vollkommen ok, das Anzeigen in einer anderen Zelle mit Verweis auf diese Spalte klappt auch nicht. Summe dagegen...
22.09.2008 11:21:12
Thread-ID: 1011416
2 Beiträge
Anzeige
Rechtschreibung: Pop-Up wird nicht mehr angezeigt
Norbert

Hallo,
nach dem Auswählen des Menüpunktes "Extras" - "Rechtschreibung", wird das zugehörige Pop-Up zur Auswahl der Korrekturvorschläge nicht mehr angezeigt.
Nach einem Klick auf die Schaltfläche "Rechtschreibung" ebenfalls nicht mehr.
Ich habe die möglichen Optionen zur Einstellung...
11.11.2008 11:22:22
Thread-ID: 1023480
3 Beiträge
langer Text wird nicht mehr angezeigt
u_hoernchen

Ich muss einen langen Text (ca. 1.500 Zeichen) in eine Excel-Zelle schreiben (geht leider nicht anders, also das bitte nicht in Frage stellen). Nun wird beim Ausdruck und bei der Bildschirmanzeige aber die letzte Zeile nicht mehr umgebrochen (Zeilenumbruch ist formatiert), in der Zelle steht ab...
05.01.2009 11:10:25
Thread-ID: 1036916
4 Beiträge
Zelleninhalt wird bei Wenn-Abfrage nicht erkannt
CheHerbers

Hey,
ich habe eine Wenn-Abfrage, die prüfen soll, ob A1kleinerA2.
In A1 und A2 stehen jeweils Datum mit Uhrzeit.
A1 = 17.02.2009 10:42:35
A2 = 17.02.2009 10:43:57
A1 fülle ich über ein Makro.
Code:
Sheets("Daten").Range("A1") = ComboBox1.Value & " " &...
18.02.2009 10:35:00
Thread-ID: 1051714
4 Beiträge
Textbox wird nicht aktualisiert während Makro...
Steve

Hallo zusammen,
Folgendes Problem:
Eine Textbox (txtInfo), welches in einem Worksheet eingefügt wurde, sollte während des Makros unterschiedliche Infos anzeigen.
Die Textbox aktualisiert sich aber nicht während des Makros, so dass nur der letzte Wert angezeigt wird, sobald das Makro...
05.03.2009 12:17:30
Thread-ID: 1056772
3 Beiträge
Druckt nicht alles markierte aus der Listbox
Lara

Hi Zusammen
Habe diesen Code in meiner Druckeruserform
Innerhalb einer Listbox markiere ich die einzelnen Blätter die ausgedruckt werden sollen.
Auch wenn ich mehrere markiere druckt er nur das erste markierte Sheet aus. Der Rest nicht.
Private Sub CommandButton1_Click() Dim v...
07.03.2009 13:54:31
Thread-ID: 1057616
7 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton Label

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
3
3
1
1
15
2
3
3
2
6
7
5
2
5
2
3
3
4
7
2
3
5
3
5
8