Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: Mostmiles am Oktober 25, 2012, 10:56:13 Vormittag

Titel: Office 2010: Wemm; Dann Formel Hilfe bitte
Beitrag von: Mostmiles am Oktober 25, 2012, 10:56:13 Vormittag
Hallo
ich bin neu hier und bräuchte dringend hilfe. ich brauche ein formel und finde einfach nicht die richtige =(.
ich habe eine Tabelle in der zb ind Zelle A1 eine Dropdown feld ist in dem man zwischen "In Bearbeitung" und "In Klärung" hlen kann. in zelle A2 wird die Prozentzahl angegeben 0-100% . so jetzt kommen wir zu der Frage:
in Zelle a3 bräuchte ich eine Formel die aussagt: wenn in A2 100% eingetragen wird so soll die Zelle A3 Erledigt anzeigen und automatisch den Zellinhalt von A1 löschen. geht so was?

Danke schon mal für die hilfe

gruß michi
Titel: Antw:Office 2010: Wemm; Dann Formel Hilfe bitte
Beitrag von: maninweb am Oktober 25, 2012, 11:03:39 Vormittag
Hallo Mostmiles...

Formel wäre dann in A3 =WENN(A2=100;"Erledigt";"")

Das automatische Löschen ginge nur mit einem Makro.

Gruß
Titel: Antw:Office 2010: Wemm; Dann Formel Hilfe bitte
Beitrag von: Officer am Oktober 25, 2012, 11:14:44 Vormittag
Hallo michi,

ich hab mal schnell ein Macro gebastelt. Der Code sieht wie folg aus:

Code: Visual Basic
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. If Not Application.Intersect(Target, Range("A2")) Is Nothing Then
  3.  
  4.   '** Prüfen, ob 100 % in Zelle A" erreich sind
  5.  '** 100 % erreicht
  6.  If Target.Value = 1 Then
  7.     With ActiveSheet
  8.       .Range("A3").Value = "erledigt"
  9.       .Range("A1").Value = ""
  10.     End With
  11.   '** Weniger als 100 %
  12.  Else
  13.     ActiveSheet.Range("A3").Value = ""
  14.   End If
  15.    
  16. End If
  17.  
  18. End Sub
  19.  

Als Anlage habe ich die funktionierende Beispieldatei auch beigefügt.

Gruß

Officer