Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zeile übertragen wenn in Spalte ein x

Zeile übertragen wenn in Spalte ein x
17.04.2008 09:49:47
Berchtold
Hallo zusammen
Sicher weiss jemand von euch wie ich das anstellen muss. Ich habe in Tabelle1 diverse Einträge in den Spalten A-M und Spalte C ist leer. Wenn ich nun da in Spalte C ein x reinschreibe sollte es mir automatisch die entsprechende Zeile auf Tabelle2 an den Schluss kopieren und auf Tabelle1 die Zeile auch löschen.
Besten Dank
Roger

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile übertragen wenn in Spalte ein x
17.04.2008 10:53:38
Berchtold
Super
Besten Dank das klappt einwandfrei. Ist doch immer wieder schön hier so gute hilfe zu erhalten.
Gruss
Roger

Anzeige
AW: Zeile übertragen wenn in Spalte ein x
17.04.2008 11:03:00
Armin
Hallo Reiner,
es geht auch noch kürzer:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim maxZeile As Long
maxZeile = Worksheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row
Application.EnableEvents = False
With Target
If .Row > 2 And .Column = 3 And UCase(.Value) = "X" Then
Range("A1:M1").Offset(.Row - 1, 0).Copy Destination:=Worksheets("Tabelle2").Range("A1"). _
Offset(maxZeile, 0)
Range("A1:M1").Offset(.Row - 1, 0).EntireRow.Delete
End If
End With
Application.EnableEvents = True
End Sub


Gruß Armin

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige