ich haben ein konflikt mit zwei Makro's
Im Tabelle "T1" erfolgt einen Manuelle eingaben im spalte A nach eingaben springt Cursor automatisch im angrenzende Zellen für Menge eingaben, sofern so gut.
Im Tabelle "T2" kan mann per Doppelklick ereignis bestimmete wert in Tabelle "T1" spalte A kopieren
und genau da gibts ein konflickt in diese Bereich
Case 1
Target.Offset(0, 1).Select
Hab leider selber noch keine Lösung gefunden....
datei:
https://www.herber.de/bbs/user/135113.xlsm
Tabelle "T1"
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
'sprung Zelle A nach B sehe Case
If Target.Count = 1 Then
If Target.Row >= 4 And Target.Row Case 1
Target.Offset(0, 1).Select ' hier tritt problem auf
Case 2
Target.Offset(1, -1).Select
End
End Select
End If
End If
'sverweis aus tab1
Dim var As Variant
If Target.Row >= 4 And Target.Row
Tabelle "T2"Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim L As Long
Cancel = True
If Not Intersect(Target, Range("A2:E100000")) Is Nothing Then
'If Not Intersect(Target, [B4:D100000]) Is Nothing Then
With Sheets("T1")
L = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 ' Rows Spalte angaben einfügen .End( _
xlUp).Row + 1 untereinander
If L
beste GrüßeHans