MS-Office-Forum

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

Banner und Co.

 
Ads
Themen-Optionen Ansicht
Alt 13.07.2006, 09:24   #1
Stalafin
Neuer Benutzer
Neuer Benutzer
Standard VBA - Zahlen (kleiner als) filtern und löschen

Ich habe mir gerade ein pascalsches Dreieck mit VBA und Excel gebaut. Das Problem bei meinem Algorithmus ist, dass überflüssige Nullen ("0") in einige Zellen reingeschrieben werden.
Diese würde ich gerne löschen.

Dies ist zwar nicht ganz sauber, aber ich schaffe es im Moment nicht, den Algorithmus entsprechend zu korrigieren.

Mit welchem Befehl also kann ich die Nullen aus der Tabelle (variable Spalten- und Zeilenanzahl) rausfiltern und löschen lassen?

Wenn es jemanden interessiert - anbei mein Sourcecode (das Kommentieren habe ich mir vorerst gespart):

Code:

Public Sub Dreieck()
Dim n As Long
Dim triangletip As Long
Dim triangleedge As Long
Dim maxlength As Long
Dim maxlengthcounter As Long
Dim columncounter As Long
Dim cellwriter As Long

Tabelle4.UsedRange.Delete

n = Sheets("PascalschesDreieck").Cells(1, 1).Value
maxlength = n + 1   '5
maxlengthcounter = 0
columncounter = 0

If n < 0 Then
    Exit Sub
    MsgBox "Für kleinere Werte als 0 ist dies nicht möglich!"

Else
    triangletip = n + 1 '5
End If

triangleedge = triangletip  '5



Do
    
        Do
            If a And b Then Stop
            If maxlengthcounter = 0 Then
                Sheets("Pascal").Cells(maxlengthcounter + 1, triangletip).Value = 1
                
            Else
                i = triangleedge    '4
                While i - 1 < (n * 2 + 1) '7
                If i = 1 Then
                    Sheets("Pascal").Cells(maxlengthcounter + 1, i).Value = Sheets("Pascal").Cells(maxlengthcounter, i + 1)
                Else
                    Sheets("Pascal").Cells(maxlengthcounter + 1, i).Value = Sheets("Pascal").Cells(maxlengthcounter, i - 1).Value + Sheets("Pascal").Cells(maxlengthcounter, i + 1)
                End If
                i = i + 2   '6
                Wend
                columncounter = columncounter + 1
            
            End If
            
        
        Loop Until columncounter = maxlengthcounter
    triangleedge = triangleedge - 1 '4
    columncounter = 0
    maxlengthcounter = maxlengthcounter + 1 '1
Loop Until maxlengthcounter = maxlength

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


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 14:56 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, 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.