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?