Hallo Kaeppi,
In Excel habe ich schon in die Spalte A die ganzen Automarken
eingeschrieben
wieviele sind es denn? Ist doch unpraktisch wenn du, wenn es mehr als ca. 30 sind, laufend den Bildschirm scrollen mußt.
Mach dann lieber mehrere je ca. 30 lange Spalten nebeneinander, dazwischen je eine Leerspalte. damit sisie optisch getrennt sind.
und nun wollte ich, dass wenn man auf die
Automarke drückt, in der Spalte B die Zahl um 1 größer wird.
Der folgende Code gehört in das Tabellenblattmodul, z.B. „Tabelle1“.
Er läuft dann vollautmatisch ab.
Zur bedienung, Funktion und Verbesserungen habe ich unter dem Code noch was geschrieben.
Option Explicit
'
Private Sub Worksheet\_SelectionChange(ByVal Target As Range)
If Target.Cells.Count \> 1 Then Exit Sub
Select Case Target.Column
Case 1 'A
Target.Offset(0, 1).Value = Target.Offset(0, 1).Value + 1
Case 3 'C
Target.Offset(0, -1).Value = Target.Offset(0, -1).Value - 1
Case Else
'tu nix
End Select
End Sub
Bedienung ist einfach, du klickst auf Ax und der Wert in Bx wird erhöht. Hast du dich verklickt, kein Akt, dann klicjkst du auf Cx und Bx wird vermindert.
Wenn du wie ganz oben mehrere Spaltenbereiche nebeneinander hast, so kannst du leicht selbst den Code anpassen.
Angenommen du hast diese Splatenblöcke: A-C, E-G, I-K
so brauchst du nur die zwei case-Zeilen zu ändern, so
Case 1 in Case 1,5,9
Case 3 in Case 3,7,11
Die Zeilen optisch zu trnnen ist gut bei sowas, markiere alle relevanten Bereiche, dann bed. Formatierung:
Formel ist: =REST(ZEILE();2)=0
Muster aussuchen.
Gruß
Reinhard