Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Wert größter als 0 sortieren und Bereich drucken
zurück: markierten Bereich zeilenweise bearbeiten weiter: Max Wert wenn mehrere Tabellen offen sind Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
crunner82
Einsteiger


Verfasst am:
28. Feb 2013, 14:06
Rufname:

Wert größter als 0 sortieren und Bereich drucken - Wert größter als 0 sortieren und Bereich drucken

Nach oben
       Version: Office 2010

Wie bekomme ich ein Makro hin, das in der Spalte C alle Werte größer als 0 sortiert und dann all die gefunden Werte ausdruckt, beginnend von A2 - E2 bis zum Ende der gefunden Daten?
Wittgenstein
... wüsste gern mehr


Verfasst am:
28. Feb 2013, 15:47
Rufname: Tobi

AW: Wert größter als 0 sortieren und Bereich drucken - AW: Wert größter als 0 sortieren und Bereich drucken

Nach oben
       Version: Office 2010

Hallo,

ich hab jetzt zwar nichts sortiert, aber dieses Makro blendet alle Zeilen aus, deren Wert nicht >0 ist.

Option Explicit

Sub Testitest()
    Dim lngLast&
    Dim i%
    
    lngLast = Cells(Rows.Count, 1).End(xlUp).Row + 1
    
    For i = 2 To lngLast
        If Not Cells(i, 3).Value > 0 Then Cells(i, 3).EntireRow.Hidden = True
    Next i
End Sub

_________________
Liebe Grüße
Tobi

Ein kurzes Feedback tut nicht weh!
crunner82
Einsteiger


Verfasst am:
28. Feb 2013, 17:08
Rufname:


AW: Wert größter als 0 sortieren und Bereich drucken - AW: Wert größter als 0 sortieren und Bereich drucken

Nach oben
       Version: Office 2010

Habs gerade hin bekommen, geht ganz einfach:

Code:

    Selection.AutoFilter
    ActiveSheet.Range("$A$2:$E$8").AutoFilter Field:=5, Criteria1:=">0"
    ActiveSheet.PageSetup.PrintArea = "$A$2:$E$8"
    ActiveSheet.PrintPreview
    ActiveSheet.PageSetup.PrintArea = ""
    Selection.AutoFilter



Und hier jetzt noch mit Überschrift usw.
Code:
 
Selection.AutoFilter
    ActiveSheet.Range("$A$2:$E$8").AutoFilter Field:=5, Criteria1:=">0"
With ActiveSheet.PageSetup
    .PrintArea = "$A$2:$E$8"
    .LeftHeader = "Text links"
    .CenterHeader = "Text mitte"
    .RightHeader = "Datum: &D"
End With
    ActiveSheet.PrintPreview
   With ActiveSheet.PageSetup 
    .PrintArea = ""
    .LeftHeader = ""
    .CenterHeader = ""
    .RightHeader = ""
End With
    Selection.AutoFilter
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Wert automatisch durch Anzahl der Tage in einem Monat teilen 2 mucky99 2180 17. Dez 2004, 08:52
mucky99 Wert automatisch durch Anzahl der Tage in einem Monat teilen
Keine neuen Beiträge Excel Formeln: Zählen von Argumenten in einem Bereich 2 beaver 1634 09. Dez 2004, 23:42
Arnim Zählen von Argumenten in einem Bereich
Keine neuen Beiträge Excel Formeln: Formel mit "festem" Wert kopieren 2 sebbi 1937 08. Dez 2004, 20:36
sebbi Formel mit "festem" Wert kopieren
Keine neuen Beiträge Excel Formeln: Datum Sortieren 1 Gidi 1546 03. Dez 2004, 14:11
ae Datum Sortieren
Keine neuen Beiträge Excel Formeln: Idee für wenn-Formel ohne Wert 4 Flohh 1357 30. Nov 2004, 10:59
steve1da Idee für wenn-Formel ohne Wert
Keine neuen Beiträge Excel Formeln: Nur addieren wenn ein bestimmter Wert in einer Bereich 4 Aloha 2956 18. Nov 2004, 22:44
Aloha Nur addieren wenn ein bestimmter Wert in einer Bereich
Keine neuen Beiträge Excel Formeln: Wert aus einer anderen Tabelle holen 2 =KB=Shorty 4867 17. Nov 2004, 21:22
=KB=Shorty Wert aus einer anderen Tabelle holen
Keine neuen Beiträge Excel Formeln: Werte aus bestimmten Bereich anzeigen 3 timo 2343 27. Okt 2004, 12:56
fridgenep Werte aus bestimmten Bereich anzeigen
Keine neuen Beiträge Excel Formeln: Wert ausgeben 2 umbroboy 1173 18. Okt 2004, 15:36
umbroboy Wert ausgeben
Keine neuen Beiträge Excel Formeln: Wert in Feld anzeigen wenn Bedingung erfüllt ist. 1 stoppel66 3409 29. Sep 2004, 19:18
ichbins Wert in Feld anzeigen wenn Bedingung erfüllt ist.
Keine neuen Beiträge Excel Formeln: #wert! Fehlermeldung 2 ababa 958 26. Sep 2004, 18:32
ababa #wert! Fehlermeldung
Keine neuen Beiträge Excel Formeln: Summe über bestimmten Bereich 4 simpson 5026 15. Sep 2004, 19:54
Arnim Summe über bestimmten Bereich
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Word Serienbriefe