Hi,
(14.06.2015, 11:12)hagi6312 schrieb: Deine Annahme ist richtig!
soll es dann trotzdem eine Möglichkeit geben, in einzelne der Zellen E5-E8 "x"-e einzugeben? Also nicht alle zu markieren, sondern nur einzelne?
Dies Makro macht jetzt mal nur das, was Du gefragt hast, zusätzlich die Entfernung der x, wenn H7 geleert wird:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
'Wenn die Zieladresse nicht H7 ist, dann Makro verlassen
If Target.Address <> "$H$7" Then Exit Sub
If Target.Value = "x" Then
Range("E5:E8").Value = "x"
Else: Range("E5:E8").Value = ""
End If
End Sub
VBA/HTML - CodeConverter für Office-Foren, AddIn für Excel/Word 2000-2013 - komplett in VBA geschrieben von Lukas Mosimann. Projektbetreuung durch mumpel
Code erstellt und getestet in Office 15
PS: in Deiner Beispieldatei ist in H7 kein Dropdown.
Ich halte die Verwendung von Dropdowns für die Eingabe nur eines Buchstabens für übertrieben, das geht genauso schnell (sogar schneller) direkt mit der Tastatur.
Um das x wieder zu entfernen, mußt Du sowieso die "ENTF"-Taste drücken, Du mußt also jedesmal zwischen Maus und Tastatur wechseln, da kannst Du das x auch gleich per Tastatur eingeben.
Wenn Du es in der Datengültigkeit so machst: =$L$2:$L$3, statt dem x
mit: Zelle L2 leer und in L3 das x
dann kannst Du bei der Maus bleiben.
Die Abzüge in Spalte I würde ich so darstellen (analog in den anderen Zeilen):
="Gar nicht gerundet "&F4&" pt"
dann mußt Du den Abzugswert jeweils nur in Spalte F ändern und I ändert sich automatisch.
