AW: Zwei Zellen
09.12.2008 12:17:11
fcs
Hallo Peter,
für eine Lösung ohne VBA muss du deine Formel anpassen
=WENN(UND(A1"";A2"");"Nur eine der Zellen A1/A2 darf ausgefüllt sein";A1*100 + A2*100)
oder mit Hilfszellen arbeiten, die einen Hinweis anzeigen und in der Ergebniszelle dann einen Fehler anzeigen, wenn in beiden Zellen ein Wert steht.
Hier im Beispiel stehen die Hilfsformeln in Zellen B1 und B2.
Werte ansicht
0
11 11
1100
Formelansicht
=WENN(UND(A1"";A2"");"Nur eine der Zellen A1 oder A2 darf ausgefüllt sein";A1)
11 =WENN(UND(A1"";A2"");"Nur eine der Zellen A1 oder A2 darf ausgefüllt sein";A2)
=B1*100 + B2*100
Alternative: VBA-Lösung mit Ereignismakro, das bei Werteingabe in eine der beiden Zellen jeweils automatisch den Inhalt der 2. Zelle löscht.
Gruß
Franz
'Makro Lösung
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Select Case Target.Address
Case "$A$1"
If Not IsEmpty(Target) Then
Application.EnableEvents = False
Range("A2").ClearContents
Application.EnableEvents = True
End If
Case "$A$2"
Application.EnableEvents = False
Range("A1").ClearContents
Application.EnableEvents = True
Case Else
'do nothing
End Select
End Sub