Office: (Office 2016) Vba

Hallo
B1 steht zb 6000

Habe folgendes Problem zb. in der tabelle stehen von a1-a50 und g1-g50 und j1-j50 zahlen die unterschiedlich sind.
jetzt möchte ich wenn ich einen von den zahlen klicke soll neben der zelle die zahl in b1 um 1 erhöht werden beim nächsten zahl den ich finde um 2 usw.

Also wenn ich die 1. zahl in a37 un drauf klicke soll neben der zelle 6001 stehen, wenn ich die 2. zahl in b15 finde un drauf klicke soll daneben 6002 stehen.

ist sowas möglich kann jemand mir helfen??

PHP:

 

Hi,

ich würde nicht einfach die Zelle anklichen sondern doppelklicken - das ist sicherer.
Wenn die Zahl in B1 steht, dann kannst du den ersten Bereich nicht von A1 beginnen lassen, weil sonst die Zahl in B1 überschrieben wird. Entweder du schreibst die Zahl in eine völlig andere Zelle oder beginnst deinen Bereich ab Zeile 2 und nicht ab Zeile 1. Ich bin mal von letzterem ausgegangen.

Kopiere folgenden Code in das Codemodul des Tabellenblattes:

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim rngBereich As Range
    Set rngBereich = Union(Range("A2:A50"), Range("G2:G50"), Range("J2:J50"))
    If Not Intersect(Target, rngBereich) Is Nothing Then
        Target.Offset(0, 1) = Range("B1") + 1
        Range("B1") = Range("B1") + 1
        Cancel = True
    End If
End Sub

Bis später,
Karin

 

danke das du mir helfen willst. Aber es ist nicht was ich suche aber so ähnlich.
hier das Datei als Besispiel so ist es für dich viel einfacher

Link zum externen Hoster entfernt. Das Forum hat einen eigenen Upload. steve1da



MFG

 

Hola,

zur Info....
https://www.ms-office-forum.net/forum/showthread.php?t=362614
https://www.clever-excel-forum.de/Thread-vba--22596

Gruß,
steve1da

 

Lade deine Mappe bitte hier im Forum hoch - klicke dazu den Schlater "Erweitert" unter dem Antwortfenster, dann öffnet sich unterhalb ein weiteres Menü, wo du den Schalter "Anhänge verwalten" findest.

Bis später,
Karin