Ohne VBA: Übernahme von Werten ohne WENN-Funktion

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

HAllo,
1) Gibt es für den Sachverhalt irgendeine Lösung ohne VBA?
Nein.
2) Wie löst man das mit VBA? (VBA-Kenntnisse: 3/10)
Dies ist ein Ansatz.

' **********************************************************************
' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim Zelle As Range
    Application.EnableEvents = False
    Select Case Sh.Name 'es geht um zwei Tabellenblätter (namens A und B)
        Case Is = "A"
            For Each Zelle In Intersect(Target, Sh.Range("A1:C3")) 'In diesen geht es jeweils um neun Zellen (jeweils A1:C3).
                With Sheets("B").Range(Zelle.Address)
                    If Zelle.Value = "X" Then 'wenn in A eine Zelle mit x befüllt wird,
                        .Value = "X" 'soll die jeweilige Zelle in B auch mit x befüllt werden
                        Else:
                        .Value = ""
                    End If
                End With
            Next
        Case Is = "B"
            For Each Zelle In Intersect(Target, Sh.Range("A1:C3")) 'In diesen geht es jeweils um neun Zellen (jeweils A1:C3).
                With Sheets("A").Range(Zelle.Address)
                    If Zelle.Value = "X" Then
                        .Value = "X"
                        Else:
                        .Value = ""
                    End If
                End With
            Next
    End Select
    Application.EnableEvents = True
End Sub

Der Code muss unter DieseArbeitsmappe.
ransi

' **********************************************************************
' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim Zelle As Range
    Application.EnableEvents = False
    On Error Resume Next
    Select Case Sh.Name 'es geht um zwei Tabellenblätter (namens A und B)
        Case Is = "A"
            For Each Zelle In Intersect(Target, Sh.Range("A1:C3")) 'In diesen geht es jeweils um neun Zellen (jeweils A1:C3).
                With Sheets("B").Range(Zelle.Address)
                    If Zelle.Value = "X" Then 'wenn in A eine Zelle mit x befüllt wird,
                        .Value = "X" 'soll die jeweilige Zelle in B auch mit x befüllt werden
                        Else:
                        .Value = ""
                    End If
                End With
            Next
        Case Is = "B"
            For Each Zelle In Intersect(Target, Sh.Range("A1:C3")) 'In diesen geht es jeweils um neun Zellen (jeweils A1:C3).
                With Sheets("A").Range(Zelle.Address)
                    If Zelle.Value = "X" Then
                        .Value = "X"
                        Else:
                        .Value = ""
                    End If
                End With
            Next
    End Select
    Application.EnableEvents = True
End Sub

Beliebteste Forumthreads (12 Monate)

Ohne VBA: Übernahme von Werten ohne WENN-Funktion

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Ohne VBA: Übernahme von Werten ohne WENN-Funktion

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread