Office: (Office 2013) Wenn wert dann Schrägstrich

Ich habe das hier gefunden:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngZelle As Range
    ' Eingabespalte D (4)
    If Target.Cells(0).Column = 5 Then
        ' Schleife über jede Zelle des Eingabebereichs
        For Each rngZelle In Target
            ' Spalte der laufenden Zelle ist D (4)
            If rngZelle.Column = 5 Then
                ' bezogen auf 12 Spalten rechts (Spalte P) von Eingabespalte
                With rngZelle.Offset(0, 2)
                    ' Zellinhalt 21 Spalte rechts (Spalte Y) von Eingabespalte ist 0
                    ' dann Diagonalen setzen
                    If rngZelle.Offset(0, 6) = 0 Then
                        .Borders(6).LineStyle = xlContinuous
                        
                    ' Zellinhalt 21 Spalte rechts (Spalte Y) von Eingabespalte ist nicht 0
                    ' dann Diagonalen löschen
                    Else
                        .Borders(6).LineStyle = xlNone
                        
                    End If
                End With
            End If
        Next rngZelle
    End If
End Sub

Das X wird bei mir per Doppelklick eingefügt, was auch passiert, aber ich möchte auch wenn ich nochmal ein Doppelklick mache um das X zu entfernen das auch der Schrägstrich entfernt wird.

Vielen dank für die Mühe.

 

Hallo,

ins Codemodul des Arbeitsblattes, in dem du die Funktionalität haben möchtest, folgenden VBA-Code einfügen (durch Copy&Paste):

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

   Dim BIdx As XlBordersIndex
  
   If Target.Value = "x" Then
  
      Call SetBorder(Target.Offset(0, 1), xlDiagonalUp, True)
    
   ElseIf Target.Value = "xx" Then
  
      Call SetBorder(Target.Offset(0, 1), xlDiagonalUp, False)
    
   End If
  
End Sub

Private Sub SetBorder(rng As Range, Idx As XlBordersIndex, Setzen As Boolean)

   With rng.Borders(Idx)
      If Setzen Then
         .LineStyle = xlContinuous
         .ColorIndex = xlAutomatic
         .TintAndShade = 0
         .Weight = xlThin
      Else
         .LineStyle = xlNone
      End If
   End With
  
End Sub

Anwendung:
Wenn du in einer Zelle dieses Arbeitsblattes ein "x" eingibst, erscheint in der rechten Nachbarszelle der schräge Zellstrich.
Wenn du in einer Zelle dieses Arbeitsblattes ein "xx" eingibst und in der rechten Nachbarszelle ist der schräge Zellstrich vorhanden, dann wird dieser entfernt.

 

Hi,

im Moment setzt du den "Schrägstrich" in Spalte G und zwar dann, wenn du in der selben Zeile in Spalte E etwas änderst und gleichzeitig in Spalte F nichts oder 0 steht. Steht in Spalte F irgendwas (außer der 0), dann wird die Diagonale gelöscht.

Wenn du sowieso das X per Doppelklick setzt, wieso setzt du dann auch nicht gleichzeitig den diagonalen Rahmen?

 

Hi,

wenn wir hier schon Codes posten, dann reicht auch folgendes:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zelle As Range
For Each Zelle In Target
    Zelle.Offset(, 1).Borders(xlDiagonalUp).LineStyle = IIf(Zelle = "x", xlContinuous, xlNone)
Next
End Sub

Hier wird bei Eingabe eines "x" die Diagonale n der Nachbarzelle gesetzt. Bei allem anderen wird sie gelöscht.

 

Moin,
vielen dank für die Antworten, aber beide Codes Funktionieren leider nicht.

 

Hi,

bei mir funktionieren beide Codes.
Und das hilft dir sicherlich genauso, wie deine Antwort uns hilft.

 

Hallo,
du musst im Arbeitsblatt, in dem du die Funktionalität haben möchtest,
1) einen Rechtsklick auf den Arbeitsblattreiter (bei mir: "Tabelle1") machen,
2) den Befehl "Code anzeigen" auswählen, dann sollte sich das nachfolgende Bild zeigen.
3) Falls sich das rechte VBA-Programm nicht zeigt, dann musst du im Projekt-Fenster ("Projekt - VBAProjekt") auf den Eintrag "Tabelle1" einen Doppelklick ausführen.
4) Falls sich dann rechts statt des VBA-Programms bloß eine weiße Fläche zeigt, musst du mittels Copy&Paste genau in diese weiße Fläche mein publiziertes Programm einfügen.
5) Mit der Tastenkombination Alt+F11 kommst du wieder zurück ins Arbeitsblatt (bei mir: "Tabelle1").
Das war das ganze Kunststück VBA-Code-Installation.
Wie du siehst, habe ich in Zelle A8 (ganz links zu sehen) ein "x" eingegeben, worauf in Zelle B9 der Zellschrägstrich erschienen ist.

 

Moin,
ich habe den Fehler gefunden, wenn ich den Doppelklick mache, erscheint ein großes X und der Code ist für ein kleines x.

Vielen Dank