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