Office: wennfehler in VBA Code implementieren

RainerGruber · 3. Juli 2014

Hi Chris,

hattest du vierlleicht schon eine Idee wie man die Sache mit den Nullen innerhalb der Bedarfsperiode lösen könnte?
Ich komm nicht drauf *frown.gif*

Im Notfall lasse ich diese elenden Matrixformeln drinnen, ist halt nicht gerade die eleganteste Lösung, aber funktionieren tut es auch...

LG

chris-kaiser · 3. Juli 2014

Hi,

Code:

Option Explicit
Sub weg_mit_nuller()
Dim sh As Worksheet, lng_lastR As Long, int_firstR As Integer, int_firstC As Integer, int_lastC As Integer, i As Long, Icol As Integer
Set sh = ActiveSheet 'oder Codename, shetts(...
int_firstC = 4 'Spalte ab der die Datenmatrix beginnt
int_firstR = 2 'ab welcher Zeile beginnt die Datenmatrix
With sh
lng_lastR = .Cells(.Rows.Count, 1).End(xlUp).Row 'letzte zeile als Refernz ist Spalte A genommen worden
int_lastC = .Cells(int_firstR, .Columns.Count).End(xlToLeft).Column 'letzte befüllte Splalte ! wobei ich jetzt keine Formelspalten abziehe
'suche von hinten nach der ersten Spalte die Zahlen hat
For i = int_lastC To int_firstC Step -1
If WorksheetFunction.Sum(.Range(.Cells(int_firstR, i), .Cells(lng_lastR, i))) > 0 Then
'lösche den Bereich mit den Nullern
.Range(.Cells(int_firstR, i), .Cells(lng_lastR, int_lastC)).ClearContents
'setze int_LastC neu
int_lastC = i
Exit For 'verlasse die Schleife
End If
Next

'nuller vorne und hinten im Datenbereich löschen
For i = int_firstR To lng_lastR
'vorne
For Icol = int_lastC To int_firstC Step -1
If WorksheetFunction.Sum(.Range(.Cells(i, Icol), .Cells(i, int_firstC))) = 0 Then
.Range(.Cells(i, Icol), .Cells(i, int_firstC)).ClearContents
End If
Next

'hinten
For Icol = int_firstC To int_lastC
If WorksheetFunction.Sum(.Range(.Cells(i, Icol), .Cells(i, int_lastC))) = 0 Then
.Range(.Cells(i, Icol), .Cells(i, int_lastC)).ClearContents
End If
Next
Next

End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

geht aber nur dann wenn keine Minuswerte in der Datenmatrix sind
sonst könnte -5 und 5 auch Null ergeben ^^

RainerGruber · 4. Juli 2014

Hi,

minuswerte gibt es in de Matrix nicht, denn es gibt ja keinen "negativen Bedarf"...

Tausend Dank!
Ich werde den Code implementieren sobald ich dazu komme und dir Feedback geben sobald ich dies gemacht habe. (Voraussichtlich Montag).

BG,
Rainer

RainerGruber · 9. Juli 2014

Hallo,

es tut mir echt leid dass ich mich erst mit solch einer Verspätung wieder melde! Wenn man Hilfestellung von jemandem erhält ist dies natürlich normalerweise ein No-Go, aber hatte eine starke Woche und kahm schlichtweg nicht dazu mir den Code genauer anzusehen. Also nochmals Sry!

Heute hab ich es mir aber genauer ansehen können und nachdem ich einige Sachen an mein Skript angepasst habe, läuft das Ding einwandfrei!

Ich bedanke mich nochmals recht herzlich für deine Hilfe!
Bewertung hast du ja schon bekommen von mir *wink.gif*

Beste Grüße,
rainer

Office: wennfehler in VBA Code implementieren

wennfehler in VBA Code implementieren

wennfehler in VBA Code implementieren

wennfehler in VBA Code implementieren

wennfehler in VBA Code implementieren - Similar Threads - wennfehler VBA Code

Wennfehler

WENNFEHLER (Funktion)

MITTELWERTWENNS und WENNFEHLER

Frage zu einer Formel Wennfehler-Formel mit Index

WENNFEHLER Funktion in Kombination mit ODER

WENNFEHLER Funktion umstellen unter Excel 2003 ?

WENNFEHLER(WVERWEIS) Frage/Problem