Office: (Office 2016) In den Zellen G6 bis I6 darf nur ein x gemacht sein!

Helfe beim Thema In den Zellen G6 bis I6 darf nur ein x gemacht sein! in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo ich bin Neu, und habe folgendes Problem: ich möchte eine Auswahl treffen, dass heißt in den Zellen G6; H6 und I6 darf nur in einer Zelle nur... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von weismänn, 6. März 2018.

  1. weismänn Erfahrener User

    In den Zellen G6 bis I6 darf nur ein x gemacht sein!


    Hallo ich bin Neu,

    und habe folgendes Problem:

    ich möchte eine Auswahl treffen, dass heißt in den Zellen G6; H6 und I6 darf nur in einer Zelle nur ein X stehen.

    Wenn ich in G6 ein "x" mache dann darf ich in H6 sowie I6 kein "x" machen können!

    Ich hab schon versucht über Datenprüfung das zu machen, bekomme es aber nicht hin.

    Wäre super wenn mir jemand helfen kann....

    Grüße euer Weismänn
    In den Zellen G6 bis I6 darf nur ein x gemacht sein! Unbenannt.JPG
     
    Zuletzt bearbeitet: 6. März 2018
    weismänn, 6. März 2018
    #1
  2. steve1da Office Guru
    Hola,

    =zählenwenn($G$6:$I$6;"x")<2

    Gruß,
    steve1da
     
    steve1da, 6. März 2018
    #2
  3. weismänn Erfahrener User
    steve1da,

    ich werde Verrückt...es Funktioniert :-)

    Vielen Dank
     
    weismänn, 6. März 2018
    #3
  4. weismänn Erfahrener User

    In den Zellen G6 bis I6 darf nur ein x gemacht sein!

    Hallo steve1da,

    ich hab mich leider zu früh gefreut, wenn ich das "x" Manuell mit der Tastatur eingebe und Return drücke geht es,

    aber ich habe eine Programierung über VB gemacht, dass heißt mit einem klick in die Zelle ensteht ein "x"

    und damit funktioniert es leider nicht...hast du vielleicht noch eine Idee?

    Grüße Weismänn
     
    Zuletzt bearbeitet: 6. März 2018
    weismänn, 6. März 2018
    #4
  5. Beverly
    Beverly Erfahrener User
    Hi,

    Code:
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        If Intersect(Target, Range("C6:E6")) Is Nothing Then Exit Sub
        If Application.CountIf(Range("C6:E6"), "x") > 0 Then
            MsgBox "Bereits eingetragen"
        Else
            Target = "x"
        End If
    End Sub
    
    
    Bis später,
    Karin
     
    Beverly, 7. März 2018
    #5
  6. weismänn Erfahrener User
    Hallo Karin,

    Danke dir zuerst mal...

    jetzt habe ich das Problem, wenn ich das "X" wieder entfernen will (wenn ich mich verklickt habe) mit einem klick

    dann muss ich über die Tastatur mit entfernen löschen!

    Wäre es möglich das es wie in meiner Liste (Programierung_x) die ich Angehängt habe geht?...Klick "x" wird ein x erzeugt

    und wieder klick "x" und das x wird wieder entfernt.

    Grüße Weismänn
     
    weismänn, 8. März 2018
    #6
  7. Beverly
    Beverly Erfahrener User
    Hi,

    ich würde an deiner Stelle besser das Doppelklick-Ereignis verwenden, denn beim Klick in die Zelle hat man sich leicht vertan - beim Doppelklick dagegen hat man ausreichend Zeit zu überlegen was man tut

    Code:
    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
        If Intersect(Target, Range("C6:E6")) Is Nothing Then Exit Sub
        Cancel = True
        If Application.CountIf(Range("C6:E6"), "x") > 0 Then
            If Target.Value = "x" Then
                Target.ClearContents
            Else
                MsgBox "Bereits eingetragen"
            End If
        Else
            Target = "x"
        End If
    End Sub
    
    Bis später,
    Karin
     
    Beverly, 8. März 2018
    #7
  8. weismänn Erfahrener User

    In den Zellen G6 bis I6 darf nur ein x gemacht sein!

    Hallo Karin,

    Lieben Dank, da meine Kollegen sich nun schon daran gewöhnt haben nur einen Klick zu machen...
    und du weißt ja wie das ist mit dem umgewöhnen.

    Wie würde es aussehen wenn man nur einen Klick machen soll?

    Danke für deine schnelle Hilfe

    Grüße Weismänn
     
    weismänn, 8. März 2018
    #8
  9. Beverly
    Beverly Erfahrener User
    Hi,

    dann erziehe deine Kollegen entsprechend zur Sicherheit im Umgang mit Excel - man muss ja nicht unbedingt Fehleranfälligkeit unterstützen... :p

    Der Code müsste genau so aussehen, nur anstelle Doppelklick- eben SelectionChange-Ereignis und Cancel = True löschen.

    Bis später,
    Karin
     
    Beverly, 8. März 2018
    #9
  10. weismänn Erfahrener User
    Hallo Karin,

    DANKE...aber ich glaube du hast recht!!

    Ich werde die Listen so Umstellen mit einem Doppelklick.

    Danke noch mal für deine tolle Hilfe :-)

    Grüße Weismänn
     
    weismänn, 9. März 2018
    #10
  11. weismänn Erfahrener User
    Hallo Karin,

    nun hab ich noch ein Problem...schau dir mal meine neue Excel-liste an...

    ich bekomme es einfach nicht hin!! Bin aber auch kein Profi wie du.

    Wär super wenn du mir dabei noch helfen könntest.

    Grüße Weimänn
     
    weismänn, 9. März 2018
    #11
  12. Beverly
    Beverly Erfahrener User
    Hi,

    und welches ist das Problem? Das kann man doch schon mal hier im Beitrag beschreiben ohne dass man dazu die Mappe herunterladen muss...

    Bis später,
    Karin
     
    Beverly, 10. März 2018
    #12
  13. weismänn Erfahrener User

    In den Zellen G6 bis I6 darf nur ein x gemacht sein!

    Hallo Karin,

    ich dachte es wär einfacher zu verstehen...

    Ich möchte von Zeile C6:F6; C7:F7; C8:F8 usw bis C29:F29 nur ein"x" gemacht werden kann und

    G6:I6; G7:I7; G8:I8 usw bis G29:I29 nur ein "x" gemacht werden kann...hoffe ich hab es verständlich rüber gebracht.

    Grüße Weimänn
     
    weismänn, 12. März 2018
    #13
  14. Beverly
    Beverly Erfahrener User
    Hi,

    dann so

    Code:
    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
        If Not Intersect(Target, Range("C6:F29")) Is Nothing Then
            Cancel = True
            If Application.CountIf(Range(Cells(Target.Row, 3), Cells(Target.Row, 6)), "X") > 0 Then
                If Target.Value = "X" Then
                    Target.ClearContents
                Else
                    MsgBox "Nur ein Kreuz möglich!"
                End If
            Else
                Target = "X"
            End If
        ElseIf Not Intersect(Target, Range("G6:I29")) Is Nothing Then
            Cancel = True
            If Application.CountIf(Range(Cells(Target.Row, 7), Cells(Target.Row, 9)), "X") > 0 Then
                If Target.Value = "X" Then
                    Target.ClearContents
                Else
                    MsgBox "Nur ein Kreuz möglich!"
                End If
            Else
                Target = "X"
            End If
        End If
    End Sub
    
    
    Bis später,
    Karin
     
    Beverly, 12. März 2018
    #14
  15. weismänn Erfahrener User
    Hallo Karin,

    vielen vielen DANK genau das wollte ich...ich bin schwer begeistert...

    Grüße Weismänn
     
    Zuletzt bearbeitet: 12. März 2018
    weismänn, 12. März 2018
    #15
Thema:

In den Zellen G6 bis I6 darf nur ein x gemacht sein!

Die Seite wird geladen...
  1. In den Zellen G6 bis I6 darf nur ein x gemacht sein! - Similar Threads - Zellen

  2. Summewenns zwei zellen addieren mit Bedingungen

    in Microsoft Excel Hilfe
    Summewenns zwei zellen addieren mit Bedingungen: Hallo zusammen, ich hab schon alles probiert...aber ich benötige wieder mal Hilfe... Ich habe eine Liste mit Kalenderwoche (KW) B7 bis B24 Arbeitsbereich (HA/PPS) C7 bis C24 Systembereich...
  3. Formel auf andere Zellen unterschiedlicher Größe anwenden

    in Microsoft Excel Hilfe
    Formel auf andere Zellen unterschiedlicher Größe anwenden: Hallo zusammen, ich habe eine Formel gebastelt, die wie angehängt in der Beispiel-Excel zu sehen ist, funktioniert. Kann ich die Formel so vereinfachen, dass ich nicht 3x die angepasste Formel...
  4. Summieren farbiger Zahlen anhand des Farbcodes ohne VBA

    in Microsoft Excel Hilfe
    Summieren farbiger Zahlen anhand des Farbcodes ohne VBA: Hallo liebes Forum, welche Formel muss ich eingeben, wenn ich farbige Ziffern (z.B. rot = Farbcode 3; grün = 4) addieren möchte. Danke im voraus für die schnelle Antwort Gruß mfkathie
  5. kopierte Zellen definiert einfügen

    in Microsoft Excel Hilfe
    kopierte Zellen definiert einfügen: Hallo zusammen. Ich habe einen VBA Code der mir aus einer Excel-Tabelle nach Word kopiert. Jetzt möchte ich um "Platz" zu sparen im Word-Dokument bei Formatvorlage das Format "Kein Leerraum" in...
  6. DATEDIF Ergebnis

    in Microsoft Excel Hilfe
    DATEDIF Ergebnis: Hallo, ich bitte um Hilfe bei DATEDIF z. B. =DATEDIF(Anfangsdatum;Enddatum;"Y") ergibt zB. 8 in derZelle. Ich möchte aber, dass in einer Zelle 8 Jahre steht. Was muss hier hinter "Y" noch...
  7. Wenn_dann mit 60 Zellen

    in Microsoft Excel Hilfe
    Wenn_dann mit 60 Zellen: Hallo, wer kann mir helfen. Ich benötige eine Zelle (C17) mit einer Wenn Dann Formel. In dieser Zelle sollen Artikelnummer abgefragt werden, die dann einen bestimmten Preis haben. Wir haben etwa...
  8. Bilder in Zelle mit Autofilter mitverschieben!

    in Microsoft Excel Hilfe
    Bilder in Zelle mit Autofilter mitverschieben!: Hallo Excel Kollegen! Ich habe folgendes Problem. Ich füge per vba ein PDF Symbol als .jpg Datei ein. Soweit funktioniert alles. Wenn ich aber diese Tabelle mit dem Autofilter filtere bleibt das...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden