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!