Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Code Öfter beuntzen für mehrere Zellen
#1
Hallo liebe Excel Freunde,

ich würde gerne den Code in den Zellen E4 bis E24 benutzen.
Geht das irgendwie ?

Also auf zwei Zellen funktioniert es damit aber ich soweit ich eine neue einfügen "Or"
zeigt er ein Fehler an.

Ich füge euch die Tabelle mal ein.
Würde es gerne in ALLE Tabellen so haben und die längste Spalte geht von E4 bis E24 wo ich in die Klick Funktion brauche.
.xlsx   Klamottenliste.xlsx (Größe: 17,89 KB / Downloads: 4)

Hier der besagte Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  With Target
    If .Address = "$E$6" Or .Address = "$E$7" Then
      .Value = .Value + 1
      Cancel = True
    End If
  End With
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  With Target
    If .Address = "$E$6" Or .Address = "$E$7" Then
      .Value = .Value - 1
      Cancel = True
    End If
  End With
End Sub
Antwortento top
#2
Hallo,
wozu willst Du das mit OR realiseren?

So ist es Kürzer:
Code:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  With Target
    If .Column = 5 And .Row > 3 And .Column < 25 Then
      .Value = .Value - 1
      Cancel = True
    End If
  End With
End Sub
Grüße aus Nürnberg
Armin
Ich benutze WIN 10 (64bit) und Office 19 (64bit)
[-] Folgende(r) 1 Benutzer sagt Danke an EbyAS für diesen Beitrag:
  • Bianco
Antwortento top
#3
Hallo, 19

für alle Tabellenblätter so: 21

.xlsb   Klamottenliste.xlsb (Größe: 23,29 KB / Downloads: 3)
________
Servus
Case
[-] Folgende(r) 1 Benutzer sagt Danke an Case für diesen Beitrag:
  • Bianco
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste