Thema Datum  Von Nutzer Rating
Antwort
23.05.2011 14:36:19 Generaldog
NotSolved
Blau Zellen nach bestimmten Werten absuchen und löschen
 23.05.2011 23:20:54 Till
NotSolved
24.05.2011 09:27:50 Gast48563
NotSolved

Ansicht des Beitrags:
Von:
Till		 Datum:
23.05.2011 23:20:54		 Views:
932		 Rating:
     
Antwort:
  Ja
Thema:
Zellen nach bestimmten Werten absuchen und löschen

Hallo,

müsste in etwa so funktionieren:

For C=1 to 500
set rng=range(cells(1,c),cells(65536,c).end(xlup))
Spalte=rng.value

for R=1 to ubound(spalte)

if spalte(r,1)>worksheetfunction.Mittelwert(spalte)+6*worksheetfunction.Stabw(spalte) then
spalte(r,1)=""
elseif spalte(r,1)<worksheetfunction.Mittelwert(spalte)-6*worksheetfunction.Stabw(spalte) then
spalte(r,1)=""
end if

next
rng.value=spalte
next

Dann musst du dir noch überlegen ob Mittelwert und Standartabweichung nach jedem gelöschtem Wert aktualisiert werden sollen oder nicht (im Augenblick werden sie das). Falls du die leeren Zellen wirklich löschen willst solltest du das entweder in die If Funktion einbauen oder durch eine weitere Funktion (die einfach nur leere Zellen löscht) lösen. Dann ist es aber vermutlich besser die Schleife rückwärts mit step -1 laufen zu lassen (Application.ScreenUpdating vorher ausschalten).

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
23.05.2011 14:36:19 Generaldog
NotSolved
Blau Zellen nach bestimmten Werten absuchen und löschen
 23.05.2011 23:20:54 Till
NotSolved
24.05.2011 09:27:50 Gast48563
NotSolved