nochmal special cells
28.06.2006 22:36:39
Christian
Application.ScreenUpdating = False
With Range("A2:FC600")
.Replace What:=0, Replacement:="", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False
.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
End With
Application.ScreenUpdating = True
End Sub
da in den zellen aber nullen stehen muss das makro auf null reagieren, nicht auf leerzellen
oder ein besserer vorschlag?!? Problem ist folgendes:
ich habe eine liste, untereinander stehen von a2-a10 märkte, in b2+c2 - b10+c10 stehen eine positionA+preis, in d2+e2 - d10+e10 eine positionB, usw. (insgesamt 6 positionen)
ich habe tabellenblätter für "eine Pos.", "zwei pos.", etc. angelegt. ich möchte nun das die positionen automatisch in die verschiedenen blätter abgelegt werden und anschließend aufrücken (es kann sein das es posA und posC gibt, aber nicht posB, usw.)
ich habe mir jetzt folgendermaßen geholfen:
ich habe eine zählenwenn zeile eingefügt, habe die einzelnen blätter mit sverweisen ausgestattet, suchkriterium 1, 2, 3, usw.. jetzt stehen die daten mit lücken in den einzelnen blättern, also ein makro mit sortieren drüber und sie sind untereinander, jetzt das o.g. makro mit dem löschen der zellen?!?
vielleicht hat jemand eine professionellere idee
vielen dank und lieben gruß