ich habe ein Problem mit VBA bei dem ich mich nicht so gut auskenne, das mich aber jetzt schon seit 4 Stunden beschäftigt.
Ich möchte ein Excelsheet zur Auswertung einer Umfrage nutzen, es gibt die Antwortmöglichkeiten "Ja", "Nein", "Nicht anwendbar", also 3 Auswahlfelder wobei nur jeweils 1 Auswahl befüllt sein darf und bei dem Versuch 2 Auswahlfelder auszufüllen eine Fehlermeldung kommen soll.
Zusätzlich möchte ich keine Eingabe in die Zellen machen, sondern durch Doppelklick einen Wert eintragen lassen, ersteres funktioniert mit diesem Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1:A3")) Is Nothing Then
Cancel = True
If IsEmpty(Target) Then Target = "x" Else Target = ""
End If
End Sub
Der zweite Code wurde von mir auch in das Tabellen VBA eingetragen und soll eine automatische Doppelnennung verhindern und die Fehlermeldung ausgeben.
Private Sub Worksheet_Change(ByVal rngTarget As Range)
X = Application.WorksheetFunction.CountA(Range("A1:A3"))
If X >= 2 Then
MsgBox "X kann nur einmal eingegeben werden!", 48, "Hinweis"
Application.EnableEvents = False
Application.Undo
rngTarget.Select
Application.EnableEvents = True
End If
End Sub
Beide in Kombination hintereinander gesetzt funktionieren aber nicht, würde sich irgendwer bitte meiner erbarmen und die beiden Schnippsel so verbinden, dass sie funktionieren, ich habe gerade die Nerven weggeworfen und mein Chef rotiert bereits..
Vielen Dank und lieber Gruß
aus Österreich
Helmut