0 bei Formel per VBA löschen lassen
24.02.2004 23:32:34
Volker
mit folgenden code lasse ich mir das max der vorangehenden spalten errechnen und ich fülle die spalte nach unten aus und da kann es vorkommen dass auch 0 drin vorkommt weil in den davor stehenden spalten nix drin steht.
nun möchte ich gern wissen wie ich diese 0 alle markieren kann und dann per vba löschen kann
hat jemand eine idee?
hier mein code
If TextBox1.Value = "" Then
MsgBox ("Spaltenanzahl eintragen!")
GoTo ende
End If
Cells.Find("", After:=[b1], SearchOrder:=xlByRows, SearchDirection:=xlNext).Select
With ActiveCell
.Value = "Max"
.Interior.ColorIndex = 34
End With
a = TextBox1.Value
ActiveCell.Offset(3, 0).Select
tarC = Left(Columns(1 + a).Address(0, 0), 1) 'so bekomme ich den Buchstaben der Zielzelle
ActiveCell.Formula = "=Max(B4:" & tarC & "4)"
Selection.AutoFill Destination:=Range(Selection, Selection.End(xlDown)), Type:=xlFillDefault