Excel Zellen automatisch in andere Tabelle kopiere

Computer: Software & Programmierung Visual Basic
#1

Hallo an alle!

Ich hab folgendes Problem mit Excel

ich möchte wenn zum beispiel in spalte „F“ etwas eingetragen wird (zB „Ja“) dass dann die Zellen links von A bis E automatisch von „Sheet1“ nach „Sheet2“ kopiert wird.
Außerdem sollen die Zeilen untereinander in Sheet2 aufgelistet werden.

Ich dachte ich könnte das mit einer IF funktion machen aber funktioniert leider nicht weil die Zeilen dann aus Sheet1 gelöscht werden sollen.

Hat jemand eine idee? denn ich kenn mich mit VB nicht besonders aus und die relative makro aufzeichnung reicht nicht aus für dieses problem.

vielen dank schon mal an alle antworten.

#2

ich möchte wenn zum beispiel in spalte „F“ etwas eingetragen
wird (zB „Ja“) dass dann die Zellen links von A bis E
automatisch von „Sheet1“ nach „Sheet2“ kopiert wird.
Außerdem sollen die Zeilen untereinander in Sheet2 aufgelistet
werden.

Hallo Koko,

Code gehört in das Modul „Tabelle1“:

Option Explicit
'
Private Sub Worksheet\_Change(ByVal Target As Range)
If Intersect(Target, Range("F:F")) Is Nothing Then Exit Sub
If Target.Cells.Count 1 Then Exit Sub
If Target.Value = "Ja" Then
 With Worksheets("Tabelle2")
 Range(Cells(Target.Row, 1), Cells(Target.Row, 5)).Copy \_
 Destination:=.Cells(.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
 End With
End If
End Sub

Gruß
Reinhard

#3

Vielen vielen Dank!!!

Es funktioniert ohne Probleme :smile:
Ich war schon kurz vorm verzweifeln weil ich den Code nicht rausbekommen habe :smile: aber jetzt versteh ich wie es funktioniert!

Danke nochmal

#4

Eine Frage hätte ich noch und zwar möchte ich jetzt noch etwas hinzufügen:

Das vorherige bleibt gleich nur kommt jetzt noch hinzu dass ich in spalte F etwas eintrage (z.B. Klasse 1, Klasse 2, Klasse 3) und falls dann Klasse 3 ausgewählt wurde soll die Zeile in Sheet3 kopiert werden.

Hab jetzt versucht dass ich zu dem Code worksheet_change eine weitere IF bedingung hinzufüge. nur ignoriert der das… auch habe ich versucht die Range zu erweitern (auch mit variablen).

Wär super wenn Du mir auch hier weiterhelfen könntest :smile:

#5

Das vorherige bleibt gleich nur kommt jetzt noch hinzu dass
ich in spalte F etwas eintrage (z.B. Klasse 1, Klasse 2,
Klasse 3) und falls dann Klasse 3 ausgewählt wurde soll die
Zeile in Sheet3 kopiert werden.

Hab jetzt versucht dass ich zu dem Code worksheet_change eine
weitere IF bedingung hinzufüge. nur ignoriert der das… auch
habe ich versucht die Range zu erweitern (auch mit variablen).

Hallo Koko,

„falls dann Klasse 3 ausgewählt wurde“, wie wärs mit daten—Gültigkeit zum Auswählen?

Probiers mal so, (ungetestet):

Private Sub Worksheet\_Change(ByVal Target As Range)
If Intersect(Target, Range("F:F")) Is Nothing Then Exit Sub
If Target.Cells.Count 1 Then Exit Sub
Select Case Target.Value
 Case "Ja"
 With Worksheets("Tabelle2")
 Range(Cells(Target.Row, 1), Cells(Target.Row, 5)).Copy \_
 Destination:=.Cells(.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
 End With
 Case "Klasse 3"
 With Worksheets("Tabelle3")
 Range(Cells(Target.Row, 1), Cells(Target.Row, 5)).Copy \_
 Destination:=.Cells(.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
 End With
 Case Else
 'nix
End Select
End Sub

Gruß
Reinhard

#6

Danke für die Antwort
ich werds gleich mal ausprobieren :smile: