MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 28.06.2018, 10:04   #46
hary
MOF Guru
MOF Guru
Standard

Moin
T'schuldigung fuers dazwischen schreiben.;-)
Bezogen auf #41
Eine Moeglichkeit.
Code:

Dim rngLast As Range, rngFirst As Range, Zelle As Range
With Worksheets("Rechnungen")
  Set rngLast = .Range("C:C").Find(what:="noch zu zahlen", after:=.Range("C1"), searchdirection:=xlPrevious)
  Set rngFirst = .Range("C:C").Find(what:="Gesamtsumme", after:=rngLast, searchdirection:=xlNext)
    For Each Zelle In .Range(rngFirst.Offset(1, 4), rngLast.Offset(-1, 4))
     Zelle.EntireRow.Hidden = Zelle = 0 '--blendet ein/aus je nach dem Null oder ungleich Null
    Next
End With
Wenn das die betr. Blaetter sind

Zitat:

die Kandidaten sind also: Nachlass, schon gezahlt, AZ Einbehalt, Versicherung.

einfach 'ne Schleife.
gruss hary
hary ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 28.06.2018, 13:43   #47
Macanudo
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo hary,

kein Problem. Danke dir für den Code. Diesen habe ich für meine Statistik verwenden können.
Vielen Dank.

Viele Grüße
Uwe
Macanudo ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 28.06.2018, 16:47   #48
aloys78
MOF Meister
MOF Meister
Standard

Hallo Uwe,

Zitat:

Diesen habe ich für meine Statistik verwenden können.

Ist damit das Problem des Ausblendens gelöst ?

Gruß
Aloys
aloys78 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 28.06.2018, 17:19   #49
Macanudo
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo Aloys,

für die Statistik ja. Das ist aber eine andere Datei.

Leider ist es bei der anderen Datei nicht gelöst. Weiß nicht, wie ich den einpflegen soll, damit er an der richtigen Stelle ausblendet und wieder einblendet.

Vielen Dank.

Viele Grüße

Uwe
Macanudo ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 28.06.2018, 19:16   #50
aloys78
MOF Meister
MOF Meister
Standard

Hallo Uwe,

mein Vorschlag (ungetestet):

1. Prozedur
Code:

' Abzüge darstellen
        .Range("C" & r + 1) = IIf(Q.Range("iNachlass") = 0, "Nachlass", Q.Range("iNachlass") * 1 & "% Nachlass")     ' Nachlass
        .Range("C" & r + 1).HorizontalAlignment = xlLeft
        .Range("G" & r + 1) = IIf(Q.Range("iNachlass") = 0, 0, Q.Range("iNachlass") * Summe * (-0.01))
        .Range("G" & r + 1) = WorksheetFunction.Round(.Range("G" & r + 1), 2)
        .Range("G" & r + 1).NumberFormat = F_Buchhaltung
        If .Range("G" & r + 1) = 0 Then .Rows(r + 1).Hidden = True
        
        .Range("C" & r + 2) = IIf(Q.Range("iNachlass1") = 0, "Bauwesenversicherung", Q.Range("iNachlass1") * 1 & "% Versicherung")     ' Versicherung
        .Range("C" & r + 2).HorizontalAlignment = xlLeft
        .Range("G" & r + 2) = (Summe + .Range("G" & r + 1)) * -Q.Range("iNachlass1") * -(-0.01)
        .Range("G" & r + 2) = WorksheetFunction.Round(.Range("G" & r + 2), 2)
        .Range("G" & r + 2).NumberFormat = F_Buchhaltung
        If .Range("G" & r + 2) = 0 Then .Rows(r + 2).Hidden = True
        
        .Range("C" & r + 3) = "10% AZ Einbehalt"                                                    ' AZ Einbehalt für Summe - Nachlass
        .Range("C" & r + 3).HorizontalAlignment = xlLeft
        .Range("G" & r + 3) = (Summe + .Range("G" & r + 1)) * -0.1
        .Range("G" & r + 3) = WorksheetFunction.Round(.Range("G" & r + 3), 2)
        .Range("G" & r + 3).NumberFormat = F_Buchhaltung
        If .Range("G" & r + 3) = 0 Then .Rows(r + 3).Hidden = True
        
        .Range("C" & r + 4) = "bereits gezahlt"                                                     ' bereits gezahlt
        .Range("C" & r + 4).HorizontalAlignment = xlLeft
        .Range("G" & r + 4) = -Q.Range("iGezahlt")
        .Range("G" & r + 4) = WorksheetFunction.Round(.Range("G" & r + 4), 2)
        .Range("G" & r + 4).NumberFormat = F_Buchhaltung
        If .Range("G" & r + 4) = 0 Then .Rows(r + 4).Hidden = True
2. Prozedur
Code:

' check Status Ziel-Tabelle
        If LRowZ < zStart Then                  ' Ziel-Tabelle noch ohne Eintrag
            r = zStart
        
        ElseIf LRowZ2 > LRowZ Then              ' letzte Zeile ist Gesamtsumme (Sp G enthält mehr Einträge als Sp A)
            With Z
                r = LRowZ2 - 7
                .Range("C" & r + 1 & ":G" & LRowZ2).ClearContents     ' bisherige Daten für Gesamtsumme löschen
                .Rows(r & ":" & LRowZ2).Hidden = False                ' etwa ausgeblendete Zeilen im Block Gesamtsumme einblenden
                .Range("C" & r + 1 & ":G" & LRowZ2).HorizontalAlignment = xlRight  ' Daten mittig ausrichten
                .Range("C" & r) = TxT                                 ' Text Gesamtsumme durch Zwischensumme ersetzen
                .Range("C" & LRowZ2).Font.Bold = False
                .Range("G" & LRowZ2).Font.Bold = False                ' Fett entfernen
                r = r + nRows
            End With
        
        Else                                    ' letzte Zeile = Tabelle schon mit Daten, aber noch ohne Gesamtsumme
            r = LRowZ + 1
        End If
Gruß
Aloys
aloys78 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 29.06.2018, 11:27   #51
Macanudo
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo Aloys,

vielen lieben Dank für die Hilfe. Auch das ist wieder perfekt.

Ich hoffe, dass ich das Thema jetzt nicht mehr hochholen muss.

Vielen Dank.

Viele Grüße

Uwe
Macanudo ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 22:41 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.