Anzeige in nur einem Feld

[Ruud]

Hallo Zusammen,

ich bin neu in diesem Forum und habe folgende Frage.
Ich habe in einer Tabelle vier Feldern nebeneinander, in die ich ein x zur Markierung eintragen muss. Dort werden Fragen mit vier verschiedenen Antworten markiert. Aktuell muss ich, wenn ich ein anderes Feld nutze, das X aus dem anderen Feld wieder löschen. Gibt es die Möglichkeit, die Felder so zu formatieren, dass das x nur in einem Feld erscheint und das andere x sich automatisch löscht?

Für Eure Hilfe wäre ich dankbar.

Gruß
Ruud

[Kuwer]

Hallo Ruud,

folgender Code kommt in das schon vorhandene VBA-Modul des entsprechenden Tabellenblattes:

' **************************************************************

'  Modul:  Tabelle1  Typ = Element der Mappe(Sheet, Workbook, ...)

' **************************************************************



Option Explicit



Private Sub Worksheet_Change(ByVal Target As Range)

 Dim rngBereich As Range

 Dim varEintrag As Variant

 Set rngBereich = Range("F2:I24")  'hier wird der zu prüfende Bereich festgelegt

 If Not Application.Intersect(Target, rngBereich) Is Nothing Then

   If Target.Cells.Count = 1 Then

     If Not IsEmpty(Target) Then

       varEintrag = Target.Value

       On Error Resume Next

       Application.EnableEvents = False

       Application.Intersect(Target.EntireRow, rngBereich) = ""

       Target.Value = varEintrag

       Application.EnableEvents = True

       On Error GoTo 0

     End If

   End If

 End If

End Sub

Gruß Uwe

[Ruud]

Sorry, aber das bekomme ich allein nicht hin. Gibt es hier im Forum Jemanden, dem ich diese Datei zur Bearbeitung zusenden kann? Da gebe ich auch einen aus!

[Kuwer]

Hallo,

hilft Dir das weiter? Wie fügt man ein Makro in das Codefenster der Tabelle ein?
Wichtig ist auch, dass die Mappe dann mit Dateityp "Excelarbeitsmappe mit Makros (.xlsm)" abgespeichert werden muss

Gruß Uwe

[RPP63]

Moin Uwe!
Ein wenig off topic:
Ich habe mir angewöhnt, grundsätzlich auf Target.Count zu verzichten und statt dessen Target.CountLarge zu verwenden.
So schließe ich sicher einen Überlauf aus.

Gruß Ralf

[IchBinIch]

Moin zusammen,

als Alternative viel mir noch ein Aufbau mit Gruppen- und Optionsfeldern ein.
Bleibt die Frage nach der Auswertung .


Gruß
Ich

Edith sagt:
Vielleicht will sich die/der TS hier etwas weiter informieren?

[Kuwer]

Hi Ralf,

Moin Uwe!
Ein wenig off topic:
Ich habe mir angewöhnt, grundsätzlich auf Target.Count zu verzichten und statt dessen Target.CountLarge zu verwenden.
So schließe ich sicher einen Überlauf aus.

Gruß Ralf

tatsächlich. Das CountLarge kannte ich noch gar nicht. Danke.

Gruß Uwe

[Ruud]

Ich habe die Datei mal angehängt und die Optionsfelder grün markiert. Vielleicht ist ja Jemand von den Experten so lieb und kann mir die Datei bearbeiten. Ist wahrscheinlich besser, als wenn ich ewig selbst herumbastle.

Vorab schon mal Vielen Dank.

Gruß Ruud (m)

[Kuwer]

Hallo,


  1 Vorlage Besuchsbericht-1.xlsm (Größe: 29,68 KB / Downloads: 3)

Gruß Uwe

[Glausius]

Ruud,

meinst du soetwas?