Zeilen bei Änderung korrekt zuweißen

[Kuwer]

Hallo,

dann müssen die Kreuze in Quelle 1 gesetzt werden.

Folgende Formel kommt in Tabelle!H2:
=WENN('Quelle 1'!E8="";"";'Quelle 1'!E8)
die Du dann nach rechts und unten ziehst.

In Quelle 1 Bereich E1:H1 müssen Überschriften rein.

Das bisherige Doppelklickmakro in Tabelle ersetzt Du mit folgendem:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
 Dim oWs As Worksheet
 Dim strPrecedents As String
 If Not Intersect(Target, Range("H2:K250")) Is Nothing Then
   strPrecedents = Replace(Mid(Target.Formula, InStrRev(Target.Formula, ",") + 1), "'", "")
   strPrecedents = Left(strPrecedents, Len(strPrecedents) - 1)
   Set oWs = Worksheets(Left(strPrecedents, InStr(1, strPrecedents, "!") - 1))
   With oWs.Range(Mid(strPrecedents, InStr(1, strPrecedents, "!") + 1))
     .Value = IIf(.Value = "x", "", "x")
   End With
   Cancel = True
 End If
End Sub

Gruß Uwe

[diving_excel]

Vielen Dank, probier ich gleich mal aus!

[diving_excel]

Hat funktioniert, danke!