wenn Bedingung, dann Spalte in neues Tabellenblatt

[080995]

Hallo zusammen, ich habe ein Problem:

ich habe 2 verschiedene Tabellenblätter:

Tabellenblatt 1: es gibt 2 verschiedene Spalten (Spalte 1 und Spalte 2 mit jeweils 8 Zellen)
Tabellenblatt 2: in das Tabellenblatt 2 möchte ich - wenn in einer Zelle in TB2 0 eingegeben wird - Spalte 1 eintragen; wenn in einer Zelle in TB2 1 eingegeben wird - Spalte 2 eingetragen wird.

Kann mir hier jemand weiterhelfen?

[Kuwer]

Hallo,

folgender Code kommt in das VBA-Modul von Tabellenblatt 2 (Rechtsklick auf den Reiter - Code anzeigen):

Private Sub Worksheet_Change(ByVal Target As Range)

  Dim rngA As Range, rngZ As Range

  On Error Resume Next

  Application.EnableEvents = False

  For Each rngA In Target.Areas

    For Each rngZ In rngA.Cells

      Select Case rngZ.Value

        Case 0

          rngZ.Value = "Spalte 1"

        Case 1

          rngZ.Value = "Spalte 2"

        Case Else

          rngZ.Value = ""

      End Select

    Next rngZ

  Next rngA

  Application.EnableEvents = True

  On Error GoTo 0

End Sub

Gruß Uwe